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