单项选择题
在窗体上从左到右有Text1、Text2两个文本框（见下图）
要求程序运行时,在Text1中输入1个分数后按回车键,则判断分数合法性,若分数为0—100的1个数,则光标移到Text2中,否则光标不动,并弹出对话框显示"分数错"。下面程序中正确的是【 】
A．Private Sub Text1_KeyPress( KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=Val(Text1) If a>；0 Or a<=100 Then Text2.SetFocus E1se Textl.SetFocus：MsgBOX("分数错") End If End If End Sub
B．Private Sub Textl_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=val(Textl) If a>=0 And a<=100 Then Textl.SetFocus E1se Text2.SetFocus：MsgBOX("分数错") End If End If End Sub
C．Private Sub Textl_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=val(Textl) If a<0 And a>100 Then Text2.SetFoeus Else Textl.SetFocus：MsgBOX("分数错") End If End If End Sub
D．Private Sub Text1l一Key Press (Key Ascii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=Val(Text1) If a>=0 And a<=100 Then Text2.SetFocus Else Text1.Set Focus：Msgbox("分数错") End If End If End Sub
B．Private Sub Textl_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=val(Textl) If a>=0 And a<=100 Then Textl.SetFocus E1se Text2.SetFocus：MsgBOX("分数错") End If End If End Sub
C．Private Sub Textl_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=val(Textl) If a<0 And a>100 Then Text2.SetFoeus Else Textl.SetFocus：MsgBOX("分数错") End If End If End Sub
D．Private Sub Text1l一Key Press (Key Ascii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=Val(Text1) If a>=0 And a<=100 Then Text2.SetFocus Else Text1.Set Focus：Msgbox("分数错") End If End If End Sub
热门
试题