如果你想省事,可以利用 ListBox 控件(将其 Sorted 属性设置为 True,Visible 可以设置成 False):Dim i As Integer List1.Clear For i = 0 To Ubound(strArr) List1.AddItem strArr(i) Next i For i = 0 To Ubound(strArr) '如果降序,For i = Ubound(strArr) To 0 Step -1 strArr(i) = List1.List(i) Next i
List1.Clear
For i = 0 To Ubound(strArr)
List1.AddItem strArr(i)
Next i
For i = 0 To Ubound(strArr) '如果降序,For i = Ubound(strArr) To 0 Step -1
strArr(i) = List1.List(i)
Next i