VB 排序

Dim f(20) As Integer





Private Sub Command1_Click()

Randomize Timer

Label1 = ""

For i = 1 To 20

f(i) = Int(Rnd * 90 + 10)

Label1 = Label1 & f(i) & " "

Next



End Sub



Private Sub Command2_Click()

Label2 = ""



For j = 1 To 20 - 1

For i = 1 To 20 - j

If f(i) > f(i + 1) Then

tmp = f(i + 1)

f(i + 1) = f(i)

f(i) = tmp

End If

Next

Next



For i = 1 To 20

Label2 = Label2 & f(i) & " "

Next



End Sub