一个很简单的小程序，叫猜数游戏，每次随机产生1个0-100的数字，然后自己输入一个数字和它比较。我按照书上给的代码编的，可是每次产生的数都是0，哪里出了问题？代码如下：
Private Sub Combo1_Change()
Dim As Integer
End Sub
Private Sub cmbRnd_Click()
i = Int(Rnd * 100)
txtDisplay.SetFocus
End Sub
Private Sub cmdComp_Click()
If Val(txtDisplay.Text) > i Then
t1 = MsgBox("大了", vbOKOnly + vbExclamation, "系统提示")
ElseIf Val(txtDisplay.Text)i Thent1 = Ms...
