|
|
发表于 2005-11-21 22:49:00
|
显示全部楼层
Re: 对VB的效率不满意？原因可能出在你自己身上哦！
对不起，本来是应该像你说的那样结束讨论，不过我下载了你上传的执行文件，第一个速度是541毫秒，跟我的vb.net一模一样，第二个是30MS，不知道对应哪个代码～
刚才没看到你的注释，不好意思，所以重新做了一个测试：
Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Integer
Sub Main()
Dim st As Integer = GetTickCount
Dim i As Integer = 100000000, d As Integer = 0, d1 As Integer = 10
Do While i > 0
i = i - 1
d = d + 1
Loop
i = i + 1
d = d + 1
Console.WriteLine("d的结果（第一次）：" & d & vbCrLf)
i = 0
d = 10
Do While i < 5
i = i + 1
d1 = (d1 << 3) + (d1 << 1)
Loop
Console.WriteLine("d的结果（第二次）：" & d1 & vbCrLf)
Console.WriteLine("一共执行时间：" & GetTickCount - st & "毫秒" & vbCrLf)
End Sub
这段代码，测试结果270MS，不知道你那里多少，能烦请你测试一下吗？
我也上传 |
|
楼主