UC知道VB程序问题，大小排序
来源：百度知道 编辑：UC知道 时间：2024/06/01 07:24:38
Private Sub Command1_Click()
For i = 1 To 7
Dim a(1 To 7) As Integer
a(1) = Int(Rnd() * 100)
Print a(1);
Next i
For j = 1 To 7
For i = j To 7
If a(2) > a(1) Then t = a(1): a(1) = a(2): a(2) = t
Next i
Next j
For i = 1 To 7
Print a(2)
Next i
End Sub
我的目的就是随机生成7个数，再给着7个数排序，从大到小。
可是我这么写，弄不出来，全是0，请大哥们指教，小弟我初学。
For i = 1 To 7
Dim a(1 To 7) As Integer
a(1) = Int(Rnd() * 100)
Print a(1);
Next i
For j = 1 To 7
For i = j To 7
If a(2) > a(1) Then t = a(1): a(1) = a(2): a(2) = t
Next i
Next j
For i = 1 To 7
Print a(2)
Next i
End Sub
我的目的就是随机生成7个数，再给着7个数排序，从大到小。
可是我这么写，弄不出来，全是0，请大哥们指教，小弟我初学。
你写的问题很大，应该这么写：
Private Sub Command1_Click()
Dim a(1 To 7) As Integer
For i = 1 To 7
a(i) = Int(Rnd() * 100)
Print a(i);
Next i
print
For j = 1 To 7
For i = j To 7
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next i
Next j
For i = 1 To 7
Print a(i);
Next i
End Sub
测试一下，如有问题补充说明，或M我
a(1) = Int(Rnd() * 100)
Print a(1)
你看这点,生成一个100内的随机数赋值给a[1]
打印出a[1] 每次都是打印的a[1]应该换成i