我写了个猜数字的代码，就是窗体随机生成一个100以内的数字，然后你向文本框里填入你猜测的数字，如果大了，消息框提示你大了，如果小了，就提示你小了，直到猜测对了为止

我做了，可是无论我填入什么数字，都显示大了，哪怕是1

这究竟是怎么回事？？
Private Sub Form_Load()
Dim c
Randomize
c = Int((100 * Rnd) + 1)
End Sub

Private Sub Command1_Click()
Dim b As Integer

b = Val(Text.Text)

Select Case b
Case Is = c
MsgBox "恭喜你答对了"

Case Is > c:
MsgBox "太大了"
Text.SetFocus
Case Is < c:
MsgBox "太小了"
Text.SetFocus
End Select

List1.AddItem "你回答的数字是" & b

Randomize

End Sub

我换成常量，试了，还不行啊，这究竟怎么了？很简单的东西，是我写错了，还是我的VB软件有毛病？不可能的啊

感谢各位指点，我已经搞清楚了