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函数随机数的产生。
-
word2016脚注和尾注怎么设置 脚注尾注如何转换
在我们日常工作中,编辑Word文档时,需要对一些名词、句子进行解释说明,那么我们需要用到脚注,或是尾注。那怎么进行设置呢,下面就来进行简单的说明。操作方法(01)双击打开word文档,选中需要加脚注的文本,然后点击菜单栏【引用】。(02)然后点击【插入脚注】。(03)此时会在此页...
-
怎么清理c盘垃圾
电脑太卡,垃圾太多时,怎么清理C盘垃圾呢,来看看这几种方法!一、可以用代码删除。(01)我们可以输入下面的代码:@echooff echo正在清除系统垃圾文件,请稍等...... del/f/s/q%systemdrive%\* del/f/s/q%systemdrive%\*._mp del/f/s/q%systemdrive%\* del/f/s/q%sy...
-
教你如何鉴别电脑新机,样机和返修机
购买电脑的时候,经常担心买到样机和返修机,本人从事商场电脑销售3年,教你如何鉴别新机和样机,最常见的就是样机,返修机重新包装当新机销售。操作方法(01)购买时,请仔细检查样机包装箱,如果包装箱过于破旧,而销售人员借以运输为由搪塞,电脑很有可能是长时间的滞销机,辨别滞...
-
cad中怎样画箭头
操作方法(01)我们在cad里输入快捷键“PL”(多段线),然后按空格键或回车键确定,确定后单击鼠标左键确定箭头第一个点,然后拖动鼠标确定箭头直线段的第二个点。(02)完成箭头直线段的绘制后我们开始画箭头部位,接着上面的操作输入“w”,输入箭头起点宽度,我们输入“5”(如果箭...