A.Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Va1(Text1) If a>=0 Or a<=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox('分数错') End If End If End Sub B.Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) Ifa>=0 And a<=100 Then Text1.SetFocus Else Text2.SetFocus : MsgBox('分数错') End If End If End Sub C.Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a<0 And a>100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox('分数错') End If End If End Sub D.Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a>=0 And a<=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox('分数错') End If End If End Sub