月全国计算机等级考试二级VB试题

1、2011年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计(考试时间90分钟，满分100分)一、选择题(每小题2分，共70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。1)下列叙述中正确的是A)算法就是程序 B) 设计算法时只需要考虑数据结构的设计C)设计算法时只需要考虑结果的可能性 D)以上三种说法都不对2)下列关于线性链表的叙述只能够，正确的是A)各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B) 各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C)进行插

2、入与删除时，不需要移动表中的元素D)以上三种说法都不对3)下列关于二叉树的叙述中，正确的是A)叶子结点总是比度为2的结点少一个B)叶子结点总是比度为2的结点多以个C)叶子结点数是度为2的结点数的两倍D)度为2的结点数是度为1的结点数的两倍4)软件按功能可以分为应用软件，系统软件和支撑软件(或工具软件)下面属于应用软件的是A)学生成绩管理系统 B)C语言编译程序 C) UNIX操作系统 D)数据库管理系统5)某系统总体结构图如下图所示：该系统总体结构图的深度是A)7 B) 6 C) 3 D) 26)程序调试的任务是A)设计测试用例 B) 验证程序的正确性C)发现程序中的错误 D)诊断和改正程序中

3、的错误7)下列关于数据库设计的叙述中，正确的是A)在需求分析阶段建立数据字典 B)在概念设计阶段建立数据字典C)在逻辑设计阶段建立数据字典 D)在物理设计阶段建立数据字典8)数据库系统的三级模式不包括A)概念模式 B)内模式 C) 外模式 D) 数据模式9)有三个关系R、S和T如下则由关系R和S得到关系T的操作是A)自然连接 B) 差 C) 交 D) 并10)下列选项中属于面向对象设计方法主要特征的是A)继承 B) 自顶向下 C) 模块化 D) 逐步求精11)以下描述中错误的是A)窗体的标题通过其Caption属性设置 B)窗体的名称(Name属性)可以在运行期间修改C)窗体的背景图形通过其P

4、icture属性设置D)窗体最小化时的图标通过其Icon属性设置12)在设计阶段，当按Ctrl+R，所打开的窗口是A)代码窗口 B)工具箱窗口 C)工程资源管理器 D)属性窗口13)设有如下变量声明语句：Dim a,b as Boolean则下面叙述中正确的是A)a和b都是布尔型变量 B)a是变体型变量，b是布尔型变量C)a是整型变量，b是布尔型变量 D)a和b都是变体型变量14)下列可作为Visual Basic变量名的是A) A#A B) 4ABC C) ?xy D) Print_Text15)假定一个滚动条的LargeChange属性值为100，则100表示A)单击滚动条箭头和滚动框之间

5、某位置时滚动框位置的变化量B)滚动框位置的最大值C)拖动滚动框时滚动框位置的变化量D)单击滚动条箭头时滚动框位置的变化量16)在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()MsgBox str(123+321)End Sub程序运行后，单击命令按钮，则在信息框中显示的提示信息为A)字符串“123+321” B)字符串“444” C)数值 “444”D)空白17)假定有以下程序：Private Sub Form_Click()a=1:b=aDo Until a>=5 x=a*b Print b;x a=a+b b=b+a LoopA)

6、 1 1 B) 1 1 C) 1 1 D) 1 1 2 3 2 4 3 8 3 618)在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市消失。下列在List1_Click事件过程中能正确实现上述功能的语句是A) List1.RemoveItem List1.Text B)List1.RemoveItem List1.ClearC) List1.RemoveItem List1.ListCount D) List1.RemoveItem List1.ListIndex19)列表框中的项目保存在一个数组中，这个数组的名字是 A) Colmn

7、B) Style C) List D) MultiSelect20)有人编写了如下程序：Private Sub Form_Click()Dim s As Integer, x As Integers=0:x=0Do While s=10000x=x+1s=s+x2Loop Print sEnd Sub上述程序的功能是：计算s=1+22+32+n2+直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是 A)把x=0 改为x=1B)把Do While s=10000改为Do While s<=10000C) 把Do While s=10000改为D

8、o While s>=10000D)交换x=x+1 和s=s+x2的位置21)设有如下程序：Private sub Form_Click()Dim s as long ,f as longDim n as integer,i as integerf=1：n=4For i=1 to nf=f*is=s+fNext iPrint sEnd sub程序运行后，单击窗体，输出结果是A) 32 B)33 C)34 D)3522)阅读下面的程序段 a=0For i=1 to 3 For j=1 to iFor k=j to 3 a=a+1Next k Next j Next i执行上面的程序段后，a

9、的值为A) 3 B) 9 C) 14 D)2123)设有如下程序：Private Sub Form_Click() Cls a$="123456" For i=1 to 6 Print tab(12-i);_ Next iEnd sub程序运行后，单击窗体，要求结果如图所示，则在_处应填入的内容为A) Left(a$,i) B) Mid(a$,8-i,i)C) Right(a$,i) D) Mid(a$,7,i)24)设有如下程序：Private Sub Form_Click() Dim i as integer,x as string Dim y as stringx=&

10、quot;ABCDEFG"For i=4 to 1 step -1y=Mid(x,i,i)+yNext i Print y End sub 程序运行后，单击窗体，输出结果为A) ABCCDEDEFGB) AABBCDEFGC) ABCDEFGD) AABBCCDDEEFFGG25)设有如下程序：Private Sub Form_Click() Dim ary(1 to 5) as integerDim i as integerDim sum as integerFor i=1 to 5ary(i)=i+1sum=sum+ary(i)next iprint sumEnd sub程序运行

