要求
1．    模仿“幸运52”节目中猜某商品价格的方式，设计一个猜数字游戏。
2．    按“开始”按钮开始游戏，用户将猜到“数字”输入到输入框内，然后按“回车”键或点击“判定”按钮确认。
3．    软件应根据输入的“数据”进行判断，并（用Text控件）显示提示结果：“高了！”、“低了！”、“已经很接近答案了，努力啊”和“恭喜您！您共猜了x后，答对了”。

什么是幸运52?

使用一个随机数..然后用个变量保存它..
再通过用户输入的数与之比较..就可以了.

版主是从火星来的，竟然不知道幸运52……

在工程窗口设置一个 单击按键
然后 再在窗口设置 两个变量 A 和 B名字可以随便起
然后 在 那个案件的 Click事件中 输入代码

Private Sub Command1_Click()
Dim a, b As Double
a = InputBox("输入你的答案", "birthday", "请输入10以内的数字")
b = 10
If x > b Then
MsgBox "你的答案大于b"
ElseIf b > x Then
MsgBox "你的答案小于b"
ElseIf x = b Then
MsgBox "你输入的正确恭喜你了"
End If
End Sub

我是个初学ＶＢ　的菜鸟，如果写的不对或不正确的话，请高手们不要笑话我

不好意思　我刚给你写的　有点问题　答案总是小于Ｂ　晕　
小第初学

Dim a, b As Double
a = InputBox("输入你的答案", "birthday", "请输入10以内的数字")
b = 6
If a > b Then
MsgBox "你的答案大于b"
ElseIf b > a Then
MsgBox "你的答案小于b"
ElseIf x = b Then
MsgBox "你输入的正确恭喜你了"
End If

问题已经解决了　

Dim a, b As Double
a = InputBox("输入你的答案", "birthday", "请输入10以内的数字")
b = 6
If a > b Then
MsgBox "你的答案大于b"
ElseIf b > a Then
MsgBox "你的答案小于b"
Else
MsgBox "你输入的正确恭喜你了"
End If