Dim num(9) As Integer
Dim i As Integer
Dim j, middle As Integer
For i = 0 To 9
num(i) = Rnd() * 90 + 10
Next i

For i = 1 To 9

If num(i) > num(i - 1) Then
middle = num(i)
'j=i-1
'Do While j >= 0
' If num(i) > num(j) Then
' num(j + 1) = num(j)
' j = j - 1
' Else
' Exit Do
' End If
'Loop

For j = i - 1 To 0 Step -1

If num(i) > num(j) Then
num(j + 1) = num(j)
Else
Exit For

End If
Next
num(j) = middle
End If
Next i

看不懂,数组排序,如果是vb2005那还不如直接

Dim num(9) As Integer
Dim i As Integer

For i = 0 To 9
num(i) = Rnd() * 90 + 10
Next i

Array.Sort(num)

不就ok了吗?

For j = i - 1 To 0 Step -1
If num(j + 1) > num(j) Then
Dim num1 As Integer
num1 = num(j)
num(j) = num(j + 1)
num(j + 1) = num1

Else
Exit For
End If
Next