举个简单例子,可以看出left$比left快2%,对于复杂的情况差距还会更大
Private Sub Command1_Click()
Dim i As Long
Dim str As String
Dim t As Variant
t = Timer
For i = 0 To 30000
str = str & Left(Combo1.List(i), 9) + vbCrLf
Next
Label1.Caption = "用时" & CStr(Timer - t) & "秒"
RichTextBox1.Text = str
End Sub
Private Sub Command2_Click()
Dim i As Long
Dim str As String
Dim t As Variant
t = Timer
For i = 0 To 30000
str = str & Left$(Combo1.List(i), 9) + vbCrLf
Next
Label1.Caption = "用时" & CStr(Timer - t) & "秒"
RichTextBox1.Text = str
End Sub
Private Sub Form_Load()
Dim i As Long
Dim t As Variant
t = Timer
For i = 0 To 100
Combo1.AddItem CStr(i) & "abcdefghijk"
Combo1.ListIndex = 0
Next
End Sub