VB高手进~~单击命令按钮Command1，在窗体上输出10个3位随机正整数，并换行输出最大的数和最小的数

来源：百度知道 编辑：UC知道 时间：2024/06/04 08:20:03
RT```高手速度```考试中```
这道题的代码代码~~

楼上的错了。应该修改成这样。
Private Sub Command1_Click()
Dim a(10) As Integer
Max = 0
Min = 1000
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 900 + 100)
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Print a(i);
Next
Print
Print Max
Print Min
End Sub