Sub GuessANumber Dim Guess, RndNum RndNum = Int((100) * Rnd(1) + 1) Guess = CInt(InputBox("Enter your guess:",,0)) Do If Eval("Guess = RndNum") Then MsgBox "祝贺你！猜对了！" Exit Sub Else Guess = CInt(InputBox("对不起，请再试一次",,0)) End If Loop Until Guess = 0End SubGuessANumber虽然用了随机函数,但每次的答案都是固定的比如我的机子上每次都是71请问为什么?能不能帮我解决了?

原因很简单 就是在程序的第三行中的RND的作用，当括号中的数字大于0时，它将产生一个恒定的直为0.705547，所以那个数字将定位为71，前提是年明白INT的作用和RND的作用

中奖游戏：
Dim a,bb=1do while b<>-1 and b<>0Randomizea=Cint(rnd()*10) '将随机数扩大10倍，然后取整'document.write ab=Cint(inputBox ("请输入一个数：(-1退出)","随机数游戏"))if b<>-1 and b<>0 then if a=b then msgBox "恭喜您，中奖了。" else msgBox "别灰心，祝您下次中奖！" end ifend ifloop

对的,你应该在Rnd函数前加上Randomize因子,不过好像Rnd函数用的也有点问题,3楼的

3楼的a可能是0