做一个VB游戏，难度不要太高，程序大概十句话，只要简单和案例语句就够了，希望在线帮助。

私有子命令1_Click()

Iguess = Int(Rnd * 3) + 1

做

YouGuess = Val(InputBox)(“我已经决定了，你的问题是什么？(1=锤子，2=剪刀，3=布:“，《猜拳》))

循环直到YouGuess & lt= 3且YouGuess & gt= 1

如果Iguess = YouGuess，那么

k = 1

ElseIf Iguess & lt那么YouGuess Xor Abs(Iguess-YouGuess)= 2

k = 2

其他

k = 0

如果…就会结束

MsgBox "我出局了:"+Mid("锤子剪刀布"，Iguess * 2-1，2)+"，你出局了:"+_

Mid("锤子和剪刀"，你猜* 2-1，2)+vbcrlf+mid("你赢了平局我赢了"，k * 3+1，3)。

末端接头

私有子窗体_Load()

命令1。Caption = "开始猜测"

随机化计时器

末端接头