用VB编程，随机生成30个0至80的数，并排序（选择法）

来源：百度知道 编辑：UC知道 时间：2024/06/22 03:28:46
用VB编程，随机生成30个0至80的数，并排序（选择法）

第一部分是显示随机生成的30个数

第二部分是显示他们的降序排列，只可用选择法。
谢谢
VB 6.0 哦，

Private Sub Form_Click()
Dim i, j, t, a(1 To 30)
Cls
Randomize
Print "30个随机数："
For i = 1 To 30
a(i) = Int(81 * Rnd)
Print a(i);
If i Mod 10 = 0 Then Print
Next

Rem 用选择法排序
For i = 1 To 29
For j = i + 1 To 30
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i

Print "从大到小排序后："
For i = 1 To 30
Print a(i);
If i Mod 10 = 0 Then Print
Next
End Sub