用Int和Rnd函数生成指定范围的随机整数

在窗体上放置三个文本框，分别用于输入随机数的上界和下界，显示生成的随机整数；一个命令按钮用于执行随机整数的生成和显示；三个标签，用于对文本框作简要说明。

输入代码如下：

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()

Randomize

End Sub