Tag: # 排序算法

[vb]数组的排序算法 Option Explicit Dim startTime As Double Dim endTime As Double Dim timeToSort As Double Dim timeTaken As String Sub Command1_Click() Dim lMyArray(0 To 2000) As Long Dim vTemp1 As Variant Dim vTemp2 As Variant Dim vTemp3 As Variant Dim iLoop As Integer Randomize For iLoop = LBound(lMyArray) To UBound(lMyArray) lMyArray(iLoop) = Int(Rnd * 100) + 1 Next iLoop vTemp1 阅读全文