APrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =13Then
回车符的ASCII 码是13
a=Val(Text1)
If a >=0Or a <=100Then
Text2 . SetFocus
Else
Text1 . SetFocus :MsgBox ("分数错")
End If
End If
End Sub
BPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =13Then 回车符的ASCII 码是13
a=Val(Text1)
If a >=0And a <=100Then
Text1 . SetFocus
Else
Text2 . SetFocus :MsgBox ("分数错")
End If
End If
End Sub
CPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =13Then 回车符的ASCII 码是13
a=Val(Text1)
If a <0And a >100Then
Text2 . SetFocus
Else
Text1 . SetFocus :MsgBox ("分数错")
End If
End If
End Sub
DPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =13Then 回车符的ASCII 码是13
a=Val(Text1)
If a >=0And a <=100Then
Text2.SetFocus
Else
Text1.SetFocus :MsgBox ("分数错")
End If
End If
End Sub