vb冒泡排序法（easy)

Private Sub Form_Click()
Print "排序前"
Dim a(1 To 10) As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To 10
a(i) = Int(100 * Rnd)
Print a(i);
Next i
For j = 1 To 10
For i = 10 To j Step -1
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next i
Next j
Print
Print "排序后"
For i = 1 To 10
Print a(i); "";
Next i
Print
Print
End Sub