7,785
社区成员




Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub Main()
Dim y As Long, x As Long, Dealtime As Long
Dealtime = GetTickCount
For y = 1 To 524288
For x = 1 To 1024
Next
Next
MsgBox GetTickCount - Dealtime & "毫秒"
Dealtime = GetTickCount
For y = 1 To 524288
For x = 1 To 1024
if x = y then
end if
Next
Next
MsgBox GetTickCount - Dealtime & "毫秒"
Dealtime = GetTickCount
For y = 1 To 524288
For x = 1 To 1024
if x = y then
end if
if x = y then
end if
Next
Next
MsgBox GetTickCount - Dealtime & "毫秒"
End Sub
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub Main()
Dim y As Long, x As Long, Dealtime As Long
Dealtime = GetTickCount
For y = 1 To 524288
For x = 1 To 1024
Next
Next
MsgBox GetTickCount - Dealtime & "毫秒"
End Sub
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
Dim y As Long, x As Long, Dealtime As Long
Dealtime = GetTickCount
For y = 1 To 524288
For x = 1 To 1024
Next
Next
Debug.Print GetTickCount - Dealtime & "毫秒"
End
End Sub