找考题网-背景图
未分类题

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

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

A.shangxuebA.cn/images/ct_ctvbbz_ctvbbchoose_00171(20094).jpg'>
A.Private
B.SetFocus
C.SetFocus
D.Private
E.SetFocus
F.SetFocus
G.Private
H.SetFocus
I.SetFocus
J.Private
K.SetFocus
L.SetFocus

【参考答案】

D
解析:本题要求的条件是0~100,那么条件表达式应该是a>=0 And a<=100。If语句的执行方式是当“条件”为真的时候,执行Then后面的语句;“条件”为假,执行Else后面的语句。