[单项选择题] 在窗体上从左到右有Text1、Text2两个文本框(见图)，要求运行程序时在Text1中输入—个分数后按回车键，则判断分数的合法性，若分数为0～100中的—个数，则光标移到Text2中

[单项选择题] 在窗体上从左到右有Text1、Text2两个文本框(见图)，要求运行程序时在Text1中输入—个分数后按回车键，则判断分数的合法性，若分数为0～100中的—个数，则光标移到Text2中

[单项选择题] 在窗体上从左到右有Text1、Text2两个文本框(见图)，要求运行程序时在Text1中输入—个分数后按回车键，则判断分数的合法性，若分数为0～100中的—个数，则光标移到Text2中；否则光标不动，并d出对话框“分数错”。下面程序中正确的是______。

A．Private Sub Text1_KeyPress(KeyAscii As IntegeIfKeyAscii=13 Then "回车符的ASCII码是13 a=Va1(Text1) If a＞=0 Or a＜=100 ThenText2.SetFocus ElseText1.SetFocus : MsgBox("分数错") End IfEnd If End Sub

B．Private Sub Text1_KeyPress(KeyAscii As IntegeIfKeyAscii=13 Then "回车符的ASCII码是13 a=Val(Text1) Ifa＞=0 And a＜=100 Then Text1.SetFocus Else Text2.SetFocus : MsgBox("分数错") End IfEnd If End Sub

C．Private Sub Text1_KeyPress(KeyAscii As IntegeIfKeyAscii=13 Then "回车符的ASCII码是13 a=Val(Text1) If a＜0 And a＞100 ThenText2.SetFocus ElseText1.SetFocus : MsgBox("分数错") End IfEnd If End Sub

D．Private Sub Text1_KeyPress(KeyAscii As IntegeIfKeyAscii=13 Then "回车符的ASCII码是13 a=Val(Text1) If a＞=0 And a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End IfEnd If End Sub

正确答案：

D

参考解析：

[评析] 本题要求的条件是0～100，那么条件表达式应该是a＞=0 And a＜=100。If语句的执行方式是当“条件”为真的时候，执行Then后面的语句；“条件”为假，执行Else后面的语句。