vb 打印 10个三位随机整数的程序

建一个Command1.
T1.
Private Sub Command1_Click()
Randomize
Dim i As Integer
For i = 1 To 10
Print Int(Rnd * 100) + 900
Next
End Sub
======================
T2.
Private Sub Command1_Click()
Dim i As Integer, t As Integer, s As Integer
t = InputBox("t=?")
s = 1
For i = 1 To t
s = s * i
Next
Print s
End Sub

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Print Fix(Rnd * 900) + 100
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer, n As Integer, t as Double
t = 1
n = Val(InputBox("输入n"))
For i = 2 To n
t = t * i
Next i
Print "t=";t
End Sub

第一题：加个按钮
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Print Fix(Rnd * 900) + 100
Next i
End Sub
第二题目：加个按钮
Private Sub Command2_Click()
Di