VB猜数字游戏!

Question

Dim c As Long
Private Sub Command1_Click()
c = Int(100 * Rnd + 1)
End Sub

Private Sub CommandOK_Click()
b = InputBox("请输入一个数字(1-100)", "猜数字")
If b = "" Or b > 100 Or b < 1 Then MsgBox "请输入正确的值!": Exit Sub
If b = c Then
m = MsgBox("恭喜你猜对了!", 0, "恭喜")
ElseIf b > c Then
txt.Text = b & "太大了!"
e = MsgBox("数字太大了!", 0, "错误")
CommandOK.SetFocus
Else
txt.Text = b & "太小了!"
e = MsgBox("数字太小了!", 0, "错误")
CommandOK.SetFocus
End If
End Sub
Private Sub txt_Change()
LAB.Caption = txt.Text
End Sub

Private Sub CommandOUT_Click()
End
End Sub

Private Sub Form_Load()
c = Int(100 * Rnd + 1)
End Sub

如何让LAB中出现前面所有的数字,而不是按一次OK LAB中的数字就被前一次替换掉了...
谢谢!
如果哪位大虾可以帮忙更加完善下, 会有额外的分的
辛苦了!

Answer 1

建议使用 列表框 listbox ，这样看起来更清晰

代码也做了一些调整，你看看吧：

Dim c As Long

Private Sub Command1_Click()
c = Int(100 * Rnd + 1)
End Sub

Private Sub CommandOK_Click()
Dim b As Long
b = Val(InputBox("请输入一个数字(1-100)", "猜数字"))

Select Case b
Case Is > 100 Or b < 1:
MsgBox "请输入正确的值!"
Exit Sub
Case c:
txt.Text = b & " 恭喜你猜对了!"
MsgBox txt.Text, 0, "恭喜"
Case Is > c:
txt.Text = b & " 太大了!"
MsgBox txt.Text, 0, "错误"
CommandOK.SetFocus
Case Is < c:
txt.Text = b & " 太小了!"
MsgBox txt.Text, 0, "错误"
CommandOK.SetFocus
End Select
List1.AddItem txt.Text
End Sub

Private Sub CommandOUT_Click()
End
End Sub

Private Sub Form_Load()
c = Int(100 * Rnd + 1)
End Sub

Answer 2

LAB.Caption = txt.Text & vbCrLf & LAB.Caption
不过我建议你使用text控件，使用多行输入，这样有滚动条。而使用label控件是无法使用滚动条进行查看的，而且显示有限。