VB6.0中随机种子Randomize的运用
- 电脑
- 关注:2.16W次
VB6.0中的Rnd函数可以产生0到1之间的数(0,1),我们可以用这个函数来模拟福利彩票号码的产生,但是在操作过程中,每次产生的号码序列都相同,接下来就介绍如何用随机种子Randomize避免这一现象。
操作方法
(01)打开VB6.0软件,新建一个工程,在窗体中添加一个Label控件,并将其名字改为“Lbl1”.
(02)双击窗体,进入代码编写窗口,在窗体的Form_Load事件中输入以下代码:Private Sub Form_Load()Dim a As Integer, i As Integerx27;RandomizeFor i = 1 To 10a = Int(Rnd * 90) + ion = ion & " " & aNext iEnd Sub
(03)关闭代码编辑窗口,按下F5键,运行刚刚输入的代码。结果Label控件中生成了10个随机数。记下这几个随机数,然后单击窗体关闭按钮,退出程序运行。
(04)再次按下F5键运行程序,发现Label控件中产生10个随机数与上次记下的一模一样,这不是我们想要的结果(福彩号码每次下注号码不一样)。
(05)双击窗体,进入代码编写窗口,在窗体的Form_Load事件做如下修改:将语句'Randomize的注释符号分号(')去掉。
(06)然后按F5再次运行程序,产生的随机数序列如图所示,与上次产生的随机数不同了,这样就达到了每次产生的随机数序列不同的效果。
特别提示
要用RND函数产生不同随机数,必须配合随机种子Randomize一起使用。
随机种子Randomize必须放在RND函数之前,控制RND函数随机数的产生。
- 文章版权属于文章作者所有,转载请注明 https://miaozhigu.com/zh-sg/sm/diannao/2ej77m.html