您的位置:首页 > 其它

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

2012-04-24 15:55 357 查看
在窗体上放置三个文本框,分别用于输入随机数的上界和下界,显示生成的随机整数;一个命令按钮用于执行随机整数的生成和显示;三个标签,用于对文本框作简要说明。
输入代码如下:
Private Sub Command1_Click()
Dim m As Integer
Dim n As Integer
<
4000
span style="font-size:24px;">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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  command
相关文章推荐