如何用vb设计一个程序，随机产生二十个三位整数

Answer 1

Sub s()
    Randomize'初始化随机变量
    For i = 1 To 20'做20次循环
        Debug.Print Int(100 + Rnd * 900);'输出随机数到立即窗口
    Next
End Sub

Answer 2

Sub s()
Randomize'初始化随机变量
For i = 1 To 20'做20次循环
Debug.Print Int(100 + Rnd * 900);'输出随机数到立即窗口
Next
End Sub

Answer 3

Sub s()
Randomize'初始化随机变量
For i = 1 To 20'做20次循环
Debug.Print Int(100 + Rnd * 900);'输出随机数到立即窗口
Next
End Sub

Answer 4

楼上连数组都没有定义，也没有把产生的数打印出来……
Private Sub Command1_Click()
Dim a%(1 To 20)
Randomize
For i = 1 To 20
a(i) = Int(Rnd * 900 + 100)
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub

Answer 5

for i=1 to 20
randomize
m=int(rnd()*900+100)
next