7,785
社区成员




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