用Int 和Rnd 函数生成指定范围的随机整数;用Randmize函数初始化随机数发生器;用Val函数将数字字符串转换为数值。在窗体上放置三个文本框,分别用于输入随机数的上界和下界,显示生成的随机整数;一个命令按钮用于执行随机整数的生成和显示;三个标签,用于对文本框作简要说明。
输入代码如下:
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