VB6.0中随机种子Randomize的运用
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函数随机数的产生。
-
怎么样校验Win10 ISO的SHA1 如何验证MD5值
如果你想了解自己下载的Windows10ISO文件是否为原版,这时该怎么样操作呢?我们可以通过验证ISO文件的SHA1与MD5值,下面就来看看如何验证SHA1与MD5的方法吧。操作方法(01)首先我们在下载Windows10ISO文件的页面,可以看到MD5与SHA1的数值,把这些数值复制保存起来。(02)接下...
-
如何使用PPT输入化学式
今天我给大家尤其式学生们介绍一个怎么使用PPT输入化学式的传统方法,希望能帮到你们,一起来看看吧!操作方法(01)首先你需要做的就是打开一个新建的文本,在上方的菜单栏里面选择插入选项卡,看到右边选择绘制横排文本框。(02)线使用鼠标选中文本框,右键单击鼠标,选择跳出选...
-
QQ通讯录怎么添加联系人?
QQ通讯录怎么添加联系人?操作方法(01)我们首先登录自己的QQ号。(02)然后点击软件右下角的应用管理器按钮,如图:(03)点击通讯录按钮,如图:(04)在通讯录中点击添加按钮,如图所示:(05)输入联系人的姓名等信息后点击确定按钮,如图所示:...
-
如何将CorelDraw文件转为jpg图片
CorelDraw保存的源文件是CDR格式,将文件转为jpg格式的图片。操作方法(01)准备好CorelDraw文件(02)然后打开CorelDraw软件进入界面,选择菜单栏中的-文件-打开,(03)找到准备好的cdr文件,将文件置入到文档中(04)当导出时,点击菜单栏中的-文件-导出(05)在保存类型中找到jpg格式,点...