《全国计算机等级考试二级笔试试卷vb语言程序设计》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级笔试试卷vb语言程序设计（8页珍藏版）》请在金锄头文库上搜索。
1、 2011年9月全国计算机等级考试二级笔试试卷VB语言程序设计一、选择题1、下列叙述中正确的是A、算法就是程序 B、设计算法时只需要考虑数据结构的设计C、设计算法时只需要考虑结果的可靠性 D、以上三种说法都不对2、下列关于线性链表的叙述中，正确的是A、各数据结点存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致 B、各数据结点的存储顺序可以不一致，但它们的存储空间必须连续C、进行插入与删除时，不需要移动表中的元素 D、以上三种说法都不对3、下列关于二叉树的叙述中，正确的是A、叶子结点总是比度为2的结点少一个 B、叶子结点总是比度为2的结点多一个C、叶子结点数是度为2的结点数的两倍 D、度为
2、2的结点数是度为1的结点数的两倍4、软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。A、学生成绩管理系统 B、C语言编译程序C、UNIX操作系统 D、数据库管理系统XY系统功能1功能2功能3功能2.1功能2.2功能2.35、某系统总体结构图如下图所示该系统总体结构图的深度是A、7 B、6 C、3 D、26、程序调试的任务是A、设计测试用例 B、验证程序的正确性C、发现程序中的错误 D、诊断和改正程序的错误7、下列关于数据库设计的叙述中，正确的是A、在需求分析阶段建立数据字典B、在概念设计阶段建立数据字典C、在逻辑设计阶段建立数据字典D、在物理设计阶段建
3、立数据字典8、数据库系统的三级模式不包括A、概念模式 B、内模式 C、外模式 D、数据模式9、有三个关系R、S和T如下：RABCa12b21c31SABCa12b21TABCc31则由关系R和S得到关系T的操作是A、自然连接 B、差 C、交 D、并10、下列选项中属于面向对象设计方法主要特征的是A、继承 B、自顶向下 C、模块化 D、逐步求精11、以下描述中错误的是A、窗体的标题通过其Caption属性设置B、窗体的名称（Name属性）可以在运行期间修改C、窗体的背景图形通过其Picture属性设置 D、窗体最小化时的图标通过其Icon属性设置12、在设计阶段，当按Ctrl+R键时，所打开的窗
4、口是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、单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量B、滚动框位置的最大值 C、拖动滚动框时滚动框位置的变化量D、
5、单击滚动条箭头时滚动框位置的变化量16、在窗体上画一个命令按钮，然后编写如下事件过程：Pricate Sub Command1_Click( ) MsgBox Str（123+321）End Sub程序运行后，单击命令按钮，则在信息框中显示的提示信息为（ ）。A、字符串“123+321” B、字符串“444” C、数值“444” D、空白17、假定有以下程序Pricate Sub Form_Click( ) a=1：b=a Do Until a=5 x=a*b Print b;x a=a+bb=b+a LoopEnd Sub程序运行后，单击窗体，输出结果是（ ）。A、1 1 B、1 1 C、1
6、 1 D、1 1 2 3 2 4 3 8 3 618、在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是（ ）。A、List1.RemoveItem List1.Text B、List1.RemoveItem List1.Clear C、List1.RemoveItem List1.ListCount D、List1.RemoveItem List1.ListIndex19、列表框中的项目保存在一个数组中，这个数组的名字是（ ）。A、Column B、Style C、L
7、ist D、MultiSelect20、有人编写了如下程序：Private Sub Form_Click( ) Dim s As Integer,x As Integer s=0 x=0 Do While s=10000 x=x+1 s=s+x2 Loop Print sEnd Sub上述程序的功能是：计算s=1+22+32+n2+，直到s10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（ ）。A、把x=0改为x=1 B、把Do While s=10000改为Do While s10000D、交换x=x+1和s=s+x2的位置21、设有如下程序：Private
8、 Sub Form_Click( ) Dim s As Long,f As Long Dim n As Integer,i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print sEnd Sub程序运行后，单击窗体，输出结果是A、32 B、33 C、34 D、3522、阅读下面的程序段：a=0For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i执行上面的程序段后，a的值为（ ）。A、3 B、9 C、14 D、2123、设有如下程序：Private Sub F
9、orm_Click( ) Cls a$=” 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,y As String x=”ABCDEFG” For i=4 To 1 Steo -1 y=Mid(x,i,i)+y Next i Print yEnd
10、Sub程序运行后，单击窗体，输出结果为（ ）。A、ABCCDEDEFG B、AABBCDEFGC、ABCDEFG D、AABBCCDDEEFFGG25、设有如下程序：Private Sub Form_Click( ) Dim ary(1 To 5) As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+1 sum=sum+ary(i) Next iPrint sumEnd Sub程序运行后，单击窗体，输出结果为（ ）。A、15 B、16 C、20 D、2526、有一个数列，它的前3个数为0，1，1，此后的每个数
11、都是其前面3个数之和，即0，1，1，2，4，7，13，24，要求编写程序输出该数列中所有不超过1000的数。Private Sub Form_Click( ) Dim i As Integer,aAs Integer ,b As IntegerDim c As Integer,d As Integera=0:b=1:c=1d=a+b+ci=5While d=1000 Print d; a=b:b=c:c=d d=a+b+d i=i+1WendEnd Sub运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是A、把While d1000 B、把i=5改为i=4 C、把i=i+1移到
12、While d=1000的下面D、在i=5的上面增加一个语句：Print a;b;c27、下面的语句用Array函数为数组变量a的各元素赋整数值：a=Array(1,2,3,4,5,6,7,8,9)针对a的声明语句应该是（ ）。A、Dim a B、Dim a As Integer C、Dim a(9) As Integer D、Dim a() As Integer28、下列描述中正确的是（ ）。A、Visual Basic只能通过过程调用执行通用过程 B、可以在Sub过程的代码中包含另一个Sub过程的代码 C、可以像通用过程一样指定事件过程的名字 D、Sub过程和Function过程都有返回值
13、28、阅读程序：Function fac(ByVal n As Integer)As Integer Dim temp As Integer temp=1 For i%=1 To n temp=temp*i% Next i% fac=tempEnd FunctionPrivate Sub Form_Click( ) Dim nsum As Integer nsum=1 For i%=2 To 4 nsum=nsum+fac(i%) Next i% Print nsum End Sub程序运行后，单击窗体，输出结果是（ ）。A、35 B、31 C、33 D、3730、在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：Sub S(x As Integer,y As Integer) Static z As Integer y=x*x+z z=yEnd SubPrivate Sub Command1_Click( ) Dim i As Integer,z As Integer m=0
