选择法排序

Private Sub Command3_Click()

Me.Font.Size = 30

Cls

Dim a(10) As Integer

Dim t As Integer

Dim i As Integer

Dim j As Integer

For i = 1 To 10

a(i) = 10 + Int(Rnd() * 100)

Next i

For j = 1 To 9

For i = j + 1 To 10

If a(j) < a(i) Then

t = a(j)

a(j) = a(i)

a(i) = t

Else

End If

Next i

Next j

For i = 1 To 10

Print a(i);

Next i

End Sub