11、后，单击窗体，则在窗体上显示的是A)15 B)16 C) 20 D)2526)有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24要求编写程序输出该数列中所有不超过1000的数某人编写程序如下：Private Sub Form_Click()Dim i as integer,a as integer,b as integerDim c as integer,d as integera=0：b=1:c=1d=a+b+ci=5while d<=1000print d;a=b:b=c:c=dd=a+b+ci=i+1wendEnd sub

12、运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是A)把while d<=1000改为while d>1000B)把i=5改为i=4C)把i=i+1移到while d<=1000的下面D)在i=5的上面增加一个语句：print a;b;c;27) 下面的语句用Array函数的数字变量a的各元素赋整数值：a=array(1,2,3,4,5,6,7,8,9)针对a的声明语句应该是A) Dim a B)Dim a as integerC) Dim a(9) as integerD) Dim a() as integer28)下列描述中正确的是A)Visual Bas

13、ic只能通过过程调用执行通用过程B)可以在Sub过程的代码中包含另一个Sub过程的代码C)可以像通用过程一样指定事件过程的名字D)Sub过程和Function过程都有返回值29)阅读程序：Function fac(byval n as integer) as integerDim temp as integertemp=1For i=1 to ntemp=temp*iNext iFac=tempEnd FunctionPrivate sub Form_Click() Dim nsum as integernsum=1for i%=2 to 4nsum=nsum+fac(i%) next ipr

14、int nsumEnd sub程序运行后，单击窗体，输出结果是A)35 B)31 C)33 D)3730）在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：Sub S(x as integer,y as integer) Static z as integery=x*x+zz=yEnd SubPrivate Sub Command1_Click()Dim i as integer,z as integerm=0:z=0For i=1 to 3S i,zm=m+zNext iLabel1.caption=str(m)End sub程序运行后，单击命令

15、按钮，在标签中显示的内容是A)50 B)20 C) 14 D) 731）以下说法中正确的是A)MouseUp事件是鼠标向上移动时触发的事件B) MouseUp事件过程中的x,y参数用于修改鼠标的位置C)在MouseUp事件过程中可以判断用户是否使用了组合键D)在MouseUp事件过程中不能判断鼠标的位置32）假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为a1，其“可见”属性为False，程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是A)Private Sub Form_MouseDown(Button as Integer,Shift as integer，X as

16、 Single ,Y as Single) If Button=1 And Button=2 ThenPopupMenu a1 End ifEnd SubB)Private Sub Form_MouseDown(Button as Integer,Shift as integer，X as Single ,Y as Single) PopupMenu a1 End SubC)Private Sub Form_MouseDown(Button as Integer,Shift as integer，X as Single ,Y as Single) If Button=1 ThenPopupMe

17、nu a1 End ifEnd SubD)Private Sub Form_MouseDown(Button as Integer,Shift as integer，X as Single ,Y as Single) If Button=2 ThenPopupMenu a1 End ifEnd Sub33)在窗体上画一个名称为CD1的通用对话框，并有如下程序：Private Sub Form_Load()CD1.DefaultExt= "doc"CD1.FileName= "c:file1.txt"CD1.Filter= "应用程序(*.exe

18、)|*.exe"End Sub 程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是A)应用程序(*.exe)B)*.doc C) *.txt D)不确定34)以下描述中错误的是A)在多窗体应用程序中，可以有多个当前窗体B)多窗体应用程序的启动窗体可以在设计时设定C)多窗体应用程序中每个窗体作为一个磁盘文件保存D)多窗体应用程序可以编译生成一个EXE文件35)以下关于顺序文件的叙述中，正确的是A)可以用不同的文件号以不同的读写方式同时打开同一个文件B)文件中各记录的写入顺序与读出顺序是一致的C)可以用Input# 或Line Input#语句向文件写记录D)

19、如果用Append方式打开的文件，则既可以在文件末尾添加记录，也可以读取原有记录二、填空(每空2分，共30分) 请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。1) 数据结构分为线性结构与非线性结构，带链的栈属于_【1】_。2) 在长度为n的顺序存储的线性表中插入一个元素，最坏情况下需要移动表中【2】 个元素。3) 常见的软件开发方法有结构化方法和面向对象方法。对某应用系统经过需求分析建立数据流图(DFD),则应采用 【3】 方法。4) 数据库系统的核心是 【4】 。5) 在进行关系数据库的逻辑设计时，E-R图中的属性常被转换为关系中的属性，联系通常被转换为 【5】

20、 。6) 为了使标签属性能自动调整大小以显示标题(Caption属性)的全部文本内容，应把该标签的 【6】属性设置为True。7) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Commad1_Click()x=1 Result=1While x<=10Result= 【7】 x=x+1Wend Print ResultEnd Sub上述事件过程用来计算10的阶乘，请填空。8) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Commad1_Click() t=0:m=1:Sum=0Dot

21、=t+ 【8】 Sum=Sum+【9】m=m+2Loop While【10】 Print Sum End Sub该程序的功能是，单击命令按钮，则计算冰输出以下表达式的值：1+（1+3）+（1+3+5）+（1+3+5+99）请填空。9)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Commad1_Click()Dim M(10) as IntegerFor k=1 to 10M(k)=12-kNext kx=6Print M(2+M(x) End Sub程序运行后，单击命令按钮，输出结果是【11】10) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Commad1_Click()Dim n as Integern=Val(InputBox("请输入一个整数：")If n Mod 3=0 And n Mod 2=0 And n Mod 5=0 thenprint n+10End IfEnd Sub程序运行后，单击命令按钮，在输入对话框中输入60，则输出结果是【12】11) 在窗体上画一个