Vb猜商品价格(设计一个小游戏)

随机化？计时器

暗淡？jg？作为？整数，？c？作为？整数，？n？作为？整数

jg？=?Int(Rnd？*?1001)

做

n？=?Val(InputBox("请输入商品价格0~1000:"))

c？=?c？+?1

选择？案子？n

案子？-1

案子？是吗？& gt？少尉

MsgBox？“高，请输入-1放弃”

案子？是吗？& lt？少尉

MsgBox？●请输入-1放弃

结束？挑选

循环？什么时候？jg？& lt& gt？n？然后呢。n？& lt& gt？-1

如果？n？=?-1?然后

？MsgBox？“已经放弃了”

其他

？MsgBox？价格是多少？& amp？jg？& amp？“猜测次数”？& amp？c

结束？如果

结束？Sub给了你核心代码。