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

admin2009-03-17  41

问题 在窗体上从左到右有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

答案D

解析 本题要求的条件是0~100,那么条件表达式应该是a>=0 And a<=100。If语句的执行方式是当“条件”为真的时候,执行Then后面的语句;“条件”为假,执行Else后面的语句。
转载请注明原文地址:https://jikaoti.com/ti/cWq0FFFM
0

最新回复(0)