求VB程序：计算机随机出一个1~100的整数，你来猜，每次提示大了、小了，最后输出猜几次得到的正确答案！急

窗体上放command1，text1，label1，打开代码窗口，复制下列代码：
Private Num As Integer

Private Sub Command1_Click() '点击猜下一个数
Call Form_Load
Text1.Text = ""
End Sub

Private Sub Form_Load()
Num = Rnd() * 100 + 1 '产生1-100随机数
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then
If (Not IsNumeric(Text1.Text)) Then
MsgBox "请输入数字", vbCritical
Else
If (Text1.Text > Num) Then
Label1.Caption = "您输入的数大了"
ElseIf (Text1.Text < Num) Then
Label1.Caption = "您输入的数小了"
Else
Label1.Caption = "恭喜，您猜对了！"
End If

End If

End If

End Sub