编写生成100个0到500间的随机数，放在一个数组中在窗体上打这100个数，

来源：百度知道 编辑：UC知道 时间：2024/09/24 03:24:58
（接上面）求出这一百个数中最大的，最小的，打印输出，并对它们排序？
一定要用vb啊~~~谢谢各位了！！！！

Private Sub Command1_Click()
Dim A(1 To 100) As Integer, I As Integer, J As Integer, R
For I = 1 To 100
Randomize
A(I) = Int(Rnd() * 500)
Next I
For I = 1 To 99
For J = I + 1 To 100
If A(I) > A(J) Then
R = A(I): A(I) = A(J): A(J) = R
End If
Next J
Next I
Print "最大值："; A(100)
Print "最小值："; A(1)
For I = 1 To 100
Print A(I);
If I Mod 10 = 0 Then Print
Next I
End Sub