1、二级 VISUAL+BASIC 笔试 69 及答案解析(总分：96.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.两个关系有若干相同属性名等值连接，并去掉重复属性的关系代数运算称为_ 。（分数：2.00）A.取列运算B.投影运算C.自然连接D.选择运算2.在窗体上添加一个命令按纽，名为 command1，其事件过程如下，程序运行后，其输出的结果为_ 。 Private sub_command1_ click () Dim a a=array(1，2，3，4，5) For k=1 to 4 S=s+ a(k) Next k Print s End sub（分数
2、：2.00）A.10B.14C.15D.1203.下列程序运行后，输出的结果为_ 。B=1Do while b40 b=*(b+1)LoopPrint B（分数：2.00）A.42B.39C.6D.14.数据的逻辑独立性是指_ 。（分数：2.00）A.存储结构与物理结构的逻辑独立性B.数据与存储结构的逻辑独立性C.数据与程序的逻辑独立性D.数据元素之间的逻辑独立性5.若要使用户不能修改文本框 TextBox1 中内容，应修改_ 属性。（分数：2.00）A.LockedB.MultiLineC.PassWordCharD.SerollBar6.控件_ 属性的设置，可使该控件不能通过 Tab 键得
3、到焦点。（分数：2.00）A.TabStopB.TablndexC.GotFocusD.SetFocus7.使用 CoamonDialog 控件的_ 方法可显示”打印”对话框。（分数：2.00）A.ShowOpenB.ShowSaveC.ShowColorD.Showprinter8.在窗体上添加一个文本框，名为 text1，然后编写如下的 load 事件过程，则程序的运行结果是_ 。 private sub form_ load text1.text=“” text1.setfocus for k=1 to 5 t=t*k next k text1.text=t end sub（分数：2.0
4、0）A.在文本框中显示 120B.文本框中仍为空C.在文本框中显示 1D.出错9.下列陈述中正确的是_ 。（分数：2.00）A.二叉树是度为 2 的有序树B.二叉树中结点只有一个孩子时无左右之分C.二叉树中必有度为 2 的结点D.二叉树中最多只有两棵子树，并且有左右之分10.单击命令按钮时，下列程序代码的执行结果为_。 Private Function PickMid(xStr As String) As String Dim tempStr As String Dim strLen As Integer tempStr=“” strLen=Len(xStr) i=1 Do While i=s
5、trLen/2 tempStr=tempStr+Mid(xStr，i，1)+Hid(xStr，strLen-i+1，1) i=i + 1 Loop PickMid=tempStr End Function Private Sub Command1_Click() Dim FirstStr As String FirstStr=“abcdef” Print PickMid(FirstStr) End Sub（分数：2.00）A.abcdefB.afbecdC.fedcbaD.defabc11.每个 ActiveX 控件都是扩展名为_的独立文件。（分数：2.00）AOCXBcCactDbmp12.
6、下列命令按纽事件过程执行后，输出的结果是_ 。 private sub command_ click() for m+1 to 10 step 2 a=10 for n=1 to 10 step 2 a+a+2 next n next m print a end sub（分数：2.00）A.60B.50C.30D.2013.只能用来显示字符信息的控件是_ 。（分数：2.00）A.文本框B.标签框C.图片框D.图像框14.为了提高测试的效率，应该_ 。（分数：2.00）A.随机地选取测试数据B.取一切可能的输入数据作为测试数据C.在完成编码以后制定软件的测试计划D.选择发现错误可能性大的数据作为
7、测试数据15.下列表达式中，_的值为 false。（分数：2.00）A.“BCD”“BCE”B.“12345”“12345”旷“ABC”C.Not 2*5=10D.4=4 and 52+216.结构化程序设计的一种基本方法是_ 。（分数：2.00）A.归纳法B.逐步求精法C.递归法D.穷尽法17.对二叉树从 1 开始进行连续编号，要求每个结点的编号大于其左右孩子的编号，同一个结点的左右孩子中，其左孩子的编号小于其右孩子的编号，则可采用_ 遍历实现编号。（分数：2.00）A.无序B.中序C.后序D.从根开始的层次遍历18.下列程序执行后，变量 S 的值为_ 。 Dim s As Long，X A
8、s Integer s=0 X=1 Do While x10 s= s+ x x=x+2 Loop Print s（分数：2.00）A.10B.25C.50D.10019.先在 窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Lon
9、g n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) Print r End Sub 则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是_。（分数：2.00）A.0B.100C.200D.30020.在有 n 个结点的-31 链表中，值为非空的链域的个数为_ 。（分数：2.00）A.n-1B.2n-1C.n+1D.2n+121.下列程序段的执行结果为_ 。 Dim A(4) N= 3 A(1) =1 For K=0 To N-1 For L=1 To K+1 X=K+2 -L A(X)=A(X)+A(X-1) If KN-1 Then Exit F
10、or Print A(X)； Next L Next K（分数：2.00）A.1 2 1B.1 2 3C.2 4 6D.1 3 122.当执行以下过程时，在名为 1blResult 的标签框内将显示_。 Private Sub cmdlt_ click() Dim I，R R=0 For I=1 To 5 Step 1 R=R+I Next i 1blResultCaption=Str(R) End Sub（分数：2.00）A.字符串 15B.整数 15C.字符串 5D.整数 523.程序的三种基本控制结构是_ 。（分数：2.00）A.过程、子程序和分程序B.顺序、选择和重复C.递归、堆栈和队
11、列D.调用，返回和转移24.下面叙述中不正确的是_。（分数：2.00）A.若使用 Write #语句将数据输出到文件，则各数据项之间自动插入逗号，并且将字符串加上双引号。B.若使用 Print #语句将数据输出到文件，则各数据项之间没有逗号分隔，且字符串不加双引号。C.Write #语句和 Print #语句建立的顺序文件格式完成一样。D.Write #语句和 Print #语句均实现向文件中写入数据。25.用如下语句所定义的数组的元素个数是_个。 Dim b(-2 to 4)as string（分数：2.00）A.2B.4C.SD.726.确定复选框是否选中，可访问的属性是_ 。（分数：2.
12、00）A.ValueB.Checked 在C.SelectedD.Caption27.在窗体上添加一个命令按钮，名为 command1，一文本框，名为 text1，则执行如下事件过程后，文本框中的输出为_。 For i=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x= x + 3 Next k Next j Next i Text1.Text=str(x)（分数：2.00）A.6B.12C.18D.2128.以下语句错误的是：_ 。（分数：2.00）A.Do while(Conditio Statements LoopB.Do Statements Loop wh
13、ile(conditioC.Do until(conditio Statements LoopD.Do until(conditio Statements end do29.Label 控件中内容能垂直方向变化而宽度保持不变则应设置_ 属性。（分数：2.00）A.WordwrapB.EnabledC.LockedD.AutoSize30.命令按钮 Command1 的 Caption 属性为“退出(x)”，要将命令按钮的快捷键设为 Alt+x，应修改Caption 属性为_ 。 A) 在 x 前插入 6)在 x 后插入 C) 在 x 前插入# D) 在 x 后插入#（分数：2.00）A.B.C
14、.D.32.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1-Click() Static X Am Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X Print X，Y End Sub 程序运行时，三次单击命令按钮 Comand1 后，窗体上显示的结果为_。（分数：2.00）A.15 16B.15 6C.15 15D.5 633.深度为 k 的二叉树至多有_ 。（分数：2.00）A.2k 个结点B.2k-1个结点C.2K-1结点D.2k-1-1 个结点34.设执行以下程序段时依次输入
15、 1、3、5，执行结果为_ 。 Dim a(4)As Integer Dim b(4) As Integer For K=0 To 2 a(K+1)=Val(1nputBox(“请输入数据：”) b(3-K)=a(K+1) Next K Print b(K)（分数：2.00）A.1B.3C.5D.035.下面程序执行的结果是_。 Private Sub Form_ Click() A=“123”：B=“456” C=Val(A)+Val(B) Print C/100 End Sub（分数：2.00）A.123B.3C.5D.579二、B填空题/B(总题数：13，分数：26.00)36.汇编语言
16、是面向U 【1】 /U的，可以完成高级语言无法完成的特殊功能，如与外部设备之间的一些接口工作。（分数：2.00）填空项 1:_37.对于顺序存储的队列，存储空间大小为 n，头指针为 F，尾指针为 R。若在逻辑上看成一个环，则队列中元素的个数为U 【2】 /U。（分数：2.00）填空项 1:_38.有 64 个结点的完全二叉树的深度U 【3】 /U(根的层次为 1)。（分数：2.00）填空项 1:_39.在结构化分析中，用于描述加工逻辑的主要工具有三种，即：结构化语言判定表、U 【4】 /U。（分数：2.00）填空项 1:_40.在扩展的 E-R 模型中，子类U 【5】 /U超类所有的联系和属性
17、。（分数：2.00）填空项 1:_41.Visual Basic 提供了列表框控件，当列表框中的项目较多。超过了列表框的长度时，系统会自动在列表框边上加一个U 【6】 /U。（分数：2.00）填空项 1:_42.一个程序最多可以有U 【7】 /U窗体。（分数：2.00）填空项 1:_43.将一般窗体转换为 MDI 窗体的子窗体时要把 MDIChild 属性的值设置为U 【8】 /U。（分数：2.00）填空项 1:_44.下列程序为比较排序法排序程序，请补充完该程序(该程序对 10 个数值数据进行排序处理)。 Dim a(1 To 10)AS Integer Private Sub Form _
18、Click() Randomize p=“” For i = 1 To 10 Do x = Int (Rnd * 90) + 10 yes = 0 For j = 1 ToU 【9】 /U If x = a(j) Then yes = 1: Exit For Next Loop While yes = 1 a(i) = x Next i For i = 1 To 9 ForU 【10】 /UTo 10 If a(i) a(j) Then t = a(i) U【11】 /U a(j) = t End If Next j Next i p = Str(a(1) For i = 2 To 10 p
19、= p & “,” & Str(a(i) Print p Next i End Sub（分数：2.00）填空项 1:_45.VB 有两种类型的数组：固定大小的U 【12】 /U和在运行时可以改变的动态数组。（分数：2.00）填空项 1:_46.有如下 SUB 过程： Sub s(x As Single，y As Single) t =x x=t / y Y=t Mod y End Sub 在窗体上添加一个命令按纽，然后编写如下事件过程： Private Sub Form_ Click() Dim a As Single Dim b As Single a=5 b=4 s a，b Print a
20、，b End Sub 则程序运行后，单击命令按纽，输出的结果为：U 【13】 /U。（分数：2.00）填空项 1:_47.要选择多个不相领的控件，按住U 【14】 /U咸 SHIFT 键不放，再单击要选择的控件。（分数：2.00）填空项 1:_48.下列程序的作用是：打开顺序文件 C:/stuData.txt，读取文件中的数据，并将数据显示在窗体上。该程序不完整，请补充完该程序。 Private Sub Form_Click() U 【15】 /U Do While Not EOF(1) Input # 1，StrNo，StuName，StuEng Print StuNo；Tab(10)；St
21、uName；Tab(20)；StuEng Loop Close #1 End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 69 答案解析(总分：96.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.两个关系有若干相同属性名等值连接，并去掉重复属性的关系代数运算称为_ 。（分数：2.00）A.取列运算B.投影运算C.自然连接 D.选择运算解析：2.在窗体上添加一个命令按纽，名为 command1，其事件过程如下，程序运行后，其输出的结果为_ 。 Private sub_command1_ click () Dim a a=arra
22、y(1，2，3，4，5) For k=1 to 4 S=s+ a(k) Next k Print s End sub（分数：2.00）A.10B.14 C.15D.120解析：3.下列程序运行后，输出的结果为_ 。B=1Do while b40 b=*(b+1)LoopPrint B（分数：2.00）A.42 B.39C.6D.1解析：4.数据的逻辑独立性是指_ 。（分数：2.00）A.存储结构与物理结构的逻辑独立性B.数据与存储结构的逻辑独立性C.数据与程序的逻辑独立性 D.数据元素之间的逻辑独立性解析：5.若要使用户不能修改文本框 TextBox1 中内容，应修改_ 属性。（分数：2.00
23、）A.Locked B.MultiLineC.PassWordCharD.SerollBar解析：6.控件_ 属性的设置，可使该控件不能通过 Tab 键得到焦点。（分数：2.00）A.TabStop B.TablndexC.GotFocusD.SetFocus解析：7.使用 CoamonDialog 控件的_ 方法可显示”打印”对话框。（分数：2.00）A.ShowOpenB.ShowSaveC.ShowColorD.Showprinter 解析：8.在窗体上添加一个文本框，名为 text1，然后编写如下的 load 事件过程，则程序的运行结果是_ 。 private sub form_ lo
24、ad text1.text=“” text1.setfocus for k=1 to 5 t=t*k next k text1.text=t end sub（分数：2.00）A.在文本框中显示 120B.文本框中仍为空C.在文本框中显示 1D.出错 解析：9.下列陈述中正确的是_ 。（分数：2.00）A.二叉树是度为 2 的有序树B.二叉树中结点只有一个孩子时无左右之分C.二叉树中必有度为 2 的结点D.二叉树中最多只有两棵子树，并且有左右之分 解析：10.单击命令按钮时，下列程序代码的执行结果为_。 Private Function PickMid(xStr As String) As St
25、ring Dim tempStr As String Dim strLen As Integer tempStr=“” strLen=Len(xStr) i=1 Do While i=strLen/2 tempStr=tempStr+Mid(xStr，i，1)+Hid(xStr，strLen-i+1，1) i=i + 1 Loop PickMid=tempStr End Function Private Sub Command1_Click() Dim FirstStr As String FirstStr=“abcdef” Print PickMid(FirstStr) End Sub（分数
26、：2.00）A.abcdefB.afbecd C.fedcbaD.defabc解析：11.每个 ActiveX 控件都是扩展名为_的独立文件。（分数：2.00）AOCX BcCactDbmp解析：12.下列命令按纽事件过程执行后，输出的结果是_ 。 private sub command_ click() for m+1 to 10 step 2 a=10 for n=1 to 10 step 2 a+a+2 next n next m print a end sub（分数：2.00）A.60B.50C.30D.20 解析：13.只能用来显示字符信息的控件是_ 。（分数：2.00）A.文本框B
27、.标签框 C.图片框D.图像框解析：14.为了提高测试的效率，应该_ 。（分数：2.00）A.随机地选取测试数据B.取一切可能的输入数据作为测试数据C.在完成编码以后制定软件的测试计划D.选择发现错误可能性大的数据作为测试数据 解析：15.下列表达式中，_的值为 false。（分数：2.00）A.“BCD”“BCE”B.“12345”“12345”旷“ABC”C.Not 2*5=10 D.4=4 and 52+2解析：16.结构化程序设计的一种基本方法是_ 。（分数：2.00）A.归纳法B.逐步求精法 C.递归法D.穷尽法解析：17.对二叉树从 1 开始进行连续编号，要求每个结点的编号大于其左
28、右孩子的编号，同一个结点的左右孩子中，其左孩子的编号小于其右孩子的编号，则可采用_ 遍历实现编号。（分数：2.00）A.无序B.中序C.后序 D.从根开始的层次遍历解析：18.下列程序执行后，变量 S 的值为_ 。 Dim s As Long，X As Integer s=0 X=1 Do While x10 s= s+ x x=x+2 Loop Print s（分数：2.00）A.10B.25 C.50D.100解析：19.先在 窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=
29、Abs(num) Do While num k=k*(num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) Print r End Sub 则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是_。（分数：2.00）A.0 B.100C.200D.300解析：20.在有 n 个结点的-31 链表中，值为非空的链域的个数为_ 。（分数：2.00）A.n-
30、1 B.2n-1C.n+1D.2n+1解析：21.下列程序段的执行结果为_ 。 Dim A(4) N= 3 A(1) =1 For K=0 To N-1 For L=1 To K+1 X=K+2 -L A(X)=A(X)+A(X-1) If KN-1 Then Exit For Print A(X)； Next L Next K（分数：2.00）A.1 2 1 B.1 2 3C.2 4 6D.1 3 1解析：22.当执行以下过程时，在名为 1blResult 的标签框内将显示_。 Private Sub cmdlt_ click() Dim I，R R=0 For I=1 To 5 Step
31、1 R=R+I Next i 1blResultCaption=Str(R) End Sub（分数：2.00）A.字符串 15 B.整数 15C.字符串 5D.整数 5解析：23.程序的三种基本控制结构是_ 。（分数：2.00）A.过程、子程序和分程序B.顺序、选择和重复 C.递归、堆栈和队列D.调用，返回和转移解析：24.下面叙述中不正确的是_。（分数：2.00）A.若使用 Write #语句将数据输出到文件，则各数据项之间自动插入逗号，并且将字符串加上双引号。B.若使用 Print #语句将数据输出到文件，则各数据项之间没有逗号分隔，且字符串不加双引号。C.Write #语句和 Print
32、 #语句建立的顺序文件格式完成一样。 D.Write #语句和 Print #语句均实现向文件中写入数据。解析：25.用如下语句所定义的数组的元素个数是_个。 Dim b(-2 to 4)as string（分数：2.00）A.2B.4C.SD.7 解析：26.确定复选框是否选中，可访问的属性是_ 。（分数：2.00）A.Value B.Checked 在C.SelectedD.Caption解析：27.在窗体上添加一个命令按钮，名为 command1，一文本框，名为 text1，则执行如下事件过程后，文本框中的输出为_。 For i=1 To 4 x=3 For j=1 To 3 For k
33、=1 To 2 x= x + 3 Next k Next j Next i Text1.Text=str(x)（分数：2.00）A.6B.12C.18D.21 解析：28.以下语句错误的是：_ 。（分数：2.00）A.Do while(Conditio Statements LoopB.Do Statements Loop while(conditioC.Do until(conditio Statements LoopD.Do until(conditio Statements end do 解析：29.Label 控件中内容能垂直方向变化而宽度保持不变则应设置_ 属性。（分数：2.00）A
34、.Wordwrap B.EnabledC.LockedD.AutoSize解析：30.命令按钮 Command1 的 Caption 属性为“退出(x)”，要将命令按钮的快捷键设为 Alt+x，应修改Caption 属性为_ 。 A) 在 x 前插入 6)在 x 后插入 C) 在 x 前插入# D) 在 x 后插入#（分数：2.00）A. B.C.D.解析：解析：32.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1-Click() Static X Am Integer Static Y As Integer Cls Y=1 Y
35、=Y+5 X=5+X Print X，Y End Sub 程序运行时，三次单击命令按钮 Comand1 后，窗体上显示的结果为_。（分数：2.00）A.15 16B.15 6 C.15 15D.5 6解析：33.深度为 k 的二叉树至多有_ 。（分数：2.00）A.2k 个结点B.2k-1个结点C.2K-1结点 D.2k-1-1 个结点解析：34.设执行以下程序段时依次输入 1、3、5，执行结果为_ 。 Dim a(4)As Integer Dim b(4) As Integer For K=0 To 2 a(K+1)=Val(1nputBox(“请输入数据：”) b(3-K)=a(K+1)
36、Next K Print b(K)（分数：2.00）A.1 B.3C.5D.0解析：35.下面程序执行的结果是_。 Private Sub Form_ Click() A=“123”：B=“456” C=Val(A)+Val(B) Print C/100 End Sub（分数：2.00）A.123B.3C.5 D.579解析：二、B填空题/B(总题数：13，分数：26.00)36.汇编语言是面向U 【1】 /U的，可以完成高级语言无法完成的特殊功能，如与外部设备之间的一些接口工作。（分数：2.00）填空项 1:_ （正确答案：机器）解析：37.对于顺序存储的队列，存储空间大小为 n，头指针为
37、F，尾指针为 R。若在逻辑上看成一个环，则队列中元素的个数为U 【2】 /U。（分数：2.00）填空项 1:_ （正确答案：2 2 (R-F+1)mod n）解析：38.有 64 个结点的完全二叉树的深度U 【3】 /U(根的层次为 1)。（分数：2.00）填空项 1:_ （正确答案：3 7）解析：39.在结构化分析中，用于描述加工逻辑的主要工具有三种，即：结构化语言判定表、U 【4】 /U。（分数：2.00）填空项 1:_ （正确答案：判定树）解析：40.在扩展的 E-R 模型中，子类U 【5】 /U超类所有的联系和属性。（分数：2.00）填空项 1:_ （正确答案：继承）解析：41.Vis
38、ual Basic 提供了列表框控件，当列表框中的项目较多。超过了列表框的长度时，系统会自动在列表框边上加一个U 【6】 /U。（分数：2.00）填空项 1:_ （正确答案：滚动条）解析：42.一个程序最多可以有U 【7】 /U窗体。（分数：2.00）填空项 1:_ （正确答案：255）解析：43.将一般窗体转换为 MDI 窗体的子窗体时要把 MDIChild 属性的值设置为U 【8】 /U。（分数：2.00）填空项 1:_ （正确答案：true）解析：44.下列程序为比较排序法排序程序，请补充完该程序(该程序对 10 个数值数据进行排序处理)。 Dim a(1 To 10)AS Intege
39、r Private Sub Form _Click() Randomize p=“” For i = 1 To 10 Do x = Int (Rnd * 90) + 10 yes = 0 For j = 1 ToU 【9】 /U If x = a(j) Then yes = 1: Exit For Next Loop While yes = 1 a(i) = x Next i For i = 1 To 9 ForU 【10】 /UTo 10 If a(i) a(j) Then t = a(i) U【11】 /U a(j) = t End If Next j Next i p = Str(a(1
40、) For i = 2 To 10 p = p & “,” & Str(a(i) Print p Next i End Sub（分数：2.00）填空项 1:_ （正确答案：9 i-1 10 j=1 11 a(i)=a(j)）解析：45.VB 有两种类型的数组：固定大小的U 【12】 /U和在运行时可以改变的动态数组。（分数：2.00）填空项 1:_ （正确答案：静态数组）解析：46.有如下 SUB 过程： Sub s(x As Single，y As Single) t =x x=t / y Y=t Mod y End Sub 在窗体上添加一个命令按纽，然后编写如下事件过程： Private
41、Sub Form_ Click() Dim a As Single Dim b As Single a=5 b=4 s a，b Print a，b End Sub 则程序运行后，单击命令按纽，输出的结果为：U 【13】 /U。（分数：2.00）填空项 1:_ （正确答案：1.25 1）解析：47.要选择多个不相领的控件，按住U 【14】 /U咸 SHIFT 键不放，再单击要选择的控件。（分数：2.00）填空项 1:_ （正确答案：CTRL）解析：48.下列程序的作用是：打开顺序文件 C:/stuData.txt，读取文件中的数据，并将数据显示在窗体上。该程序不完整，请补充完该程序。 Private Sub Form_Click() U 【15】 /U Do While Not EOF(1) Input # 1，StrNo，StuName，StuEng Print StuNo；Tab(10)；StuName；Tab(20)；StuEng Loop Close #1 End Sub（分数：2.00）填空项 1:_ （正确答案：Open“C:/StuData.txt”For Input As #1）解析：
