1、二级 VISUAL+BASIC 笔试-34 及答案解析(总分：90.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.以下程序段的执行结果是 _。Dim A(3, 3)For m = 1 To 3For n = 1 To 3If n = m Or n = 3 - m + 1 ThenA(m, n) =m + nElseA(m, n) = 0End IfNext nNext mFor m = 1 To 3For n = 1 To 3Print A(m, n);Next nPrintNext m（分数：2.00）A.1 1 1 1 1 11 1 1B.2 0 4 0 4
2、04 0 6C.0 0 00 0 00 0 0D.1 0 10 1 01 0 12.当程序运行时，在窗体上单击鼠标，以下_ 事件是窗体不会接收到的。（分数：2.00）A.MouseDownB.MouseUpC.LoadD.Click3.在单项链表中删除一个指定结点的后继的时间复杂度为_ 。（分数：2.00）A.0(n)B.0(nlog2n)C.0(1)D.4.对于存在多个条件复杂组合的判断问题，其加工逻辑使用_ 描述较好。（分数：2.00）A.数据字典B.数据流图C.结构化语言D.判定表和判定树5.以下程序输出 1 到 1000 之间所有的偶数之和，请补充完该程序。Private Sub Co
3、tmand1_Click()Dim x As DoubleFor i=0 To 1000If_ Thenx=x+ iEnd IfNext iPrint xEnd Sub（分数：2.00）A.i Mod 2= 0B.x mod 2=0C.I mod 20D.x mod 206.下列程序段的执行结果为_ 。N=0J=1Do Until N 2N=N+1J=J+N* (N+ 1)LoopPrint N; J（分数：2.00）A.0 1B.3 7C.3 21D.3 137.关子设置控件属性的叙述正确的是_ 。（分数：2.00）A.用户必须重新设置属性的值，否则属性值为空。B.任何属性的值都可以由用户随
4、意设置。C.属性值可以由用户设置，也可以使用系统的默认设置。D.属性值只能在属性窗口中设置。8.一个栈的输入序列为 1，2，3，4，下面_ 序列不可能是这个栈的输出序列。（分数：2.00）A.1，3，2，4B.2，3，4，1C.4，3，1，2D.3，4，2，19.下列程序段的执行结果是_ 。a=0b=0For i = -1 To -2 Step -1For j = 1 To 2b=b+1Next ja=a+1Next iPrint a; b（分数：2.00）A.24B.- 20C.42D.2210.有如下函数:Private Function firstfunc(x As Integer, y
5、 As Integer) As IntegerDim n As IntegerDo While n = 4x=x +yn=-+1Loopfirstfunc = xEnd Function调用该函数的事件过程如下:Private Sub Command1_lick()Dim x As IntegerDim y As IntegerDim n As IntegerDim z As Integerx=1y=1For n = 1 To 3z = firstfunc(x, y)Next nPrint zEnd Sub该事件过程的执行结果是 _。（分数：2.00）A.1B.3C.16D.911.单击命令按
6、钮时，下列程序代码的执行结果为_ 。Public Function MyFune(m As Integer，n As Integer) As IntegerDo While mnDo While mnm=m-nLoopDo While mnn=n -mLoopLoopMyFunc=mEnd FunctionPrivate Sub Command1_Click()Print MyFunc(24, 18)End Sub（分数：2.00）A.2B.4C.6D.812.对象可以识别和响应的某些操作行为称为_ 。（分数：2.00）A.属性B.方法C.多态D.事件13.数据字典表达的是_ 。（分数：2.0
7、0）A.系统中各类逻辑定义的集合B.系统中各类逻辑描述的集合C.系统中各类数据结构的集合D.系统中各类数据描述的集合14.对全局数据逻辑结构和特征的描述称为_ 。（分数：2.00）A.外模式B.内模式C.概念模式D.存储模式15.对象实现了数据和操作的结合，使数据和操作_ 于对象的统一体中。（分数：2.00）A.结合B.隐藏C.封装D.抽象16.在窗体上画一个命令按钮，然后编写如下事件过程:Private Sub CommAnd1_Click()For i=1 To 4x=0For j=1 To 3x=jFor k=1 To 2x=x+6Next kNext jNext iPrint xEnd
8、 Sub程序运行后，单击命令按钮,输出结果是_ 。（分数：2.00）A.7B.15C.157D.53817.下面程序段的功能是_ 。A=10.5B=Int (A=0.6)Debug. Print B（分数：2.00）A.求平均值B.将一实数四舍五入取整数C.求绝对值D.舍去一实数的小数部分18.只能用来显示字符信息的控件是_ 。（分数：2.00）A.文本框B.标签框C.图片框D.图像框19.下列程序段的执行结果是_ 。k=0For j=1 To 2For i=1 To 3k = i+ 1Next iFor i=1 To 7k= k + 1Next iNext jPrint k（分数：2.00）
9、A.11B.10C.9D.820.下列程序的输入值分别为 100,10 则执行结果为非作歹_ 。m=Val (inputbox (“请输入数学 1”) )n=Val (inputbox (“请输入数学 2”) )If n*m=0 ThenMsgBox “两数能不能为 0”Exit SubIf mn Thent=m: m=n: n=tEnd IfEnd IfDOR=m Mod nm=nn=fLoop While r0Print m（分数：2.00）A.10B.100C.50D.25021.如果关系模式 R 为 1NF，且每个非主属性都完全函数依赖于 R 的候选码，则称 R 属于_ 。（分数：2.
10、00）A.2NFB.3NFC.BCNFD.4NF22.有如下自定义过程：Sub test(x As Integer)x =X *2+1If x6 ThenCall test(x)End Ifx=x* 2 + 1Print x；End Sub调用该过程的事件过程如下：Private Sub Command1_Click()test 2End Sub则该段程序的执行结果是_ 。（分数：2.00）A.12B.23 47C.23D.5 1023.下列程序段的招待结果是_ 。s=0t=0u=0For i = 1 To 3For j = 1 To iFor k = j To 3s=s+ 1Next kt=
11、t+1Next ju=u+ 1Next iPrint s; t; u（分数：2.00）A.14 6 3B.6 14 3C.9 8 7D.8 9 1024.以下哪个是合法的变量名_ 。（分数：2.00）A.LenB.TestqwC.6cost_1D.count2s25.在窗体上画一个命令按钮，然后编写如下代码:Private Type RecordID As IntegerName As String * 20End TypePrivate Sub Command1_Click()Dim MaxSize, NextChar, MyCharOpen “d:/temp/female. txt” Fo
12、r Input As #1MaxSize = LOF(1)For NextChar = MaxSize To 1 Step -1Seek #1, NextCharMyChar = Input(1, # 1)Next NextCharPrint EOF(1)Close #1End Sub程序运行后,单击命令按钮,其输出结果为_。（分数：2.00）A.TrueB.FalseC.0D.Null26.在窗体上添加一个命令按纽，名为 COMgAND1，事件过程如下：Private Sub CQmmand1_Click()x =0Do Until c = -1a=InputBox(“请输入 a 的值”)a
13、=Val（分数：2.00）A.(a)b=InputBox(“请输入 b 的值”)b=ValB.)27.在用 Open 语句打开文件时，如果省略“For 方式”，则打开的文件的存取方式是_ 。（分数：2.00）A.顺序输入方式B.顺序输出方式C.随机存取方式D.二进制方式28.对线性表采用折半查找法，该线性表必须_ 。（分数：2.00）A.采用顺序存储结构B.采用链式存储结构C.采用顺序存储结构，且元素按值有序D.采用链式存储结构，且元素按值有序29.结构化分析方法 SA、结构化设计方法 SD；和 JACKSON 方法，是在软件开发过程中常用的方法，人们使用 SD 方法时可以得到_ 。（分数：2
14、.00）A.程序流程图B.具体的语言程序C.模块结构图及模块的功能说明书D.分层数据流图30.下列排序方法中，属于不稳定的排序方法是_ 。（分数：2.00）A.直接插入排序法B.冒泡排序法C.基数排序法D.归并排序法31.有程序如下:Sub subP(b() As Integer)For i=1 To 4b(i)=2*iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1)=5a(2)=6a(3)=7a(4)=8subP a()For i=1 To 4Print a(i)Next iEnd Sub运行上面程序，
15、单击命令按钮，输出结果为_ 。（分数：2.00）A.2 468B.5222C.10121416D.出错32.下列程序段的执行结果为_ 。Dim A(10，10)For I = 2 To 4For J = 4 To 5A(I, J) = I * JNext JNext IPrint A(2, 5) + A(3, 4) + A(4, 5)（分数：2.00）A.22B.42C.32D.5233.运行 VB 程序的快捷键为_ 。（分数：2.00）A.F4B.F5C.F6D.F734.如果在 C 盘当前文件夹下已存在名为 StuData.dar 的顺序文件，那么执行语句 Open“C: StuData.
16、dar” For Append As #1 之后将_ 。（分数：2.00）A.删除文件中原有内容。B.保留文件中原有内容，可在文件尾添加新内容。C.保留文件中原有内容，在文件头开始添加新内容。D.以上均不对。35.GUI 的含义是_ 。（分数：2.00）A.面向对象的程序设计B.开放数据库连接C.图形设备接口D.图形用户界面二、填空题(总题数：10，分数：20.00)36.在长度为 n 的顺序表的第 i(1in+1)个位置上插入一个元素，元素的移动次数为 【1】 。（分数：2.00）填空项 1:_37.目前，有两种重要的高级语言，分别是结构化程序和 【2】 。（分数：2.00）填空项 1:_3
17、8.高度为 h(hO)的二叉树最少有 【3】 个结点。（分数：2.00）填空项 1:_39.CASE 是一组 【4】 的集合，可以辅助软件开发生命周期各阶段进行软件开发。（分数：2.00）填空项 1:_40.在传统集合运算中，假定有关系 R 和 s，运算结果为 RS。如果 RS 中的元组属于 R 而不属于 S，则 RS是 【5】 运算的结果；（分数：2.00）填空项 1:_41.有如下程序，该程序的执行结果是 【6】 。Private Sub Command1 Click()For i=1 To 4x=4For j=1 To ix =3For k=1 To 2x= x + 5Next kNex
18、t jNext iPrint xEnd Sub（分数：2.00）填空项 1:_42.有如下程序：Private Sub Command1_Click()j =10For i= -1 To 1 Step 0.3j =j + 1Next iPrint jEnd Sub该程序共循环 【7】 次，程序执行完毕后 j 的值是 【8】 。（分数：2.00）填空项 1:_43.下列程序的作用是求所有小于或等于 30 的自然数对。该程序不完整，请补充完该程序(程序执行结果见下图)。注：自然数对是指两个自然数的和与差都是平方数(如 8 与 17)。Private Sub Command1_Click()Dim
19、n As LongDim m As LongDim s As SingleDim d As StringFor n=1 To 30For m=1 To 【9】 s =n+ m【10】 If Sqr (s)=Int(Sqr(s) 【11】 Sqr(D) =Int(Sqr(D) )ThenPrint n：mEnd lfNext mNext nEnd Sub（分数：2.00）填空项 1:_44.以下程序用于求 s=1+(1+2)+(1+2+3)+(1+2+100)的和，请补充完该程序。Dim n As IntegerDim i As IntegerDim j As LongDim s As Long
20、n=100j=0s=0For i=1 To 【12】 J= 【13】 s= 【14】 Next iPrint s（分数：2.00）填空项 1:_45.下列程序的运行机结果是 【15】 。Private Sub Form_ Click()Dim k As Integern= 5m= 1k= 1Dom=m+2k= k+1Loop While k=nPrint mEnd Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-34 答案解析(总分：90.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.以下程序段的执行结果是 _。Dim A(3, 3)F
21、or m = 1 To 3For n = 1 To 3If n = m Or n = 3 - m + 1 ThenA(m, n) =m + nElseA(m, n) = 0End IfNext nNext mFor m = 1 To 3For n = 1 To 3Print A(m, n);Next nPrintNext m（分数：2.00）A.1 1 1 1 1 11 1 1B.2 0 4 0 4 04 0 6 C.0 0 00 0 00 0 0D.1 0 10 1 01 0 1解析：2.当程序运行时，在窗体上单击鼠标，以下_ 事件是窗体不会接收到的。（分数：2.00）A.MouseDown
22、B.MouseUpC.Load D.Click解析：3.在单项链表中删除一个指定结点的后继的时间复杂度为_ 。（分数：2.00）A.0(n) B.0(nlog2n)C.0(1)D.解析：4.对于存在多个条件复杂组合的判断问题，其加工逻辑使用_ 描述较好。（分数：2.00）A.数据字典B.数据流图C.结构化语言D.判定表和判定树 解析：5.以下程序输出 1 到 1000 之间所有的偶数之和，请补充完该程序。Private Sub Cotmand1_Click()Dim x As DoubleFor i=0 To 1000If_ Thenx=x+ iEnd IfNext iPrint xEnd S
23、ub（分数：2.00）A.i Mod 2= 0 B.x mod 2=0C.I mod 20D.x mod 20解析：6.下列程序段的执行结果为_ 。N=0J=1Do Until N 2N=N+1J=J+N* (N+ 1)LoopPrint N; J（分数：2.00）A.0 1B.3 7C.3 21 D.3 13解析：7.关子设置控件属性的叙述正确的是_ 。（分数：2.00）A.用户必须重新设置属性的值，否则属性值为空。B.任何属性的值都可以由用户随意设置。C.属性值可以由用户设置，也可以使用系统的默认设置。 D.属性值只能在属性窗口中设置。解析：8.一个栈的输入序列为 1，2，3，4，下面_
24、序列不可能是这个栈的输出序列。（分数：2.00）A.1，3，2，4B.2，3，4，1C.4，3，1，2 D.3，4，2，1解析：9.下列程序段的执行结果是_ 。a=0b=0For i = -1 To -2 Step -1For j = 1 To 2b=b+1Next ja=a+1Next iPrint a; b（分数：2.00）A.24 B.- 20C.42D.22解析：10.有如下函数:Private Function firstfunc(x As Integer, y As Integer) As IntegerDim n As IntegerDo While n = 4x=x +yn=-
25、+1Loopfirstfunc = xEnd Function调用该函数的事件过程如下:Private Sub Command1_lick()Dim x As IntegerDim y As IntegerDim n As IntegerDim z As Integerx=1y=1For n = 1 To 3z = firstfunc(x, y)Next nPrint zEnd Sub该事件过程的执行结果是 _。（分数：2.00）A.1B.3C.16 D.9解析：11.单击命令按钮时，下列程序代码的执行结果为_ 。Public Function MyFune(m As Integer，n As
26、 Integer) As IntegerDo While mnDo While mnm=m-nLoopDo While mnn=n -mLoopLoopMyFunc=mEnd FunctionPrivate Sub Command1_Click()Print MyFunc(24, 18)End Sub（分数：2.00）A.2B.4C.6 D.8解析：12.对象可以识别和响应的某些操作行为称为_ 。（分数：2.00）A.属性B.方法C.多态D.事件 解析：13.数据字典表达的是_ 。（分数：2.00）A.系统中各类逻辑定义的集合B.系统中各类逻辑描述的集合C.系统中各类数据结构的集合D.系统中各
27、类数据描述的集合 解析：14.对全局数据逻辑结构和特征的描述称为_ 。（分数：2.00）A.外模式B.内模式C.概念模式 D.存储模式解析：15.对象实现了数据和操作的结合，使数据和操作_ 于对象的统一体中。（分数：2.00）A.结合B.隐藏C.封装 D.抽象解析：16.在窗体上画一个命令按钮，然后编写如下事件过程:Private Sub CommAnd1_Click()For i=1 To 4x=0For j=1 To 3x=jFor k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮,输出结果是_ 。（分数：2.00）A.7B
28、.15 C.157D.538解析：17.下面程序段的功能是_ 。A=10.5B=Int (A=0.6)Debug. Print B（分数：2.00）A.求平均值B.将一实数四舍五入取整数 C.求绝对值D.舍去一实数的小数部分解析：18.只能用来显示字符信息的控件是_ 。（分数：2.00）A.文本框B.标签框 C.图片框D.图像框解析：19.下列程序段的执行结果是_ 。k=0For j=1 To 2For i=1 To 3k = i+ 1Next iFor i=1 To 7k= k + 1Next iNext jPrint k（分数：2.00）A.11 B.10C.9D.8解析：20.下列程序的
29、输入值分别为 100,10 则执行结果为非作歹_ 。m=Val (inputbox (“请输入数学 1”) )n=Val (inputbox (“请输入数学 2”) )If n*m=0 ThenMsgBox “两数能不能为 0”Exit SubIf mn Thent=m: m=n: n=tEnd IfEnd IfDOR=m Mod nm=nn=fLoop While r0Print m（分数：2.00）A.10 B.100C.50D.250解析：21.如果关系模式 R 为 1NF，且每个非主属性都完全函数依赖于 R 的候选码，则称 R 属于_ 。（分数：2.00）A.2NF B.3NFC.BC
30、NFD.4NF解析：22.有如下自定义过程：Sub test(x As Integer)x =X *2+1If x6 ThenCall test(x)End Ifx=x* 2 + 1Print x；End Sub调用该过程的事件过程如下：Private Sub Command1_Click()test 2End Sub则该段程序的执行结果是_ 。（分数：2.00）A.12B.23 47 C.23D.5 10解析：23.下列程序段的招待结果是_ 。s=0t=0u=0For i = 1 To 3For j = 1 To iFor k = j To 3s=s+ 1Next kt=t+1Next ju
31、=u+ 1Next iPrint s; t; u（分数：2.00）A.14 6 3 B.6 14 3C.9 8 7D.8 9 10解析：24.以下哪个是合法的变量名_ 。（分数：2.00）A.LenB.TestqwC.6cost_1D.count2s 解析：25.在窗体上画一个命令按钮，然后编写如下代码:Private Type RecordID As IntegerName As String * 20End TypePrivate Sub Command1_Click()Dim MaxSize, NextChar, MyCharOpen “d:/temp/female. txt” For
32、Input As #1MaxSize = LOF(1)For NextChar = MaxSize To 1 Step -1Seek #1, NextCharMyChar = Input(1, # 1)Next NextCharPrint EOF(1)Close #1End Sub程序运行后,单击命令按钮,其输出结果为_。（分数：2.00）A.TrueB.False C.0D.Null解析：26.在窗体上添加一个命令按纽，名为 COMgAND1，事件过程如下：Private Sub CQmmand1_Click()x =0Do Until c = -1a=InputBox(“请输入 a 的值”
33、)a=Val（分数：2.00）A.(a)b=InputBox(“请输入 b 的值”)b=Val B.)解析：27.在用 Open 语句打开文件时，如果省略“For 方式”，则打开的文件的存取方式是_ 。（分数：2.00）A.顺序输入方式B.顺序输出方式C.随机存取方式 D.二进制方式解析：28.对线性表采用折半查找法，该线性表必须_ 。（分数：2.00）A.采用顺序存储结构B.采用链式存储结构C.采用顺序存储结构，且元素按值有序 D.采用链式存储结构，且元素按值有序解析：29.结构化分析方法 SA、结构化设计方法 SD；和 JACKSON 方法，是在软件开发过程中常用的方法，人们使用 SD 方
34、法时可以得到_ 。（分数：2.00）A.程序流程图B.具体的语言程序C.模块结构图及模块的功能说明书 D.分层数据流图解析：30.下列排序方法中，属于不稳定的排序方法是_ 。（分数：2.00）A.直接插入排序法B.冒泡排序法C.基数排序法D.归并排序法 解析：31.有程序如下:Sub subP(b() As Integer)For i=1 To 4b(i)=2*iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1)=5a(2)=6a(3)=7a(4)=8subP a()For i=1 To 4Print a(
35、i)Next iEnd Sub运行上面程序，单击命令按钮，输出结果为_ 。（分数：2.00）A.2 468 B.5222C.10121416D.出错解析：32.下列程序段的执行结果为_ 。Dim A(10，10)For I = 2 To 4For J = 4 To 5A(I, J) = I * JNext JNext IPrint A(2, 5) + A(3, 4) + A(4, 5)（分数：2.00）A.22B.42 C.32D.52解析：33.运行 VB 程序的快捷键为_ 。（分数：2.00）A.F4B.F5 C.F6D.F7解析：34.如果在 C 盘当前文件夹下已存在名为 StuData
36、.dar 的顺序文件，那么执行语句 Open“C: StuData.dar” For Append As #1 之后将_ 。（分数：2.00）A.删除文件中原有内容。B.保留文件中原有内容，可在文件尾添加新内容。 C.保留文件中原有内容，在文件头开始添加新内容。D.以上均不对。解析：35.GUI 的含义是_ 。（分数：2.00）A.面向对象的程序设计B.开放数据库连接C.图形设备接口D.图形用户界面 解析：二、填空题(总题数：10，分数：20.00)36.在长度为 n 的顺序表的第 i(1in+1)个位置上插入一个元素，元素的移动次数为 【1】 。（分数：2.00）填空项 1:_ （正确答案：
37、n-i+1）解析：37.目前，有两种重要的高级语言，分别是结构化程序和 【2】 。（分数：2.00）填空项 1:_ （正确答案：面向对象程序设计）解析：38.高度为 h(hO)的二叉树最少有 【3】 个结点。（分数：2.00）填空项 1:_ （正确答案：h）解析：39.CASE 是一组 【4】 的集合，可以辅助软件开发生命周期各阶段进行软件开发。（分数：2.00）填空项 1:_ （正确答案：软件开发工具）解析：40.在传统集合运算中，假定有关系 R 和 s，运算结果为 RS。如果 RS 中的元组属于 R 而不属于 S，则 RS是 【5】 运算的结果；（分数：2.00）填空项 1:_ （正确答案
38、：差）解析：41.有如下程序，该程序的执行结果是 【6】 。Private Sub Command1 Click()For i=1 To 4x=4For j=1 To ix =3For k=1 To 2x= x + 5Next kNext jNext iPrint xEnd Sub（分数：2.00）填空项 1:_ （正确答案：13）解析：42.有如下程序：Private Sub Command1_Click()j =10For i= -1 To 1 Step 0.3j =j + 1Next iPrint jEnd Sub该程序共循环 【7】 次，程序执行完毕后 j 的值是 【8】 。（分数：2
39、.00）填空项 1:_ （正确答案：7 7 8 17）解析：43.下列程序的作用是求所有小于或等于 30 的自然数对。该程序不完整，请补充完该程序(程序执行结果见下图)。注：自然数对是指两个自然数的和与差都是平方数(如 8 与 17)。Private Sub Command1_Click()Dim n As LongDim m As LongDim s As SingleDim d As StringFor n=1 To 30For m=1 To 【9】 s =n+ m【10】 If Sqr (s)=Int(Sqr(s) 【11】 Sqr(D) =Int(Sqr(D) )ThenPrint n
40、：mEnd lfNext mNext nEnd Sub（分数：2.00）填空项 1:_ （正确答案：9 n10 d=n-m 11And）解析：44.以下程序用于求 s=1+(1+2)+(1+2+3)+(1+2+100)的和，请补充完该程序。Dim n As IntegerDim i As IntegerDim j As LongDim s As Longn=100j=0s=0For i=1 To 【12】 J= 【13】 s= 【14】 Next iPrint s（分数：2.00）填空项 1:_ （正确答案：12 n13 j+ I14 s+ j）解析：45.下列程序的运行机结果是 【15】 。Private Sub Form_ Click()Dim k As Integern= 5m= 1k= 1Dom=m+2k= k+1Loop While k=nPrint mEnd Sub（分数：2.00）填空项 1:_ （正确答案：11）解析：
