vb编程4--猜数

来源：百度知道 编辑：UC知道 时间：2024/06/24 08:31:05
4.在Command1的Click事件中编制一个简单的猜数程序。要求先让计算机随机产生一个小于100的正整数x

，用户通过输入对话框输入你猜的数，如果该数大于x，提示“太大了”；如果该数小于x，提示“太小了

”；并允许重猜。最多可以猜10次。若猜中了，提示“猜中了”，并说明猜了几次。

Private Sub Command1_Click()
Randomize
ans = Int(Rnd * 100)
a = -1
i = 1
While a <> ans And i < 10
a = Val(InputBox("第" & i & "次，请输入一个0-100的数"))
If a < ans Then
MsgBox "太小了"
ElseIf a > ans Then
MsgBox "太大了"
End If
i = i + 1
Wend
If i < 10 Then
MsgBox "猜对了，共猜了" & i & "次"
Else
MsgBox "猜错了，答案是" & ans
End If
End Sub