Question

vb设计程序,从文本框中输入一个整数n(n<500),单击处理按钮时产生3个1~n的随机整数

并分别显示在3个标签中。
请问如何编程？

Answer 1

Private Sub Command1_Click()
Dim Plate As Integer
Dim a(3) As Integer
Randomize
Plate = Val(Text1.Text) - 1
For i = 1 To 3
a(i) = Int(Rnd() * Plate + 1)
Next
Label1.Caption = a(1)
Label2.Caption = a(2)
Label3.Caption = a(3)
End Sub

Answer 2

Private Sub Command1_Click()
Label1.Caption = 1 + Int(Rnd * Val(Text1.Text))
Label2.Caption = 1 + Int(Rnd * Val(Text1.Text))
Label3.Caption = 1 + Int(Rnd * Val(Text1.Text))

End Sub