( 34 )在窗体上从左到右有 Text1 、 Text2 两个文本框(见图),要求程序运行时,在 Text1 中输入 1 个分数后按回车键 , 则判断分数的合法性 , 若分数为 0~100 中的 1 个数 , 周围光标移到 Text2 中 ; 否则光标不动,并弹出对话框显示 “ 分数错 ” ,下面正确的是( )
A.
) Private Sub Text1__KeyPress ( KeyAscii AS Integer ) If KeyAscii=13 Then ‘ 回车符的 ACSII 码是 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 ‘ 回车符的 ACSII 码是 13 a=Val ( Text1 ) If a>=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 ) If KeyAscii=13 Then ‘ 回车符的 ACSII 码是 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 ‘ 回车符的 ACSII 码是 13 a=Val ( Text1 ) If a>=0 And a<=100 Then Text2.SetFocus Else Text1. SetFocus : MsgBox ( “ 分数错 ” ) End If End If End Sub