7,757
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim i As Long
Dim s As String
Dim s1 As String
Dim t0 As Long
s = "sdgvfdrhngfnmdgfdsgfdsgdfsgsdgdfsfgfvdbcvxbvcxvbjuyk"
t0 = GetTickCount
For i = 0 To 1000000
s1 = Mid(s, 20, 10)
Next
MsgBox GetTickCount - t0
End Sub
Private Sub Command2_Click()
Dim i As Long
Dim s As String
Dim s1 As String
Dim t0 As Long
s = "sdgvfdrhngfnmdgfdsgfdsgdfsgsdgdfsfgfvdbcvxbvcxvbjuyk"
t0 = GetTickCount
For i = 0 To 1000000
s1 = Mid$(s, 20, 10)
Next
MsgBox GetTickCount - t0
End Sub