随意生成10个数并排序（选择排序法）

Private Sub Command1_Click()

Me.Font.Size = 30

Dim a(10) As Integer

Dim i As Integer

For i = 1 To 10

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

   Print a(i);

Next i

Print

 

Dim j As Integer

For j = 1 To 9

For i = j + 1 To 10

   If a(j) < a(i) Then

      swap a(j), a(i)

   End If

Next i

Next j

For i = 1 To 10

   Print a(i);

Next i

Print

 

End Sub

Private Function swap(a As Integer, b AsInteger)

Dim t As Integer

t = a

a = b

b = t

End Function