vb程序设计 猜数游戏

Question

第一张图是我的作业要求，图二和图三是我编写的程序，图四是结果，但是在这个文本框中我只要一输入数字，蓝色的字体就会显示出来，想要按照要求来，程序应该怎么改？？

Answer 1

Dim a As Byte
Dim b As Byte  '回车次数
Private Sub Command1_Click()
Randomize
a = Int(Rnd * 100 + 1)
Command1.Enabled = False
b = 0
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Command1.Enabled = False Then
  If b = 10 Then
  Label2.Caption = "运气真差！请重新出题！"
  Text1.Enabeld = False 
  Command1.Enabled = True
  Exit Sub
  End If
  If Val(Text1.Text) = a Then
    Command1.Enabled = True
    Label2.Caption = "正确"
  ElseIf Val(Text1.Text) < a Then
    Label2.Caption = "太小"
    b = b + 1
  ElseIf Val(Text1.Text) > a Then
    Label2.Caption = "太大"
    b = b + 1
  End If
End If
End Sub

Answer 2

把if times<4的判断代码写到输入正确时的条件里就行了。