如何在VB中灵活运用随机函数和时间函数 梁必弘 1997-01-01 　　我们知道，在Ｑｕｉｃｋ　Ｂａｓｉｃ和Ｔｕｒｂｏ　Ｂａｓｉｃ语言中，都有Ｒａｎｄｏｍｉｚｅ语句和Ｒｎｄ随机函数，在Ｖｉｓｕａｌ　Ｂａｓｉｃ中，也同样有这两种语句函数，而且功能还比前者更强。 　　在ＶＢ中，Ｒａｎｄｏｍｉｚｅ后可带参数　［Ｎｕｍｂｅｒ］或任意数字表达式： 　　格式：Ｒａｎｄｏｍｉｚｅ　　［Ｎｕｍｂｅｒ］，假如Ｒａｎｄｏｍｉｚｅ后不带任何参数和表达式，那么初始值将自动由ＶＢ的Ｔｉｍｅｒ函数（时间函数）提供，这样用Ｒｎｄ函数来取随机数时，就不会出现相同的随机数序列；而Ｔｉｍｅｒ也是ＶＢ所特有一个函数，它的作用是返回１２：００ＡＭ（午夜）后所经过的秒数，假如现在时间是８：１０：３０ＡＭ，那么它的返回值就是８＊３６００＋１０＊６０＋３０＝２９４３０。 　　由于ＶＢ中没有Ｑｕｉｃｋ　Ｂａｓｉｃ或Ｔｕｒｂｏ　Ｂａｓｉｃ的ＳＬＥＥＰ（休眠）函数，我们在程序设计中虽然可以用ＶＢ的Ｔｉｍｅｒ控件（与Ｔｉｍｅｒ函数不同）来控制程序的延时运行，但是Ｔｉｍｅｒ控件有一个缺点，就是须ＣＰＵ抢先为其执行，从而使ＣＰＵ腾不出时间来处理其它正在运行的程序，在多个Ｔｉｍｅｒ控件同时运行时，这种缺点尤其明显。幸好ＶＢ允许我们自定义函数，这样我们可以（在Ｍｏｄｕｌｅ全局模中）自定义ＳＬＥＥＰ延时函数了： 　　Ｆｕｎｃｔｉｏｎ　Ｓｌｅｅｐ（ｘ　ａｓ　ｉｎｔｅｇｅｒ） 　　Ｄｉｍ　ＳｔａｒＴｉｍｅ　ａｓ　Ｓｉｎｇｌｅ 　　ＳｔａｒｔＴｉｍｅ＝ＴｉｍｅｒＤＯ　Ｕｎｔｉｌ　（Ｔｉｍｅｒ－ＳｔａｒＴｉｍｅ）＞Ｘ 　　Ｌｏｏｐ 　　Ｅｎｄ　Ｓｕｂ 　　使用时只要在程序中别入Ｓｌｅｅｐ语句和Ｔｉｍｅｒ函数结合起来，再用一条取值公式：ＩＮＴ（ｕｐｐｅｒ－ｌｏｗｅｒ＋１）＊Ｒｎｄ＋ｌｏｗｅｒ）（ｕｐｐｅｒ是取数范围的最大数，ｌｏｗｅｒ是取数范围的最小数），可取得指定范围的随机整数。以下例子就是模拟掷骰子来产生１到６之间的随机数： 　　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｐｉｃｔｕｒｅｌ＿Ｃｌｉｃｋ（） 　　ＤＩｍ　Ｓ（６）　ａｓ　Ｉｎｔｅｇｅｒ　　＇定义数组 　　Ｒａｎｄｏｍｉｚｅ　　＇以Ｔｉｍｅｒ为种子取随机数 　　Ｆｏｒ　ｉ＝１　ｔｏ　６　　＇取６个随机数 　　Ｓ（ｉ）＝Ｉｎｔ（６－１＋１）＊Ｒｎｄ＋１　　＇取１至６之间的随机数 　　Ｐｉｃｔｕｒｅｌ．Ｐｒｉｎｔ　"xlhＳ（"xlh＆ｉ＆"xlh）＝"xlh，Ｓ（ｉ）　　＇在图片框中打印出随机数 　　Ｓｌｅｅｐ（１）　　＇停留１秒 　　Ｎｅｘｔ　ｉ 　　Ｅｎｄ　Ｓｕｂ 　　但是，有时我们所需的是比较大范围而且又不允许出现相同的随机数字的序列的时候，可参考以下这个例子：（模拟取得５２张扑克牌和知道它们的花色、点数） 　　（在Ｍｏｄｕｌｅ全局模块中输入以下语句） 　　Ｇｌｏｂａｌ　Ｃａｒｄ（５２），ＣａｒｄＤＳ（５２），ＣａｒｄＨＳ（５２）　ａｓ　Ｉｎｔｅｇｅｒ　＇定义扑克牌的数组 　　Ｆｕｎｃｔｉｏｎ　ＣａｒｄＮｕｂｅｒ（）　ａｓ　Ｉｎｇｅｇｅｒ　　＇自定义ＣａｒｄＮｕｂｅｒ函数 　　Ｒａｎｄｏｍｉｚｅ　　＇以Ｔｉｍｅｒ为种子取随机数 　　ＣａｒｄＮｕｂｅｒ＝Ｉｎｔ（５１－０＋１）＊Ｒｎｄ＋０）　　＇ＣａｒｄＮｕｂｅｒ取０到５１之间的随机数 　　Ｅｎｄ　Ｆｕｎｃｔｉｏｎ 　　Ｓｕｂ　ＱＣａｒｄ　（）　　　＇求扑克牌的子程序 　　Ｆｏｒ　ｉ＝１　ｔｏ５２　　　＇取５２张扑克牌 　　１０　ＮＢ＝ＣａｒｄＮｕｂｅｒ 　　　＇取ＣａｒｄＮｕｂｅｒ函数的值赋给临时变量ＮＢ 　　Ｆｏｒ　ｊ＝１　ｔｏ　Ｉ　　＇扦环ｉ次 　　Ｗｈｉｌｅ　ＮＢ＝Ｃａｒｄ（ｉ） 　　＇判断ＮＢ的值是否与已发的第ｉ张牌相同 　　　　Ｇｏｔｏ　１０　　＇相同则转向第１０行语句 　　Ｗｅｎｄ 　　Ｎｅｘｔ　ｊＣａｒｄ（ｉ）＝ＮＢ　　＇把变量ＮＢ的值赋值给第ｉ张扑克牌 　　ＣａｒｄＤＳ（ｉ）＝Ｃａｒｄ（ｉ）　ＤＩＶ　４＋１　　＇计算第ｉ张扑克牌的点数值并赋给ＣｒａｄＤＳ（ｉ） 　　ＣａｒｄＨＳ（ｉ）＝Ｃａｒｄ（ｉ）　Ｍｏｄ　４ 　　　＇计算第ｉ张扑克牌的花色值并赋给ＣａｒｄＨＳ（ｉ） 　　Ｎｅｘｔ　ｉ 　　Ｅｎｄ　Ｓｕｂ 　　说明：在上例中，把随机数范围定义为０至５１是因为方便点数的判断和花色的取模运算，５２个随机数分为每四个数１组，共１３组（扑克牌中的Ａ、２、３……到Ｋ），取模时（０，１，２，３）为扑克牌四种花色（黑桃，红桃，梅花，方块）。随机数（０，１，２，３）为Ａ的四张牌（黑桃，红桃，梅花，方块），随机数（４，５，６，７）为２的四张牌（黑桃，红桃……），……如此类推到随机数（４８，４９，５０，５１）Ｋ的四张牌（黑桃，红桃，梅花，方块），在计算扑克牌的点数值时采用整除４加１的算法，如当Ｃａｒｄ（ｉ）的值是２时，ＣａｒｄＤＳ（ｉ）值于１（即Ａ），取模时ＣａｒｄＨＳ（ｉ）等于２（梅花），也就是说Ｃａｒｄ（ｉ）这张牌是梅花Ａ……如此类推。 　　在掌握了随机函数和时间函数后，我们就可以很方便地利用ＶＢ设计一些程序或游戏了。