vbs怎么产生0-10的随机数呀？

Posted 2023-03-19

给你一段简单的代码吧

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 参考技术A 楼上的不会vbs不要误人子弟。。。。
int在vbs中是将 字符串(比如说"2") 转换为 数值 2

如果只是int(rnd)的话，该数值默认为0 rnd的范围由前面的参数（也就是*前的数值，缺省则为0）限定 比如说6 * Rnd 则rnd的范围为0-6 参考技术B randomize
msgbox fix(rnd*9+1)

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

要求：产生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