case 为什么运转不起来呢？
我写了个猜数字的代码，就是窗体随机生成一个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
