VB编程，求随机生成50个1至100的数。并升序排列（用冒泡法）

来源：百度知道 编辑：UC知道 时间：2024/05/30 18:53:16
1.VB编程，随机生成50个1至100的数。

2.对所产生的50个随机数进行升序排列
分两个部分
第一部分是显示随机生成的50个数

第二部分是显示他们的升序排列，只可用冒泡法。

谢谢

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

Rem 用冒泡法排序
For i = 1 To 49
For j = 1 To 50 - i
If a(j) > a(j + 1) Then
t = a(j + 1): a(j + 1) = a(j): a(j) = t
End If
Next j
Next i

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