生成指定范围的随机数

Private Sub Command1_Click()
Dim m As Integer
Dim n As Integer
m=Val(Text1.Text)
n=Val(Text2.Text)
Text3.Text=m+Int(Rnd*(n-m+1))
End Sub
Private Sub Form_load()
Randomise
End Sub