问题 单项选择题

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

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

答案

参考答案:D

解析: 根据题意,若分数是0~100中的数,则光标移到Text2中,否则光标不动,并弹出对话框显示"分数错",所以条件语句的写法应该是:
If a>=0 And a<=100 Then
Text2.SetFocus
Else
Text1.SetFocus:Msgbox("分数错")
End If

选择题
单项选择题