Private Sub Command1_Click()
Dim m As Integer
Dim n As Integer
m = Val(Text1.Text)
n = Val(Text2.Text)
Text3.Text = n + Int(Rnd * (m -n + 1))
End Sub
Private Sub Form_Load()
Randomize '对随机数发生器进行初始化
End Sub
Private Sub Command1_Click()
Dim m As Integer
Dim n As Integer
m = Val(Text1.Text)
n = Val(Text2.Text)
Text3.Text = n + Int(Rnd * (m -n + 1))
End Sub
Private Sub Form_Load()
Randomize '对随机数发生器进行初始化
End Sub