Dim a(20) As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 20
a(i) = Int(Rnd * 50) + 1
Text1 = Text1 & a(i) & " "
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 19
For j = 1 To 20 - i
If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Next i
For i = 1 To 20
Text2 = Text2 & a(i) & " "
Next i
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024