全国资格考试计算机等级考试二级VisualBasic语言程序设计笔试试题 模拟真题.doc

《全国资格考试计算机等级考试二级VisualBasic语言程序设计笔试试题 模拟真题.doc》由会员分享，可在线阅读，更多相关《全国资格考试计算机等级考试二级VisualBasic语言程序设计笔试试题 模拟真题.doc（12页珍藏版）》请在三一办公上搜索。

1、计算机等级考试二级Visual Basic语言程序设计笔试试卷一、选择题(1)一(20)每小题2分，(21)一(30)每小题3分，共30题，70分) 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。 (1)以下不能在“工程资源管理器”窗口中列出的文件类型是 A)bas B)res C)fnn D)ocx (2)以下关于窗体的描述中，错误的是 A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中 B)窗体的Ioad事件在加载窗体时发生 C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被

2、禁止 D)窗体的Height、width属性用于设置窗体的高和宽 (3)下列可作为Visual Basic变量名的是 A)A#A B)4A C)?xY D)constA (4)设有如下的记录类型 Type Student numberAs string name As String age As Integer End Type 则正确引用该记录类型变量的代码是 A) Studentname=”张红” B) Dim As Student sname”张红” C) Dim s As Type Student D) Dim s As Type Sname=”张红” s.Dame”张红” (5)函数

3、String(n，“str”)的功能是 A)把数值型数据转换为字符串 B)返回由n个字符组成的字符串 C)从字符串中取出n个字符 D)从字符串中第n个字符的位置开始取子字符串 (6)将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是 A)Cos(a+b)A2十5*exp(2) B)Cos2(a+b)+5*exp(2) C)Cos(a+b)2十5*ln(2) D)Cos2(a+b)+5*ln(2) (7)在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过 程： PrlVate Sub CommandlC1icko a$=soft

4、ware and hardware b$Right(a$,8) c$=Mid(a$,1，8) Msgbox a$,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是 A)softWare and hardware B)software C)hardwafe D)1 (8)执行如下语句： ainutBox(”Today”，”TomorroW，”Yesterday”,Day before yesterday，5) 将显示一个输入对话框，在对话框的输入区中显示的信息是 A)Today B)Tomorrow C)Yesterday D)Day before yesterday (9

5、)表示滚动条控件取值范围最大值的属性是 A)Max B)LargeChange C)Value D)MaxMin (10)在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示 若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是 A) Private Sub listl_Click() LabellCaptionlist1.listlndex End Sub B)Private Sub Listl_C1ick()LabellNanleListllistindex End Sub C)Private Sub Li

6、st1_Click()Label1.Name=List1.TextEnd SubD)Private Sub List1_Click()Label1.Caption=List1.TextEnd Sub(11)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x=0n=InputBox()For i= 1 To nFor j = 1 To ix = x +1Next jNext iPrint xEnd Sub程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是_。A)3 B)4 C)5 D)6 (12)以下关于菜单

7、的叙述中,错误的是_。A)在程序运行过程中可以增加或减少菜单项B)如果把一个菜单的Enabled属性设置为False,则可删除该菜单项 C)弹出式菜单在菜单编辑器中设计D)利用控件数组可以实现菜单项的增加或减少(13)在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是_。A)TagB)Index C)ListIndexD)Name(14)在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Option Base 0Private Sub Command1_Click()Dim city As Variantcity = Arra

8、y(北京,上海,天津,重庆)Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。A)空白B)错误提示C)北京D)上海(15)假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1UCase(Mid(S，i，1)十s1 Next i Funs1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Prlvate Sub Commmldl_Click() Dim Str1 As String，Str2 As String

9、 Strlinputbox(”请输入一个字符串”) Str2=Fun(Strl) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为 A)abcdefg B)ABCDEFG C)gfedcba D)GFEDCBA (16)设有语句 open c：TestDat For OutPut As#1 则以下错误的叙述是 A)该语句打开C盘根目录下一个己存在的文件TestDat B)该语句在C盘根目录下建立一个名为TestDat的文件 C)该语句建立的文件的文件号为1 D)执行该语句后，就可以通过Pri

10、nt#语句向文件TestDat中写入信息 (17)以下叙述中错误的是 A)用Shell函数可以调用能够在Windows下运行的应用程序 B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数 C)调用Shell函数的格式应为：Shell() D)用Shell函数不能执行DoS命令 (18)以下关于过程及过程参数的描述中，错误的是 A)过程的参数可以是控件名称 B)用数组作为过程的参数时，使用的是“传地址”方式 C)只有函数过程能够将过程中处理的信息传回到调用的程序中 D)窗体可以作为过程的参数 (19)在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：

11、Private Sub Txta_KeyPress(keyascii as integer) End Sub 若焦点位于文本框中，则能够触发KeyPress事件的操作是 A)单击鼠标 B)双击文本框 C)鼠标滑过文本框 D)按下键盘上的某个键 (20)目录列表框的Path属性的作用是 A)显示当前驱动器或指定驱动器上的路径 B)显示当前驱动器或指定驱动器上的某目录下的文件名 c)显示根目录下的文件名 D)只显示当前路径下的文件 (21)假定有如下事件过程： PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As S

12、ingle，Y As Single) If Button2 then PopupMenu popForm End if End Sub 则以下描述中错误的是 A)该过程的功能是弹出一个菜单 B)popForm 是在菜单编辑器中定义的弹出式菜单的名称 C)参数X、Y指明鼠标的当前位置 D)Button=2 表示按下的是鼠标左键 (22)以下能够正确计算n!的程序是 A) Private Sub Commandl_ClicK() n5:x1 Do X=x*1 ii十1 Loop While in Print x End Sub B) Private Sub Commandl_Click() n5:

13、 x1：i=1 Do XX*1 ii十1 Loop While in Print x End Sub C)Private Sub Commandl_Click() n=5：x1：i1 Do X=X*1 ii十1 Loop while i处将程序补充完整。Private Sub Combol_12 (KeyAscii As integer) 1f KeyAscii13 Then Fori0 To Combo1listCount1 1f Combo1Text_ 13 Ihen Label2Caption”输入项己在组合框中” ExIt Sub End lf Next i Label2Caption

14、“已成功添加输入项” Combo1_ 14 CombO1Text End lf End Sub (10)设有如下程序 Private sub search(a()As variant，ByVal key As Variant，index%) Dim I ForILBound(a)To UBound(a) If keya(I) Then indexI Exit Sub End If Next I Index-1 End Sub Private Sub Form_Load() Show Dtm b() As Variant Dim n As Integer bArray(1，3，5，7，9，11，

15、13，15) Call search(b，11，n) Printt n End Sub 程序运行后，输出结果是_。 Visual Basic笔试答案一、选择题1-5：DADBB 6-10：ACCAD 11-15：DBBDD 16-20：ABCDA 21-25：DCBBC 26-30：CCDCA二、填空题(1) 组合框(2) 顺序访问方式(3) 9(4) Picture1.picture=LoadPicture(d:pica.jpg)(5) Timer(6) Rnd和x Mod 5和x(7) 30和70(8) 123456789(9) KeyPress和Combo1.List(i)和AddItem(10) 5