救命啊！关于用vb写猜数字游戏的代码！网上很难找到符合要求的！

暗淡？n？作为？整数，？我？作为？整数，？答？作为？整数

使不规则化

n？=?Int(Rnd？*?100)?+?1

为了什么？我？=?1?去哪？10

答？=?Val(InputBox ("Please guess:"))

如果？答？=?n？然后

MsgBox？“答对了，恭喜！”

退出？潜水艇

埃尔瑟夫？答？& lt？n？然后

MsgBox？“太小了，继续猜。”

其他

MsgBox？“太大了，继续猜。”

结束？如果

然后

MsgBox？“猜测失败，游戏结束！”

结束？潜水艇