这是用E语言编译的，因为我用的4.05试用版本，没有办法生成EXE文件，只能在E语言环境 下运行

这是E语言的代码：

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

.局部变量 时间1, 长整数型

.局部变量 时间2, 长整数型

.局部变量 结果, 整数型

.局部变量 到文本, 整数型

时间1 ＝ 取启动时间 ()

结果 ＝ SumTimes (到数值 (编辑框1.内容))

时间2 ＝ 取启动时间 () － 时间1

编辑框2.内容 ＝ 编辑框2.内容 ＋ 到文本 (结果) ＋ “次累加运算耗费：” ＋ 到文本 (时间2) ＋ “毫秒” ＋ #换行符

.子程序 SumTimes, 长整数型

.参数 timer, 长整数型

.局部变量 结果, 长整数型

结果 ＝ 0

.计次循环首 (timer, )

结果 ＝ 结果 ＋ 1

.计次循环尾 ()

返回 (结果)

这是delphi 2007编译的EXE文件，可以看出差好多了

这是delphi的代码：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

btnAdd: TButton;

Label1: TLabel;

Memo1: TMemo;

procedure btnAddClick(Sender: TObject);

private

{ Private declarations }

function SumTimes(i:Integer):string;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnAddClick(Sender: TObject);

var

dEnd:real;

dStart:Integer;

str:string;

begin

dStart:=GetTickCount;

str:=SumTimes(strToInt(trim(Edit1.Text)));

dEnd:=GetTickCount-dStart;

memo1.Lines.Add(edit1.Text+'次累加运算耗费:'+floattostr(dEnd)+' 毫秒');

end;

function TForm1.SumTimes(i: Integer):string;

var j,m:integer;

begin

for j := 0 to i - 1 do

begin

m:=m+1;

end;

result:=inttostr(m);

end;

end.

这是我用C# 2005的测试程序，大家可以测试下。正在装载数据……

下面是C#的代码：

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Text;

using System.Windows.Forms;

namespace cSharpTest

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

//System.DateTime currentTime = new System.DateTime();

int iStart, iEnd;

long st;

iStart = Environment.TickCount;

st = SumTimer(long.Parse(textBox1.Text));

//System.DateTime currentTime1 = new System.DateTime();

iEnd = Environment.TickCount - iStart;

rtb.AppendText(textBox1.Text + "次累加运算耗费:" + iEnd.ToString()+" 毫秒\n");

}

private long SumTimer(long s)

{

long m=0;

for (long i = 1; i <= s; i++)

{

m += 1;

}

return m;

}

}

}

结论：这几个编译器，可以看出效率最高的是直接编译成机器码的delphi，他所编译出的代码大小(418K)。但是C#和E语言都不是直接编译成机器码，所以没有什么可比性，但是E语言的效率比C#高确实有点惊喜！

测试文件：

c#        编译的文件：点次下载 http://dl2.csdn.net/down4/20070628/28050252199.exe

delphi 编译的文件：点次下载  http://http://dl2.csdn.net/down4/20070628/28050658854.exe

本文来源：http://blog.csdn.net/wjames2000/archive/2007/06/28/1669668.aspx