Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "单击"
End Sub

Private Sub Label1_change()
Label1.Caption = x
End Sub

Private Sub Label2_change()
Label2.Caption = y
End Sub

Private Sub Label3_change()
Label3.Caption = z
End Sub

Private Sub command1_Change()
Randomize
Dim n As Integer, x As Integer, y As Integer, z As Integer
x = Int((n - 1 + 1) * Rnd + 1)
y = Int((n - 1 + 1) * Rnd + 1)
z = Int((n - 1 + 1) * Rnd + 1)
End Sub

在指定范围内产生3个随机整数，范围n在文本框中输入，3个随机整数显示在3个标签上