vb.net运行时间

sscylh

在vs2010下用vb做了一个窗体,加个按纽,写如下代码,结果运行时间为13.4135s........   
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim brr()
        Dim timer As New Stopwatch
        timer.Start()
        For i As Integer = 0 To 65536
            ReDim Preserve brr(i)
            brr(i) = Rnd()
        Next
        timer.Stop()
        MsgBox(timer.Elapsed.TotalSeconds)
    End Sub
在vba中,完全一样的程序,运行时间是0.1796s........
Sub aa()
Dim brr()
ti = Timer
For i = 0 To 65536
ReDim Preserve brr(i)
brr(i) = Rnd()
Next
MsgBox Timer - ti
End Sub

wpxxsyzx

vs对数据类型要求很严格，最好明确定义数据类型，改为Dim brr() As Single应该可以缩短一些时间

wpxxsyzx

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim brr(65536) As Single
        Dim timer As New Stopwatch
        timer.Start()
        For i = 0 To 65536
            'ReDim Preserve brr(i)
            brr(i) = Rnd()
        Next
        timer.Stop()
        MsgBox(timer.Elapsed.TotalSeconds)
    End Sub
'ReDim Preserve 惹的祸，最好先确定数组大小

sscylh

wpxxsyzx 发表于 2012-11-16 13:24
vs对数据类型要求很严格，最好明确定义数据类型，改为Dim brr() As Single应该可以缩短一些时间

以下为测试结果:
改为single(占4个字节):7秒
改为double(8个字节):17秒
改为dicimal(16个字节):37秒
改为integer(4个字节):7秒
改为short(2个字节):3秒
看来数据类型在vb.net中对运算速度有巨大影响!
谢谢wp版!

sscylh

wpxxsyzx 发表于 2012-11-16 13:38
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button ...

我之前也有测试过redim preserve,如果不加的话运算一闪即过,加了之后超慢
在vba中加不加都是一闪即过

wpxxsyzx

看来vba的一些用法vs里都得改改了，也许ReDim Preserve 可以用，只是我们不知道正确的方法，呵呵

AVEL

百度了一下  貌似使用ArrayList可以提高速度。

wpxxsyzx

System.Collections.ArrayList类是一个特殊的数组。通过添加和删除元素，就可以动态改变数组的长度,但是速度比一般数组要差些，最好直接定义数组大小，如果无法确定数组大小，定义大一些的数组也比使用ArrayList要快些

bikaqiou2000

使用范型集合应该会更快把 也可提前定好数组大小 总之怎样.net性能都不是vba能比的

doryan

本机测试楼主代码运行时间 7.03
使用double类型 7.7

改用固定大小的double数组 0.0038
改用List类型（大小不确定）并使用List.add 方法 0.0040-0.0045

结论...
redim preserve 非常耗时....
List非常好用 耗时多不了多少 但是对于后续的排序 过滤操作非常方便 建议使用^^

6553600 耗时0.36秒
65536000 耗时 3.6秒
严格按照O(n)的时间复杂度 可以看作简化的dictionary方法来用
测试完成后发现List 效率很高啊

测试代码：

1.         Dim i As Integer
   
2.         Dim brr As New List(Of Double)
   
3.         Dim timer As New Stopwatch
   
4.         timer.Start()
   
5.         For i = 0 To 65536000
   
6.             'ReDim Preserve brr(i)
   
7.             brr.Add(Rnd())
   
8.         Next
   
9.         timer.Stop()
   
10.         MsgBox(timer.Elapsed.TotalSeconds)

复制代码

有兴趣的可以试试