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

显示全部楼层 · 2008-12-30 16:05:38

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

千问 · 2008-12-30 16:05:38

Dim MyValue, Response Randomize '初始化随机数生成器。 Do Until Response = vbNo MyValue = Int((55 * Rnd) + 1) ' 产生 1 到 55 之间的随机数。 Response = MsgBox ("此次生成的随机数为:" & Cstr(MyValue) & vbCrLf & "是否重新产生随机数? ", vbYesNo) Loop...

千问 · 2008-12-30 16:05:38

给你一段简单的代码吧randomize()a=int(9*rnd())msgbox(a)vbs是vb的子集所以共通的看下下面的函数你就明白了vb随机函数：rnd()函数随即产生一个大于等于0但小于1的单精度浮点数为了生成某个范围内的随机整数，可使用以下公式：int((upperbound-lowerboun...