Dim a(1 To 20) As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
Randomize
Print "原始数据:"
For i = 1 To 20
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next i
Print: Print
End Sub
Private Sub Command2_Click()
For i = 1 To 20
For j = 1 To i - 1
If a(j) > a(i) Then
t = a(j)
a(j) = a(i)
a(i) = t
End If
Next j
Next i
Print "排序结果为:"
For i = 1 To 20
Print a(i);
Next i
Print: Print
End Sub
本回答被提问者采纳