Option Explicit
Dim æ°å¼(0 To 9) As IntegerPrivate Sub Command1_Click()
Dim i As Integer
Cls
For i = 0 To 9
æ°å¼(i) = Rnd * 40
Print æ°å¼(i)
Next i
End SubPrivate Sub Form_Load()
Randomize
End SubPrivate Sub Command2_Click()
Dim i As Integer, j As Integer, tmp As Integer
Print "-------------"
For i = 0 To 9
For j = 0 To 9
If æ°å¼(i) < æ°å¼(j) Then
tmp = æ°å¼(j)
æ°å¼(j) = æ°å¼(i)
æ°å¼(i) = tmp
End If
Next j
Next i
For i = 0 To 9
Print æ°å¼(i)
Next i
End Sub
温馨提示:答案为网友推荐,仅供参考