A) Ptivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then '回车符的ASCⅡ码是13 a=Val(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) If KeyAscii=13 Then'回车符的ASCⅡ码是13 a=Val(Text1) If a>=0 And a<=100 Then Text1.SetFocus Else Text2.SetFocus:MsgBox("分数错") End If End If End Sub C) Ptivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then'回车符的ASCⅡ码是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) If KeyAscii=13 Then'回车符的ASCⅡ码是13 a=Val(Text1) If a>=0 And a<=100 Then Text2.SetFocus Else Text1.SetFocus:MsgBox("分数错") End If End If End Sub