1、二级 VISUAL+BASIC 笔试 300 及答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.软件文档是软件工程实施中的重要部分，它不仅是软件开发各阶段的重要依据，而且影响软件的_。（分数：2.00）A.可理解性B.可维护性C.可扩展性D.可移植性2.单击命令按钮时，下列程序代码的执行结果为_。 Private Sub Proe1 (n As Integer，ByVa1 m As Integer) n=n Mod 10 m=m/ 10 End Sub Private Sub Command1_Click() Dim x As Integ
2、er Dim y As Integer x= 12 y = 34 Call Proe1 (x, y) Print x; y End Sub（分数：2.00）A.12 34B.2 34C.2 3D.12 33.若要设置定时器控件的定时时间，需设置的属性是_。（分数：2.00）A.IntervalB.ValueC.EnabledD.Text4.下列程序段的执行结果为_。 Dim M(10), N(10) I=3 For T = 1 To 5 M(T) = T N(I) = 2 * I + T Next T Print N(I)； M(I)（分数：2.00）A.3 11B.3 15C.11 3D.1
3、5 35.执行以下程序段后，整型变量 C 的值为_。 a=24 b=328 Select Case b/10 Case 0 c=a*10+b Case 1 to 9 c=a*100+b Case 10 to 99 c=a*10000+b End Select（分数：2.00）A.537B.2427C.24328D.2403286.程序的基本控制结构是_。（分数：2.00）A.顺序结构，多分支结构和单分支结构B.ForNext 结构、DoLoop 结构和 SelectCase 结构。C.顺序结构，选择结构和循环结构。D.单行结构和多行结构。7.一个教师能开多门课程，一门课程有许多教师会开，实体课
4、程与实体教师间是_。（分数：2.00）A.一对一的联系B.一对多的联系C.多对多的联系D.多对一的联系8.在长度为 n 的顺序表的第 i(1in+1)个位置上插入一个元素，元素的移动次数为_。（分数：2.00）A.n-i+1B.n-iC.iD.i-19.设有如下语句：strl=InputBox(“输入”，“”，“练习”)从键盘上输人字符串“示例”后，strl 的值是_。（分数：2.00）A.“输入”B.“”C.“练习”D.“示例”10.设已打开 5 个文件，文件号为 1, 2, 3, 4, 5。要关闭所有文件，以下语句正确的是_。（分数：2.00）A.Close #1,2,3,4,5B.Clo
5、se #1; #2; #3; #4; #5C.Close #1-#5D.Close11.某二叉树的中序序列和后序序列正好相反，则该二叉树一定是_ 的二叉树。（分数：2.00）A.空或只有一个结点B.高度等于其结点数C.任一结点无左孩子D.任一结点无右孩子12.若要在图片框中绘制一个椭圆，使用的方法是_。（分数：2.00）A.CircleB.LineC.PointD.Pset14.下列说法错误的是_。（分数：2.00）A.在同一模块不同过程中的变量可以同名B.不同模块中定义的全局变量不可以同名C.引用另一模块中的全局变量时，必须在变量名前加模块名D.同一模块中不同级的变量可以同名15.下列程序执
6、行后，变量 a 的值为_。 dim a, b, c, d as single a=100 b=20 c=1000 if ba then d=a: a=b: b=d end if if ca then d=a: a=c: c: d end if if cb then d=b: b=c: c=d end if（分数：2.00）A.0B.1000C.20D.10016.在窗体上添加一个命令按钮，名为 command1，一文本框，名为 text1，则执行如下事件过程后，文本框中的输出为_。 For i = 1 To 3 For j = 1 To 3 For k = 1 To 2 x=x+ 3 Next
7、 k Next j Next i Text1. Text =str (x)（分数：2.00）A.21B.42C.54D.7217.对于顺序存储的队列，存储空间大小为 n，头指针为 F，尾指针为 R。若在逻辑上看成一个环，则队列中元素的个数为_。（分数：2.00）A.R-FB.n+ R-PC.(R-F+1)mod nD.(n+ R mod n18.若要使某命令按钮获得控制焦点；可使用的方法是_。（分数：2.00）A.LostPoeusB.SetFocusC.PointD.Value19.程序的三种基本控制结构的共同特点是_。（分数：2.00）A.不能嵌套使用B.只能用来写简单程序C.已经用硬件实
8、现D.只有一个入口和一个出口20.在 Visual Basic 中，要将一个窗体装载到内存进行预处理，但不显示，应该使用那种语句：_。（分数：2.00）A.ShowB.HideC.LoadD.Unload21.若整型变量 a 值为 2、b 的值为 3，则下列程序段执行后整型变量 c 的值为_。 If a5 then If b4 Then c=a-b Else c=b-a Else If b3 Then c=a*b Else c=a mod b End If（分数：2.00）A.2B.-1C.1D.622.目录列表框的 Path 属性的作用是_。（分数：2.00）A.显示当前驱动器或指定驱动器上
9、的目录结构B.显示当前驱动器或指定驱动器上的某目录下的文件名C.显示根目录下的文件名D.显示路径下的文件23.下列的程序段执行后，X 的值为_。 K=0 For i=1 To 10 For j=i To 10 x= x + 1 Next j Next i（分数：2.00）A.50B.55C.100D.10524.下列关于 For.next 语句的说法正确的是_。（分数：2.00）A.循环变量、初值、终值和步长都必须为数值型。B.step 后的步长只为正数。C.初值必须小于终值。D.初值必须大于终值。25.设 R 和 S 为二个关系，_中的符号分别代表选择、投影、笛卡儿积的关系代数运算。（分数：
10、2.00）A.F(，A(、RSB.EA(、VA(、R*SC.RS、RS、RSD.A(，F(、RS26.若某完全二叉树的深度为 h，则该完全二叉树中至少有_个结点。（分数：2.00）A.2hB.2h-1C.2h-1-1D.2h-1+127.数据结构中，通常采用两种方法衡量算法的时间复杂性，即_。（分数：2.00）A.最大时间复杂性和最小时间复杂性B.最好时间复杂性和最坏时间复杂性C.部分时间复杂性和总体时间复杂性D.平均时间复杂性和最坏时间复杂性28.在窗体上添加如下命令按纽，然后编写如下事件过程： Private Sub Command1_Click() Dim a(10)As Integer
11、 Dim p(3)As Integer k= 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub 该过程的运行结果为_。（分数：2.00）A.35B.33C.31D.2929.数据库管理系统 DBMS 中用来定义模式、内模式和外模式的语言是_。（分数：2.00）A.DMLB.CC.DDLD.Pascal30.在 VB 中，过程共有三种，它们是_。（分数：2.00）A.事件过程，子过程和函数过程B
12、.Sub 过程, Function 过程和 Property 过程。C.事件过程，函数过程和属性过程。D.Sub 过程，函数过程和通用过程。31.下列程序执行后，变量 x 的值为_。 Dim a, b, c, d As Single Dim x As Single a=100 b=20 c=1000 If ba Then d=a: a=b: b=d End If If bc Then x=b Elseif ac then x=c Else x=a End If（分数：2.00）A.100B.20C.1000D.032.滚动条控件的 LargeChange 属性所设置的是_。（分数：2.00）A
13、.单击滚动条和滚动箭头之间的区域时，滚动条控件 Value 属性值的改变量B.滚动条中滚动块的最大移动位置C.滚动条中滚动块的最大移动范围D.滚动条控件无该属性33.在 Visual Basic 中，要将一个窗体从内存中释放，应使用_语句。（分数：2.00）A.ShowB.HideC.LoadD.Unload34.有如下函数过程: Function lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i = 1 To x s=s+ i Next i 1j= s End Function 在窗体上添加一个命令按钮，名为
14、Command1, 编写事件过程调用该函数： Private Sub Command1 Click() Dim i As Integer Dim sum As Long For i = 1 To 5 sum = sum + 1j(i) Next i Print sum End Sub（分数：2.00）A.25B.35C.45D.5535.已知变量 x，y 为整数型，且 x=4，y=12，s 为字符串型，且 s=“a”，lblok 为标签控件，下列赋值语句合法的是_。（分数：2.00）A.x=lblo CaptionB.Lblo caption=Str(C.x*3=yD.Y=x*s二、B填空题/
15、B(总题数：11，分数：22.00)36.在面向对象的程序设计中，类描述的是具有相似性质的一组U 【1】 /U。（分数：2.00）填空项 1:_37.面向对象的模型中、最基本的概念是对象和U 【2】 /U。（分数：2.00）填空项 1:_38.冒泡排序在最好情况下时间复杂度为U 【3】 /U。（分数：2.00）填空项 1:_39.在关系代数运算中，并、笛卡尔积，投影、选择和U 【4】 /U为基本的运算（分数：2.00）填空项 1:_40.成本效益分析的目的是从U 【5】 /U角度评价开发一个项目是否可行。（分数：2.00）填空项 1:_41.窗体中有图片框(Pieture1)和计时器(Time
16、r1)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每 2 秒钟一次的速度向窗体的右下角移动，每次向左，向右移动 100twip。请填空。 Private Sub Form_ Load() Picture1_icture=LoadPicture(“c:/pic/mouth.ico”) U 【6】 /U.Interval=2000 End Sub Private Sub Timer1_ Timer() Static x，y As Integer x=x+100 y=y+100 Pictuer1.Move x, y End Sub（分数：2.00）填空项 1:_42.下面的程序代码实现将
17、一个一维数组中元素向右循环移动，移位次数由文本框 Text1 输入。例如数组各元素的值依次为 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后，各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,7。 Private Sub MoveRight (x() As Integer) Dim i As Integer Dim j As Integer Dim k As Integer i = UBound (x) j = x(i) For k = i ToU 【7】 /UStep -1 U【8】 /U Next k x(LBeund(x) = j End
18、 Sub Private Sub Command1_click() Dim a(10) As Integer Dim i As Integer Dim j As Integer Dim k As Integer For i = 0 To 10 a(i) = i Next i j = Val(Text1. Text) k=0 Do k=k+1 Call MoveRight(a) Loop Until k = j For i = 0 To 10 Print a(i); Next i End Sub（分数：2.00）填空项 1:_43.下列程序是用来计算 1+2+3+10 的程序段，请补充该程序。
19、Dim i, s, k As Integer s =0: k = 0 ForU 【9】 /UTo 1 k=k+1 s=s+ k Next i Print s（分数：2.00）填空项 1:_44.面向对象的程序设计方法是把U 【10】 /U封装起来作为一个对象，并为每一个对象设置所需要的 U【11】 /U。（分数：2.00）填空项 1:_45.以下程序用来建立一个 10*10 矩阵，该矩阵两条对角线上的元素为 1，其余元素为 0，请补充完该程序。该程序运行结果见下图。 Private Sub Form_ click() Dim s(10, 10) As Integer For n = 1 To
20、10 For m = 1 To 10 IfU 【12】 /UOrU 【13】 /UThen s (n, m) = 1 Else s (n, m) = 0 End If Next m Next n For n = 1 To 10 ForU 【14】 /U。 Picturel. Print Tab(m * 3); s(n, m) Next m Print Next n End Sub（分数：2.00）填空项 1:_46.在 Select case 结构中，使用“To 表达式”来指定一个范围时，必须把U 【15】 /U的值写在前面。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试
21、 300 答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.软件文档是软件工程实施中的重要部分，它不仅是软件开发各阶段的重要依据，而且影响软件的_。（分数：2.00）A.可理解性B.可维护性 C.可扩展性D.可移植性解析：2.单击命令按钮时，下列程序代码的执行结果为_。 Private Sub Proe1 (n As Integer，ByVa1 m As Integer) n=n Mod 10 m=m/ 10 End Sub Private Sub Command1_Click() Dim x As Integer Dim y As Int
22、eger x= 12 y = 34 Call Proe1 (x, y) Print x; y End Sub（分数：2.00）A.12 34B.2 34 C.2 3D.12 3解析：3.若要设置定时器控件的定时时间，需设置的属性是_。（分数：2.00）A.Interval B.ValueC.EnabledD.Text解析：4.下列程序段的执行结果为_。 Dim M(10), N(10) I=3 For T = 1 To 5 M(T) = T N(I) = 2 * I + T Next T Print N(I)； M(I)（分数：2.00）A.3 11B.3 15C.11 3 D.15 3解析：
23、5.执行以下程序段后，整型变量 C 的值为_。 a=24 b=328 Select Case b/10 Case 0 c=a*10+b Case 1 to 9 c=a*100+b Case 10 to 99 c=a*10000+b End Select（分数：2.00）A.537B.2427C.24328 D.240328解析：6.程序的基本控制结构是_。（分数：2.00）A.顺序结构，多分支结构和单分支结构B.ForNext 结构、DoLoop 结构和 SelectCase 结构。C.顺序结构，选择结构和循环结构。 D.单行结构和多行结构。解析：7.一个教师能开多门课程，一门课程有许多教师会
24、开，实体课程与实体教师间是_。（分数：2.00）A.一对一的联系B.一对多的联系C.多对多的联系 D.多对一的联系解析：8.在长度为 n 的顺序表的第 i(1in+1)个位置上插入一个元素，元素的移动次数为_。（分数：2.00）A.n-i+1 B.n-iC.iD.i-1解析：9.设有如下语句：strl=InputBox(“输入”，“”，“练习”)从键盘上输人字符串“示例”后，strl 的值是_。（分数：2.00）A.“输入”B.“”C.“练习”D.“示例” 解析：10.设已打开 5 个文件，文件号为 1, 2, 3, 4, 5。要关闭所有文件，以下语句正确的是_。（分数：2.00）A.Clos
25、e #1,2,3,4,5B.Close #1; #2; #3; #4; #5C.Close #1-#5D.Close 解析：11.某二叉树的中序序列和后序序列正好相反，则该二叉树一定是_ 的二叉树。（分数：2.00）A.空或只有一个结点B.高度等于其结点数C.任一结点无左孩子 D.任一结点无右孩子解析：12.若要在图片框中绘制一个椭圆，使用的方法是_。（分数：2.00）A.Circle B.LineC.PointD.Pset解析：解析：14.下列说法错误的是_。（分数：2.00）A.在同一模块不同过程中的变量可以同名B.不同模块中定义的全局变量不可以同名C.引用另一模块中的全局变量时，必须在变
26、量名前加模块名D.同一模块中不同级的变量可以同名 解析：15.下列程序执行后，变量 a 的值为_。 dim a, b, c, d as single a=100 b=20 c=1000 if ba then d=a: a=b: b=d end if if ca then d=a: a=c: c: d end if if cb then d=b: b=c: c=d end if（分数：2.00）A.0B.1000 C.20D.100解析：16.在窗体上添加一个命令按钮，名为 command1，一文本框，名为 text1，则执行如下事件过程后，文本框中的输出为_。 For i = 1 To 3 F
27、or 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.21B.42C.54 D.72解析：17.对于顺序存储的队列，存储空间大小为 n，头指针为 F，尾指针为 R。若在逻辑上看成一个环，则队列中元素的个数为_。（分数：2.00）A.R-F B.n+ R-PC.(R-F+1)mod nD.(n+ R mod n解析：18.若要使某命令按钮获得控制焦点；可使用的方法是_。（分数：2.00）A.LostPoeusB.SetFocus C.PointD.Value解析：19.程序的
28、三种基本控制结构的共同特点是_。（分数：2.00）A.不能嵌套使用B.只能用来写简单程序C.已经用硬件实现D.只有一个入口和一个出口 解析：20.在 Visual Basic 中，要将一个窗体装载到内存进行预处理，但不显示，应该使用那种语句：_。（分数：2.00）A.ShowB.HideC.Load D.Unload解析：21.若整型变量 a 值为 2、b 的值为 3，则下列程序段执行后整型变量 c 的值为_。 If a5 then If b4 Then c=a-b Else c=b-a Else If b3 Then c=a*b Else c=a mod b End If（分数：2.00）A
29、.2 B.-1C.1D.6解析：22.目录列表框的 Path 属性的作用是_。（分数：2.00）A.显示当前驱动器或指定驱动器上的目录结构 B.显示当前驱动器或指定驱动器上的某目录下的文件名C.显示根目录下的文件名D.显示路径下的文件解析：23.下列的程序段执行后，X 的值为_。 K=0 For i=1 To 10 For j=i To 10 x= x + 1 Next j Next i（分数：2.00）A.50B.55 C.100D.105解析：24.下列关于 For.next 语句的说法正确的是_。（分数：2.00）A.循环变量、初值、终值和步长都必须为数值型。 B.step 后的步长只为
30、正数。C.初值必须小于终值。D.初值必须大于终值。解析：25.设 R 和 S 为二个关系，_中的符号分别代表选择、投影、笛卡儿积的关系代数运算。（分数：2.00）A.F(，A(、RS B.EA(、VA(、R*SC.RS、RS、RSD.A(，F(、RS解析：26.若某完全二叉树的深度为 h，则该完全二叉树中至少有_个结点。（分数：2.00）A.2hB.2h-1 C.2h-1-1D.2h-1+1解析：27.数据结构中，通常采用两种方法衡量算法的时间复杂性，即_。（分数：2.00）A.最大时间复杂性和最小时间复杂性B.最好时间复杂性和最坏时间复杂性C.部分时间复杂性和总体时间复杂性D.平均时间复杂性
31、和最坏时间复杂性 解析：28.在窗体上添加如下命令按纽，然后编写如下事件过程： Private Sub Command1_Click() Dim a(10)As Integer Dim p(3)As Integer k= 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub 该过程的运行结果为_。（分数：2.00）A.35B.33 C.31D.29解析：29.数据库管理系统 DBMS 中用来定义模
32、式、内模式和外模式的语言是_。（分数：2.00）A.DMLB.CC.DDL D.Pascal解析：30.在 VB 中，过程共有三种，它们是_。（分数：2.00）A.事件过程，子过程和函数过程 B.Sub 过程, Function 过程和 Property 过程。C.事件过程，函数过程和属性过程。D.Sub 过程，函数过程和通用过程。解析：31.下列程序执行后，变量 x 的值为_。 Dim a, b, c, d As Single Dim x As Single a=100 b=20 c=1000 If ba Then d=a: a=b: b=d End If If bc Then x=b El
33、seif ac then x=c Else x=a End If（分数：2.00）A.100 B.20C.1000D.0解析：32.滚动条控件的 LargeChange 属性所设置的是_。（分数：2.00）A.单击滚动条和滚动箭头之间的区域时，滚动条控件 Value 属性值的改变量 B.滚动条中滚动块的最大移动位置C.滚动条中滚动块的最大移动范围D.滚动条控件无该属性解析：33.在 Visual Basic 中，要将一个窗体从内存中释放，应使用_语句。（分数：2.00）A.ShowB.HideC.LoadD.Unload 解析：34.有如下函数过程: Function lj(x As Inte
34、ger) As Long Dim s As Long Dim i As Integer s=0 For i = 1 To x s=s+ i Next i 1j= s End Function 在窗体上添加一个命令按钮，名为 Command1, 编写事件过程调用该函数： Private Sub Command1 Click() Dim i As Integer Dim sum As Long For i = 1 To 5 sum = sum + 1j(i) Next i Print sum End Sub（分数：2.00）A.25B.35 C.45D.55解析：35.已知变量 x，y 为整数型，
35、且 x=4，y=12，s 为字符串型，且 s=“a”，lblok 为标签控件，下列赋值语句合法的是_。（分数：2.00）A.x=lblo CaptionB.Lblo caption=Str( C.x*3=yD.Y=x*s解析：二、B填空题/B(总题数：11，分数：22.00)36.在面向对象的程序设计中，类描述的是具有相似性质的一组U 【1】 /U。（分数：2.00）填空项 1:_ （正确答案：对象）解析：37.面向对象的模型中、最基本的概念是对象和U 【2】 /U。（分数：2.00）填空项 1:_ （正确答案：类）解析：38.冒泡排序在最好情况下时间复杂度为U 【3】 /U。（分数：2.00
36、）填空项 1:_ （正确答案：0(n)）解析：39.在关系代数运算中，并、笛卡尔积，投影、选择和U 【4】 /U为基本的运算（分数：2.00）填空项 1:_ （正确答案：差）解析：40.成本效益分析的目的是从U 【5】 /U角度评价开发一个项目是否可行。（分数：2.00）填空项 1:_ （正确答案：经济）解析：41.窗体中有图片框(Pieture1)和计时器(Timer1)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每 2 秒钟一次的速度向窗体的右下角移动，每次向左，向右移动 100twip。请填空。 Private Sub Form_ Load() Picture1_icture
37、=LoadPicture(“c:/pic/mouth.ico”) U 【6】 /U.Interval=2000 End Sub Private Sub Timer1_ Timer() Static x，y As Integer x=x+100 y=y+100 Pictuer1.Move x, y End Sub（分数：2.00）填空项 1:_ （正确答案：Timerl）解析：42.下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框 Text1 输入。例如数组各元素的值依次为 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后，各元素的值依次为 8,
38、 9, 10, 0, 1,2 3,4,5,6,7。 Private Sub MoveRight (x() As Integer) Dim i As Integer Dim j As Integer Dim k As Integer i = UBound (x) j = x(i) For k = i ToU 【7】 /UStep -1 U【8】 /U Next k x(LBeund(x) = j End Sub Private Sub Command1_click() Dim a(10) As Integer Dim i As Integer Dim j As Integer Dim k As
39、Integer For i = 0 To 10 a(i) = i Next i j = Val(Text1. Text) k=0 Do k=k+1 Call MoveRight(a) Loop Until k = j For i = 0 To 10 Print a(i); Next i End Sub（分数：2.00）填空项 1:_ （正确答案：7 LBound (x)+1）解析：8 x(k)=x(k-1)43.下列程序是用来计算 1+2+3+10 的程序段，请补充该程序。 Dim i, s, k As Integer s =0: k = 0 ForU 【9】 /UTo 1 k=k+1 s=s
40、+ k Next i Print s（分数：2.00）填空项 1:_ （正确答案：9j=-10）解析：44.面向对象的程序设计方法是把U 【10】 /U封装起来作为一个对象，并为每一个对象设置所需要的 U【11】 /U。（分数：2.00）填空项 1:_ （正确答案：10 程序和数据）解析：11 属性45.以下程序用来建立一个 10*10 矩阵，该矩阵两条对角线上的元素为 1，其余元素为 0，请补充完该程序。该程序运行结果见下图。 Private Sub Form_ click() Dim s(10, 10) As Integer For n = 1 To 10 For m = 1 To 10
41、IfU 【12】 /UOrU 【13】 /UThen s (n, m) = 1 Else s (n, m) = 0 End If Next m Next n For n = 1 To 10 ForU 【14】 /U。 Picturel. Print Tab(m * 3); s(n, m) Next m Print Next n End Sub（分数：2.00）填空项 1:_ （正确答案：12 n=m）解析：13 n=11-m 14 m= 1 To 1046.在 Select case 结构中，使用“To 表达式”来指定一个范围时，必须把U 【15】 /U的值写在前面。（分数：2.00）填空项 1:_ （正确答案：较小）解析：
