|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
在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
|
|