急！用Vbs编一个随机数产生器

Posted 2023-03-19

要求：产生1到55之间的随机数，点下一个不断产生。 好的加分！

Dim MyValue, Response
Randomize '初始化随机数生成器。
Do Until Response = vbNo
MyValue = Int((55 * Rnd) + 1) ' 产生 1 到 55 之间的随机数。
Response = MsgBox ("此次生成的随机数为:" & Cstr(MyValue) & vbCrLf & "是否重新产生随机数? ", vbYesNo)
Loop 参考技术A 给你一段简单的代码吧
randomize()
a=
int(9*rnd())
msgbox(a)
vbs是vb的子集
所以共通的
看下下面的函数
你就明白了
vb随机函数：rnd()函数随即产生一个大于等于0但小于1的单精度浮点数
为了生成某个范围内的随机整数，可使用以下公式：
int((upperbound
-
lowerbound
+
1)
*
rnd
+
lowerbound)
这里，upperbound
是随机数范围的上限，而
lowerbound
则是随机数范围的下限。
第一次运行程序输出的随机数结果,和之后每次运行程序输出的随机数结果都是一致的.在随机函数之前
用
randomize
缺点：随机函数的域值不够，第二重复性过高。
我的博客:www.52sky.org