日期:2014-05-17  浏览次数:20916 次

随机数字问题
<%response.write   "随机数字是 "&Rnd& " <br> "%>
我想显示的是一个随机数字,
为什么每次显示的都是0.7055475


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