VB猜数字游戏程序源代码和思路只可以猜三次

来源：百度知道 编辑：UC知道 时间：2024/06/04 09:06:45
猜1-10十个数字，只有三次机会，每猜一次提示一次猜了几次还有几次机会，三次机会都没猜中，游戏结束！
还能不能在猜错的时候提示猜的数大了 或者猜的数小了？

根据你的补充,把上面的改了一下.
Private Sub Command1_Click()
Randomize
x = Int(Rnd * 10 + 1)
Do While y < 3
y = y + 1
n = Val(InputBox(""))
If n = x Then
MsgBox "猜对了"
Exit Do

Else
If n > x Then
MsgBox "猜大了" & "已猜" & y & "次" & "还有" & 3 - y & "机会"
Else

MsgBox "猜小了" & "已猜" & y & "次" & "还有" & 3 - y & "机会"
End If
End If
Loop
End Sub

Private Sub Command1_Click()
Randomize
x = Int(Rnd * 10 + 1)
Do While y < 3
y = y + 1
n = Val(InputBox(""))
If n = x Then
MsgBox "猜对了"
Exit Do
Else
MsgBox "已猜" & y & "次" & "还有" & 3 - y & "机会"
End If
Loop
End Sub