计算机等级考试二级VB全真模拟卷二0小型电动机

计算机等级考试二级VB全真模拟卷（二）

计算机等级考试二级VB全真模拟卷（二） 2011年12月10日 来源： 一、选择题：35题，2分/题，共70分下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。1.保存一个工程至少应保存两个文件，这两个文件分别是（B）A)文本文件和工程文件B)窗体文件和工程文件C)窗体文件和标准模块文件D)类模块文件和工程文件 2.当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是（B）A)MousePictureB)StyleC)DownPictureD)DisabledPicture

3.下面叙述正确的是（B）A)Spc函数既能用于Print方法中，也能用于表达式B)Space函数既能用于Print方法中，也能用于表达式C)Spc函数与Space函数均生成空格，没有区别D)以上说法均不对

4.假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（D）A)bool_x="False"B)bool_x=.False.C)bool_x=#False#D)bool_x=False

5.要存放如下方阵的数据，在不浪费存储空间的基础上，能实现声明的语句是（D）1 2 32 4 63 6 9A)Dim A(9) As IntegerB)Dim A(3,3) As IntegerC)Dim A(-1 to 1,-3 to -1) As SingleD)Dim A(-3 to -1,1 to 3) As Integer

6.下面子过程语句说明合法的是（D）A)Sub f1（ByVal n() As Integer）B)Sub f1（n() As Integer）As IntegerC)Function f1（f1 As Integer） As IntegerD)Finction f1（ByVal n As Integer）

7.已知X>Y，A>B，正确表示它们之间关系的式子是（B）A)Sgn(Y-X)-sgn(A-B)<0B)Sgn(Y-X)-Sgn(A-B)=-2C)Sgn(Y-X)-Sgn(A-B)=0D)Sgn(Y-X)-Sgn(A-B)=-1

8.设a=2,b=4,c=6，下列表达式的值为真的是（D）A)a>b And cB)a>b Or cC)a>b Xor cD)a>b Eqv c9.设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（B）A) “中华民国”B) “中国人民”C) “中共人民”D) “人民共和”

10.下列表达式的值为2123的是（B）A) Val("123asd") & 2000B) Val("123asd") + 2000C) Str(123) & "2000"D)Str(123)+"2000"

11.下列叙述不正确的是（C）A)InputBox函数返回值为字符型B)MsgBox函数返回值为所单击按钮的键值C)MsgBox语句返回值为所单击按钮的键值D)Shell函数返回值为所执行文件的工作代码

12.下列叙述不正确的是（A）A)命令按钮的默认属性为CaptionB)标签的默主属性为CaptionC)复选框的默认属性为valueD)滚动条的默认属性为value

13.下列各程序段中，正确的是（C）A)If 10 < 10 Then a=a+10B)If a> 10 Then a= a+1 Else a= a+ 5 End IfC)If a <=10 Thena=a + 1ElseEnd IfD)If a <=10 Thena=a + 1Else If a <=20 Thena=a + 10End If

14.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click()For I= 1 to 2For J=1 to IPrint String (I,"Hello");Next JPrint Next IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（B）A)HHHHHHB)HHHHHC)HHHHHD)HHHHHHH

15.为了使图像框与图片框的大小适应图片的大小 ，下边属性组设置正确的是（B）A)Autosize= Ture Stretch= TrueB)Autosize= Ture Stretch= FalseC)Autosize= False Stretch= TrueD)Autosize= False Stretch= False

16.假设 x的值为5，则在执行以下语句时，其输出结果为“OK”的Select case语句是（C）A)Select Case XCase 10 to 1Print "OK"End SelectB)Select Case XCase Is > 5,Is <5Print "OK"End SelectC)Select Case XCase Is > 5,1,3 to 10Print "OK"End SelectD)Select Case XCase 1,3 Is > 5Print "OK"End Select

17.有如下程序：Private Sub Form_Click()Dim check As Boolean, n As Integercheck=Falsen= 0DoDo While n< 10n=n + 1If n= 5 Then check=TrueExit DoEnd IfPrint n；LoopLoop Until check=TrueEnd Sub程序运行后，输出的结果是（B）A)1 2 3B)1 2 3 4C)1 2 3 4 5D)1 2 3 4 5 6

18.在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（A）A)Private Sub Text1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.text)End SubB)Private Sub Text1_Los

桐乡惠尔洁净用品有限公司

泊头市鑫磊家具有限责任公司

镇平县天马出租车有限公司

江西金阳带钢有限公司

龙海同记食品有限公司

万和热水器芜湖维修服务

北京荣达宜明佳隔断装饰工程有限公司

石家庄市科达潜水电泵厂

北京冰崎机电设备有限公司

沧州雅浩环保设备有限公司