|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
回复 21楼 老伙计2008 的帖子
试试这两个。。。
Sub bbb()
t = Timer
Dim i&, y&
For i = 1 To 100000000
y = y + 1
Next
MsgBox Timer - t & vbCrLf & y & vbCrLf & Len(Trim(y))
End Sub
Sub bbb1()
t = Timer
Dim i&, j&, k&, l&, m&, n&, o&, p&, y&
For i = 1 To 10
For j = 1 To 10
For k = 1 To 10
For l = 1 To 10
For m = 1 To 10
For n = 1 To 10
For o = 1 To 10
For p = 1 To 10
y = y + 1
Next
Next
Next
Next
Next
Next
Next
Next
MsgBox Timer - t & vbCrLf & y & vbCrLf & Len(Trim(y))
End Sub |
|