怎样生成一个1-6之间的随机整数(asp)?

panic2 2003-11-17 10:20:25
我的程序:
function Makeimgname()
imgname = Int((6 - 1 + 1) * Rnd + 1)
Makeimgname=imgname
end function
可是老生成6
...全文
202 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
超级大笨狼 2003-11-17
  • 打赏
  • 举报
回复
Visual Basic Scripting Edition

Randomize 语句
请参阅
Rnd 函数 | Timer 函数
要求
版本 1
初始化随机数生成器。

Randomize [number]
number 参数可以是任何有效的数值表达式。

说明
Randomize 使用 number 参数初始化 Rnd 函数的随机数生成器,赋给它新的种子值。如果省略 number,则使用系统计时器返回的值作为新的种子值。

如果不使用 Randomize,则第一次调用 Rnd 函数(无参数)时,它将使用相同的数字作为种子值,随后使用最后生成的数值作为种子值。

注意 要重复随机数的序列,请在使用数值参数调用 Randomize 之前,立即用负值参数调用 Rnd。使用相同的 number 值的 Randomize 不能重复先前的随机数序列。
下面例子举例说明如何使用 Randomize 语句:

Dim MyValue, Response
Randomize '初始化随机数生成器。
Do Until Response = vbNo
MyValue = Int((6 * Rnd) + 1) ' 产生 1 到 6 之间的随机数。
MsgBox MyValue
Response = MsgBox ("Roll again? ", vbYesNo)
Loop
要求
版本 1

请参阅
Rnd 函数 | Timer 函数



--------------------------------------------------------------------------------

© 2001 Microsoft Corporation. 保留所有权利。

dreamghost 2003-11-17
  • 打赏
  • 举报
回复
在imgname = Int((6 - 1 + 1) * Rnd + 1)行前面加上Randomize
就可以了

Randomize
imgname = Int((6 - 1 + 1) * Rnd + 1)
clon 2003-11-17
  • 打赏
  • 举报
回复
在开始加上randomize试试
tornado6643 2003-11-17
  • 打赏
  • 举报
回复
加一个Randomize试试看
function Makeimgname()
Randomize
imgname = Int((6 - 1 + 1) * Rnd + 1)
Makeimgname=imgname
end function

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