问题 单项选择题

在窗体上从左到右有Text1、Text2两个文本框(见下图)

要求程序运行时,在Text1中输入1个分数后按回车键,则判断分数合法性,若分数为0—100的1个数,则光标移到Text2中,否则光标不动,并弹出对话框显示"分数错"。下面程序中正确的是【 】

A.Private Sub Text1_KeyPress( KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13a=Val(Text1)If a>;0 Or a<=100 ThenText2.SetFocusE1seTextl.SetFocus:MsgBOX("分数错")End IfEnd IfEnd Sub

B.Private Sub Textl_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then 回车符的ASCII码是13a=val(Textl)If a>=0 And a<=100 ThenTextl.SetFocusE1seText2.SetFocus:MsgBOX("分数错")End IfEnd IfEnd Sub

C.Private Sub Textl_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then 回车符的ASCII码是13a=val(Textl)If a<0 And a>100 ThenText2.SetFoeusElseTextl.SetFocus:MsgBOX("分数错")End IfEnd IfEnd Sub

D.Private Sub Text1l一Key Press (Key Ascii As Integer)If KeyAscii=13 Then 回车符的ASCII码是13a=Val(Text1)If a>=0 And a<=100 ThenText2.SetFocusElseText1.Set Focus:Msgbox("分数错")End IfEnd IfEnd Sub

答案

参考答案:D

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

阅读理解与欣赏

阅读短文,回答问题。     

       2001年7月13日,对于中国,对于北京,真是个特殊的日子。前两天,就有记者问我,如果这一天在莫斯科的投票我们胜出了,终于获得了2008年奥运会的举办权(quán),你的心情会怎样?我说我当然会很高兴,很激动。如今,好梦成真,我真的很高兴,很激动。其中的原因,除了有我和大家共同的感情之外,还有一点,就是我当过整整十年的体育记者,我曾经采访过 1992年巴塞罗那奥运会,和体育和奥运会有着一份特殊的感情。我亲自体味到,一个国家,一 座城市,能够举办一次奥运会,该是一件多么了不起的事情。     

1.写近、反义词。    

     特殊(        )(        )        高兴(        )(        )   

2.这段话选自《                 》一课,作者____                               。  

3.文中共同的感情是指________;特殊的感情是指                                                                。 

4.从文中画“              ”的句子中,我体会到                             。 

5.2008年奥运会在北京举行,作为一名小学生,你为奥运做了点什么?

                                                                                                                                                       

单项选择题