全国计算机等级考试二级VB笔试试卷2(含答案)

全国计算机等级考试二级笔试试卷(90分钟)Visual Basic 语言程序设计（2）含答案一、选择题：(每小题2分， 70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确的选项答在答题卡的相应位置上，答在试卷上不得分。

(1)栈和队列的共同特点是CA) 都是先进先出B) 都是先进后出C) 只允许在端点处插入和删除元素D) 没有共同点(2)已知二叉树后序遍历序列是DABEC，中序遍历序列是DEBAC，它的前序遍历序列是DA) ACBED B) DECAB C) DEABC D) CEDBA(3)链表不具有的特点是BA) 不必事先估计存储空间B) 可随机访问任一元素C) 插入删除不需要移动元素D) 所需空间与线性表长度成正比(4)结构化程序设计的3种结构是DA) 顺序结构、选择结构、转移结构B) 分支结构、等价结构、循环结构C) 多分支结构、赋值结构、等价结构D) 顺序结构、选择结构、循环结构(5)为了提高测试的效率，应该 DA) 随机选取测试数据B) 取一切可能的输入数据作为测试数据C) 在完成编码以后制定软件的测试计划D) 集中对付那些错误群集的程序(6)算法的时间复杂度是指CA) 执行算法程序所需要的时间B) 算法程序的长度C) 算法执行过程中所需要的基本运算次数D) 算法程序中的指令条数(7)软件生命周期中所花费用最多的阶段是DA) 详细设计B) 软件编码C) 软件测试D) 软件维护(8)数据库管理系统DBMS中用来定义模式、内模式和外模式的语言为 CA) C B) Basic C) DDL D) DML(9)下列有关数据库的描述，正确的是CA) 数据库是一个DBF文件B) 数据库是一个关系C) 数据库是一个结构化的数据集合D) 数据库是一组文件(10)下列有关数据库的描述，正确的是DA) 数据处理是将信息转化为数据的过程B) 数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变C) 关系中的每一列称为元组，一个元组就是一个字段D) 如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字(11)设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：BA)text1.maxlength=0 B)text1.enabled=flase C)text1.visible=flase D)text1.width=0(12)在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。

程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是AA) Private Sub HScroll_Change() Text1.Text=HScroll1.V alueEnd Sub B) Private Sub HScroll_Click() Text1.Text=HScroll1.V alue End SubC) Private Sub HScroll_Change() Text1.Text=HScroll.Caption D) Private Sub HScroll_Click() Text1.Text=HScroll.Caption End Sub(13)设菜单中有一个菜单项为"Open"。

若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是AA) 把Caption属性设置为&Open B) 把Caption属性设置为O&penC) 把Name属性设置为&Open D) 把Name属性设置为O&pen(14)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后，连续三次单击Command1按钮后，窗体上显示的是BA) 4 2 B) 12 18 C) 12 30 D) 4 6(15)以下关于文件的叙述中，错误的是BA）顺序文件中的记录一个接一个地顺序存放B）随机文件中记录的长度是随机的C）执行打开文件的命令后，自动生成一个文件指针D）LOF函数返回给文件分配的字节数(16)以下叙述中错误的是DA）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定(17)以下合法的Visual Basic标识符是AA) ForLoop B) Const C) 9abc D) a#x(18)当一个复选框被选中时，它的V alue属性的值是CA) 3 B) 2 C) 1 D) 0(19)表达式 5 Mod 3+3\5*2的值是BA) 0 B) 2 C)4 D) 6(20)设x=4,y=8,z=7，表达式x<y And (Not y>z) Or z<x的值是DA) 1 B) -1 C) True D) False(21)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是AA）VVV B) V is C) sic D) 11(22)设有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后，x的值是BA) 26 B) 27 C) 38 D) 57(23)以下叙述中错误的是BA) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符(24)执行如下两条语句，窗体上显示的是Da=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.86(25)在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。

然后编写如下事件过程：Private Sub Command1_Click()CommonDialog1.FileName =""CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1End Sub对于这个程序，以下叙述中错误的是DA）该对话框被设置为“打开”对话框B）在该对话框中指定的默认文件名为空C）该对话框的标题为VBTestD）在该对话框中指定的默认文件类型为文本文件(*.Txt)(26)设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。

窗体Form1的程序代码如下：Private Sub Command1_Click()Dim a As Integera=10Call g(Form2,a)End SubPrivate Sub g(f As Form,x As Integer)y=IIf(x>10,100,-100)f,Showf.Caption=yEnd Sub运行以上程序，正确的结果是BA) Form1的Caption属性值为100 B) Form2的Caption属性值为-100C) Form1的Caption属性值为-100 D) Form2的Caption属性值为100(27)在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是DA) 10 5 B) 12 5 C) 10 7 D) 12 7(28)设有如下程序Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim n As Integern=InputBox("输入数据")If n<10 ThenCall GetArray(a,n)End IfEnd SubPrivate Sub GetArray(b() As Integer,n As Integer)Dim c(10) As Integerj=0For i=1 To nb(i)=CInt(Rnd()*100)If b(i)/2=b(i)\2 Thenj=j+1c(j)=b(i)End IfNextPrint jEnd Sub以下叙述中错误的是CA）数组b中的偶数被保存在数组c中B）程序运行结束后，在窗体上显示的是c数组中元素的个数C）GetArray过程的参数n是按值传送的D）如果输入的数据大于10，则窗体上不显示任何显示(29)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是BA) 4 B) 5 C) 6 D)7(30)阅读程序Option Base 1Private Sub Form_Click()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)\3 ThenSum =Sum+arr(i)End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输入结果为CA）13 B）14 C）27 D）15(31)在窗体上画一个名称为File1的文件列表框，并编写如下程序：Private Sub File1_DblClick()x=Shell(File1.FileName,1)End Sub以下关于该程序的叙述中，错误的是AA) x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)B)双击文件列表框中的文件，将触发该事件过程C)要执行的文件的名字通过File1.FileName指定D）File1中显示的是当前驱动器、当前目录下的文件(32)在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500,如图所示。