1、二级 VISUAL+BASIC 笔试-118 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.为了取消窗体的最小化功能，需要将它的一个属性设置为 False，这个属性是（分数：2.00）A.ControlBoxB.MinButtonC.EnabledD.MaxButton2.下列叙述中，错误的是（分数：2.00）A.数据的存储结构与数据处理的效率密切相关B.数据的存储结构与数据处理的效率无关C.数据的存储结构在计算机中所占的空间不一定是连续的D.一种数据的逻辑结构可以有多种存储结构3.在窗体上画一个名称为 Command1 命令按钮，然后编
2、写如下事件过程：Private Function fun1(n As Integer)As IntegerDim k As IntegerIf n = 1 Thenk = 1Elsek = 1 + fun1(n - 1)* 2End Iffun1 = kEnd FunctionPrivate Sub Command1_Click ()Dim m As Integer, x As Integerx = 4m = fun1 (x)Print mEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.4B.6C.9D.154.在设计阶段，当双击窗体上的某一个文本框控件时，系
3、统将在代码窗口中显示该文本框控件的事件过程模板是（分数：2.00）A.ClickB.DblClickC.ChangeD.GotFocus5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(4)As Integer, x As Integer, sum As Integern = 4: sum = 0a (1) = 1For k = 0 To n - 1For i = 1 To k + 1x = k + 2 - ia(x)= a(x)+ a(x - 1)If x n - k Then Exit Fors
4、um = sum + a(x)Next iNext kPrint sumEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.5B.6C.8D.116.当拖动滚动条中的滚动块时，将触发的滚动条事件是（分数：2.00）A.MoveB.ChangeC.ScrollD.SetFocus7.编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)P
5、rint Chr(KeyAscii)End Sub在一般情况下(即不按住 Shift 键和锁定大写键)，运行程序，如果按“A”键，则程序的输出是（分数：2.00）A.AAB.aAC.AaD.aa8.Visual Basic 程序中分隔各语句的字符是（分数：2.00）A.B.：C./D._9.下列程序运行后会出现错误的提示为Private Sub Command1_Click()Dim i AS IntegerDim xx=Array(2，3， 4， 5， 6， 7)For Each i In xPrint i；Next iEnd Sub（分数：2.00）A.数组的下标超界B.For Each
6、数组的控制变量必须为变体变量C.关键字 Each 的位子不对D.x 应该定义成数组10.以下关系表达式中，其值为 False 的是（分数：2.00）A.“Base“Basic“B.“List1“Command1“C.“CASE“=Ucase(“case“)D.“Integer“Int“11.执行语句 s=Len(Mid(“study hard“，1，5)后，s 的值是（分数：2.00）A.studyB.hardC.5D.1012.当利用 Line 方法添加图形时，以下说法正确的是（分数：2.00）A.有 7 种不同的线型，而且不管线宽多少都可以绘制虚线、点划线、点线B.使用 Line(100,
7、100)-(1000,1200)和 Line(100,100)-Step(900,1100)将绘制两条相同位置的直线C.可利用 Line 方法添加矩形，如 Line(300,300)-(2000,2000)，BFD.可利用 Line 方法添加矩形，如 Line(300,300)-(2300,2300)，B+F13.为了保存一个 Visual Basic 应用程序，下列说法中正确的是（分数：2.00）A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件14.在窗体上画一个命令按钮，然后编写如下代
8、码：Private Sub Command1_Click()aSpc(5)；b；Spc(7)；cPrint a；Space(8)；b；Space(5)；cPrint c；Spc(1)；“+“；Spc(1)；d；Print Spc(1)；“=“；Spc(1)；c+dEnd Sub运行上面的程序，单击窗体后，第三行输出的结果是（分数：2.00）A.20+25=45B.20+25=45C.10 15 20D.20 25 4516.在面向对象方法中，一个对象请求另一个对象为其服务的方式是通过发送（分数：2.00）A.调用语句B.命令C.口令D.消息17.在窗体上画一个名称为 Command1 的命令按
9、钮，然后编写如下事件过程：Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)z=x * x+ y * yEnd SubPrivate Sub Command1_Click()Dim a As Integera = 8Call sub1(1, 2,（分数：2.00）A.Print aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是 A) 8B.2C.5D.1118.为了提高测试的效率，应该（分数：2.00）A.随机地选取测试数据B.取一切可能的输入数据作为测试数据C.在完成编码以后制
10、定软件的测试计划D.选择发现错误可能性大的数据作为测试数据19.使用 Redim Preserve 可以改变数组的（分数：2.00）A.最后一维的大小B.第一维的大小C.所有维的大小D.改变维数和所有维的大小20.编写如下通用过程：Sub Proc(x As Single, y As Single)t = xx = t/yy = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click ()Dim a As SingleDim b As Singlea = 5b = 4Proc a, bPrint a, bEnd Sub程
11、序运行后，如果单击命令按钮，则输出结果为（分数：2.00）A.5 4B.1.25 1C.4 5D.1.25 521.以下叙述正确的是（分数：2.00）A.SelectCase 语句中的测试表达式可以是任何形式的表达式B.SelectCase 语句中的测试表达式只能是数值表达式或字符串表达式C.在执行 SelectCase 语句时，所有 Case 子句均按出现的次序被顺序执行D.如下 SelectCase 语句中的 Case 表达式是错误的Select Case xCase 1 to 10.End Select22.窗体上没有任何控件，编写下列程序：Option Base 1Private Su
12、b Form_KeyPress(KeyAscii As Integer)a = Array(5, 2, 7, 6, 9)x = a(1)y = 1If KeyAscii = 13 ThenFor i = 2 To 5If a(i)m1 Thenx = a (i)y= iEnd IfNext iEnd IfPrint x; yEnd Sub执行程序后，按下回车键后输出的结果为（分数：2.00）A.5 1B.9 5C.2 2D.7 323.如果 Tab 函数的参数小于 1，则打印位置所在的列是（分数：2.00）A.0B.1C.2D.324.假设线性表的长度为 n，则在最坏的情况下，冒泡排序法的时间
13、复杂度是（分数：2.00）A.log2nB.nlog2nC.n(n-1)D.n(n-1)/225.运行下列程序：Private Sub Command1_Click()x = 0Do While x10x=x * x + 1y=y+xLoopMsgBox yEnd Sub单击 Command1 命令按钮后，弹出的消息对话框中会显示（分数：2.00）A.5B.8C.26D.3426.某线性表最常用的运算是插入和删除，插入运算是指在表尾插入一个新元素，删除运算是指删除表头第一个元素，那么最节省运算时间的存储方式是，（分数：2.00）A.仅有尾指针的单向循环链表B.仅有头指针的单向循环链表C.单向链
14、表D.顺序存储27.以下关于多重窗体程序的叙述中，错误的是（分数：2.00）A.用 Hide 方法不但可以隐藏窗体，而且能清除内存中的窗体B.在多重窗体程序中，各窗体的菜单是彼此独立的C.在多重窗体程序中，可以根据需要指定启动窗体D.对于多重窗体程序，需要单独保存每个窗体28.下列程序是将两个文本框(text1 和 text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。Private Sub Command1_Click()Dim sl As String，s2 As StringS1=Text1.TextS2=Text2.TextFor i=Len(s1)To 1 Step-
15、1s3=s3+Mid(s1，i，1)+Mid(s2，i，1)Next iPic1.Print s3End Sub程序运行后，在 Text1 文本框中输入“ABCDE”，在 Text2 文本框中输入“12345”，单击命令按钮，则在Pic1 图片框中显示的内容是（分数：2.00）A.E5D4C3B2A1B.ABCDE12345C.12345ABCDED.A1B2C3D4E529.数据库设计包括两个方面的设计内容，它们是（分数：2.00）A.概念设计和逻辑设计B.模式设计和内模式设计C.内模式设计和物理设计D.结构特性设计和行为特性设计30.下列关于栈的叙述中正确的是（分数：2.00）A.在栈中只
16、能插入数据B.在栈中只能删除数据C.栈是先进先出的线性表D.栈是先进后出的线性表31.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labell，然后编写如下事件过程：Private Sub Command1_Click()Counter=0For i=1 To 4For j=8 To 1 Step-2Counter=Counter+1Next iNext iLabell.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是（分数：2.00）A.11B.12C.16D.2032.窗体文件的扩展名是（分数：2.00）AfrmB
17、vbpCbasDfrx33.数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符号构成。下列图符号不属于数据流图的是（分数：2.00）A.控制流B.加工C.数据存储D.源和潭34.己知一棵二叉树的前序遍历为 ABDECF，中序遍历为 DBEAFC，则对该树进行后序遍历得到的序列为（分数：2.00）A.DEBAFCB.DEFBCAC.DEBCFAD.DEBFCA35.数据库技术处于数据库系统阶段的时间段是（分数：2.00）A.60 年代后期到现在B.60 年代到 80 年代中期C.80 年代以前D.70 年代以前二、填空题(总题数：12，分数：30.00)36.某二叉树中度为 2 的
18、结点有 18 个，则该二叉树中有 【1】 个叶子结点。（分数：2.00）填空项 1:_37.在长度为 n 的有序线性表中进行二分法查找，在最坏的情况下，需比较的次数为 【2】 。（分数：2.00）填空项 1:_38.结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、 【3】 和限制使用 goto 语句。（分数：2.00）填空项 1:_39.诊断和改正程序中错误的工作通常称为 【4】 。（分数：2.00）填空项 1:_40.数据模型按不同的应用层次分为 3 种类型，它们是 【5】 数据模型、逻辑数据模型和物理数据模型。（分数：2.00）填空项 1:_41.Visual Basic 中的控
19、件分为 3 类，它们是 【6】 、ActiveX 控件和可插入对象。（分数：2.00）填空项 1:_42.Visual Basic 识别对象靠的是对象的 【7】 属性。（分数：2.00）填空项 1:_43.为了显示一个窗体，所使用的方法为 【8】 ；而为了隐藏一个窗体，所使用的方法为 【9】 。（分数：4.00）填空项 1:_44.在 Visual Basic 中，用于文件复制的命令是 【10】 。（分数：2.00）填空项 1:_45.斐波那契(Fibonacci)数列的构成规律是：数列的第 1、2 个数是 1，从第 3 个数起，每个数是其前面两个数之和。据此，下面有求斐波那契前 12 项值的
20、过程，请完善程序。Sub Fibonacci(N As Integer，s1)s1=0f1=1【11】 For i=1 To N/2Print f1；f2；s1=f1+f2f1=f1+f2f2= 【12】 Next iPrintEnd SubPrivate Sub Command1_Click()Dim sum As IntegerCall Fibonacci(12，sum)Print “Sum=“；sumEnd Sub（分数：4.00）填空项 1:_46.以下程序的功能是：将当前目录下的顺序文件 mText1.txt 的内容读入内存，并在图片框 Picture1 中显示出来。请完善程序。Pr
21、ivate Sub Command1_Click()Dim inData As StringOpen “./mText1.txt“ 【13】 As 1Do While Not EOF(1)Input #1，inDataPicture1.Print inDataLoopClose #1End Sub（分数：2.00）填空项 1:_47.运行下列程序，单击 Command1 命令按钮后，则在窗体上显示第一行和第二行的结果分别是 【14】 和 【15】 。Private Sub Command1_Click()t=1:x=2:y=3:z=4If t0 Or t=x And x y Or yz The
22、nt=fun1(t，z)Print tElset = fun1(x, y)Print tEnd IfPrint xPrint yEnd SubFunction funl(ByVal x As Integer, ByVal y As Integer)As IntegerDo While y 0t=x/yx=yy = tLoopfun1 = xEnd Function（分数：4.00）填空项 1:_二级 VISUAL+BASIC 笔试-118 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.为了取消窗体的最小化功能，需要将它的一个属性设置为 Fa
23、lse，这个属性是（分数：2.00）A.ControlBoxB.MinButton C.EnabledD.MaxButton解析：分析 MaxButton、MinButton 两个属性用来显示窗体右上角的最大、最小化按钮。如果希望显示最大或最小化按钮，则应将两个属性设置为 True，这两个属性只在运行期间起作用。在设计阶段，这两项设置不起作用，因此，即使将 MaxButton 属性和 MinButton 属性设置为 False，最大、最小化按钮也不会消失。如果 BorderStyle 属性被设置为“O-None”，则这两个属性将被忽略。2.下列叙述中，错误的是（分数：2.00）A.数据的存储结
24、构与数据处理的效率密切相关B.数据的存储结构与数据处理的效率无关 C.数据的存储结构在计算机中所占的空间不一定是连续的D.一种数据的逻辑结构可以有多种存储结构解析：分析 数据的存储结构是数据的逻辑结构在计算机存储空间中的存放形式，也称数据的物理结构。一个数据结构中的各数据元素在计算机存储空间的位置与逻辑关系有可能不同。一种数据结构可根据需要采用不同的存储结构。常用的存储结构有顺序、链接、索引等存储方式。采用不同的存储结构，其数据处理的效率是不同的。3.在窗体上画一个名称为 Command1 命令按钮，然后编写如下事件过程：Private Function fun1(n As Integer)A
25、s IntegerDim k As IntegerIf n = 1 Thenk = 1Elsek = 1 + fun1(n - 1)* 2End Iffun1 = kEnd FunctionPrivate Sub Command1_Click ()Dim m As Integer, x As Integerx = 4m = fun1 (x)Print mEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.4B.6C.9D.15 解析：分析 fun1 是一个递归过程，fun1 函数过程共调用了 5 次，在 Command1 的单击事件中调用了fun1(4)，其他 3
26、 次调用的分别是 fun1(3)、 fun1(2)和 fun1(1)，由 fun1 函数过程自身调用。在 fun1 的调用过程中，相当于 k=1、k=1+12 =3、k=1+32=7、k=1+27=15。4.在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控件的事件过程模板是（分数：2.00）A.ClickB.DblClickC.Change D.GotFocus解析：分析 每个控件都有一个系统默认的主要事件，在设计状态双击该控件会切换到代码窗口中显示其主要事件的过程模板。除了文本框默认事件为 Chang 以外，另外还有：组合框、水平滚动条和垂直滚动条这 3 个控件
27、。5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(4)As Integer, x As Integer, sum As Integern = 4: sum = 0a (1) = 1For k = 0 To n - 1For i = 1 To k + 1x = k + 2 - ia(x)= a(x)+ a(x - 1)If x n - k Then Exit Forsum = sum + a(x)Next iNext kPrint sumEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（
28、分数：2.00）A.5B.6C.8D.11 解析：分析 上述程序在双层循环内有一个判断条件，分析其计算过程时比较麻烦，读者要仔细分析。变量 x 的计算过程为：x=1、2、3、2、1、4、3、2、 1，表达式 n-k 的计算过程为：n-k=4、3、2、2、 2、1、1、1、1。其中有 14、23、21 这些条件成立时跳出内部循环，其他内循环都将数组元素值相加起来，即 sum=1+2+1+3+3+1=11。6.当拖动滚动条中的滚动块时，将触发的滚动条事件是（分数：2.00）A.MoveB.ChangeC.Scroll D.SetFocus解析：分析 与滚动条有关的事件主要是 Scroll 和 Ch
29、ange。当在滚动条内拖动滚动块时会触发 Scroll事件，单击滚动箭头或滚动条时不发生 Scroll 事件。7.编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住 Shift 键和锁定大写键)，运行程序，如果按“A”键，则程序的输出是（分数：2.00）A.AAB.aAC.Aa D.aa解
30、析：分析 在按键盘时，先触发的是 KeyDown 事件，再触发 KeyPress 事件。其中，当按字母键“A”时，KeyDown 所得到的 KeyCode 码 (KeyDown 事件的参数)65 与按字母键“a”是相同的，而对 KeyPress来说，字母键“A”的 KeyAscii 为 65，字母键“a”的 KeyAscii 为 97。8.Visual Basic 程序中分隔各语句的字符是（分数：2.00）A.B.： C./D._解析：分析 在一般情况下，输入程序时要求一行一句，一句一行。但 Visual Basic 允许使用复合语句行，即把几个语句放在一行中，各语句之间用冒号(：)隔开。9.
31、下列程序运行后会出现错误的提示为Private Sub Command1_Click()Dim i AS IntegerDim xx=Array(2，3， 4， 5， 6， 7)For Each i In xPrint i；Next iEnd Sub（分数：2.00）A.数组的下标超界B.For Each 数组的控制变量必须为变体变量 C.关键字 Each 的位子不对D.x 应该定义成数组解析：分析 对于数组而言，ForEach 数组的控制变量只能是一个变体变量。所以上述程序运行后会出现一个如选项 B 内容的错误提示。本程序运行后不会出现选项 A、C 和 D 的提示。10.以下关系表达式中，其
32、值为 False 的是（分数：2.00）A.“Base“Basic“ B.“List1“Command1“C.“CASE“=Ucase(“case“)D.“Integer“Int“解析：分析 字符串比较大小的规则是从左到右逐个比较其字符的 ASCII 值。有以下几种情况：字符串完全相等。当两个字符串不是所有对应位置上的字符都相等，以第一次出现不同字符时的比较结果为准。例如，当“Base“与“Basic“进行比较时，先比“B”=“B”，再比“a”=“a”，再比“s”=“s”，再比“e”“i”，计算结果为 False，空格与“c”就没必要继续进行比较了。两个字符串不一样长时。将长度短的字符串右边用
33、空格补齐，然后逐个比较。部分相同的两个字符串，长的大。相同大小写的字母按英文字典顺序比较。在字典中后出现的比在前面出现的大。大小写不同的字母，小写字母总是大于相同的大写字母。汉字字符串按拼音的 ASCII 值比较。数字字符规则同上。11.执行语句 s=Len(Mid(“study hard“，1，5)后，s 的值是（分数：2.00）A.studyB.hardC.5 D.10解析：分析 中部截取函数 Mid(字符串，p，n)的作用是：从“字符串”的第 p 个字符开始，向后截取 n 个字符。字符串长度测试函数 Len(字符串)的作用是；测试“字符串”的长度。Mid(“study hard“，I，
34、5)的计算结果为“study”，Len(“study”)的计算结果为 5。12.当利用 Line 方法添加图形时，以下说法正确的是（分数：2.00）A.有 7 种不同的线型，而且不管线宽多少都可以绘制虚线、点划线、点线B.使用 Line(100,100)-(1000,1200)和 Line(100,100)-Step(900,1100)将绘制两条相同位置的直线 C.可利用 Line 方法添加矩形，如 Line(300,300)-(2000,2000)，BFD.可利用 Line 方法添加矩形，如 Line(300,300)-(2300,2300)，B+F解析：分析 Line 方法的格式为：obj
35、ect.Line Step (x1，y1)Step(x2，y2)， color， BF其中：object：对象表达式。Step: 指定起点坐标。(x1，y1)：直线或矩形的起点坐标。Step：指定相对于线的起点的终点坐标。(x2，y2)：直线或矩形的终点坐标。color：画线时用的 RGB 颜色。B：画出矩形。F：矩形边框的颜色填充因此，选项 B 中两条线的起点坐标都是 (100,100)，当终点坐标为(1000，1200)时，线的实际增量为(900，1100)，与第 2 种画法是同一条线，只是两种表示的方式不同。13.为了保存一个 Visual Basic 应用程序，下列说法中正确的是（分数
36、：2.00）A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件 解析：分析 Visual Basic 应用程序可以用 4 种类型的文件保存。它们是单独的窗体文件、公用的标准模块文件、类模块文件和工程文件。在保存工程文件之前，应先分别保存窗体文件和标准模块文件(如果存在)。14.在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click()aSpc(5)；b；Spc(7)；cPrint a；Space(8)；b；Space(5)；cPrint c；Spc(1
37、)；“+“；Spc(1)；d；Print Spc(1)；“=“；Spc(1)；c+dEnd Sub运行上面的程序，单击窗体后，第三行输出的结果是（分数：2.00）A.20+25=45 B.20+25=45C.10 15 20D.20 25 45解析：分析 Spc(n)函数应该与 Print#语句或 Print 方法一起使用，对输出进行定位。n 参数是在显示或打印列表中的下一个表达式之前插入的空白数。Space(n)函数返回 n 个空格的字符串。两个函数相同之处是都能由 Print 方法的格式输出，不同的是 Space(n)函数有返回值，它能用于表达式中，而 Spc(n)函数没有返回值，它只能用
38、于 Print#语句或 Print 方法中。16.在面向对象方法中，一个对象请求另一个对象为其服务的方式是通过发送（分数：2.00）A.调用语句B.命令C.口令D.消息 解析：分析 面向对象的世界是通过对象与对象间彼此的相互合作来推动的，对象间的这种相互合作需要一个机制协助进行，这样的机制称为消息。消息是一个实例与另一个实例之间传递的信息，它请求对象执行某一处理或回答某一要求的信息，它统一了数据流和控制流。17.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub sub1(ByVal x As Integer, ByVal y As Integer
39、, ByVal z As Integer)z=x * x+ y * yEnd SubPrivate Sub Command1_Click()Dim a As Integera = 8Call sub1(1, 2,（分数：2.00）A.Print aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是 A) 8 B.2C.5D.11解析：分析 因为 sub1 过程的形参都是传值传送，所以在其内的所有计算结果都将不返回，并不影响对应的实参值，变量 a 的值并没有改变，仍旧是 8。18.为了提高测试的效率，应该（分数：2.00）A.随机地选取测试数据B.取一切可能的输入数据作为测试数据C.在
40、完成编码以后制定软件的测试计划D.选择发现错误可能性大的数据作为测试数据 解析：分析 软件测试是为了尽可能多的发现程序中的错误，尤其是发现至今尚未发现的错误。在选取测试用例时，不可能进行穷举测试，对每一个细节进行测试，也不能无目的地随机选取测试数据，为了提高测试的效率，测试用例应该选择发现错误可能性大的部分，这样的测试结果才符合软件测试的目的。19.使用 Redim Preserve 可以改变数组的（分数：2.00）A.最后一维的大小 B.第一维的大小C.所有维的大小D.改变维数和所有维的大小解析：分析 如果使用了 Preserve 关键字，就只能重定义数组最末维的大小，且根本不能改变维数的数
41、目。例如，如果数组就是一维的，则可以重定义该维的大小，因为它是最末维，也是仅有的一维。不过，如果数组是二维或更多维时，则只有改变其最末维才能同时仍保留数组中的内容。20.编写如下通用过程：Sub Proc(x As Single, y As Single)t = xx = t/yy = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click ()Dim a As SingleDim b As Singlea = 5b = 4Proc a, bPrint a, bEnd Sub程序运行后，如果单击命令按钮，则输出结果为（分
42、数：2.00）A.5 4B.1.25 1 C.4 5D.1.25 5解析：分析 本题中的 Proc 过程有两个参数，均为单精度类型，由于没有 ByVal 关键字，参数使用的是引用(即传址)方式。也就是说，实参 a、 b 与形参 x、y 使用的是相同的地址。因此，由过程 Proc 计算出来的 x、y 的值实际上与实参 a、b 的值相同。在事件过程中，执行 Proc a，b 语句后，就将 a(值为 5)、b(值为 4)的值分别传送给过程 Proc 中的 x、y，使得 x=5，y=4。在过程中，首先将 x 的值赋给 t，即 t 的值为 5，然后执行；x=t/y=5/4=1.25 和 y=t mod
43、y=5 Mod 4=1。21.以下叙述正确的是（分数：2.00）A.SelectCase 语句中的测试表达式可以是任何形式的表达式B.SelectCase 语句中的测试表达式只能是数值表达式或字符串表达式 C.在执行 SelectCase 语句时，所有 Case 子句均按出现的次序被顺序执行D.如下 SelectCase 语句中的 Case 表达式是错误的Select Case xCase 1 to 10.End Select解析：分析 SelectCase 语句中的测试表达式只能是数值表达式或字符串表达式。依次判断所有的 Case，如果满足条件，则执行满足这一条件的 Case 语句，Case
44、 语句的条件可以是 n to m 的格式，例如Case1 to 10 是合法的。22.窗体上没有任何控件，编写下列程序：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(5, 2, 7, 6, 9)x = a(1)y = 1If KeyAscii = 13 ThenFor i = 2 To 5If a(i)m1 Thenx = a (i)y= iEnd IfNext iEnd IfPrint x; yEnd Sub执行程序后，按下回车键后输出的结果为（分数：2.00）A.5 1B.9 5 C.2 2D.7
45、3解析：分析 按下回车键后，KeyAscii 的值为 13。程序的功能是：变量 x 记录数组中最大的值，变量 v记录最大值在数组中的位置。现假定最大值在第一个数组元素中，然后逐个进行比较，如果某个数大于 x中的数，就将该数重新赋值给 x，同时也将下标值赋值给 y，最后输出 9 和 5。23.如果 Tab 函数的参数小于 1，则打印位置所在的列是（分数：2.00）A.0B.1 C.2D.3解析：分析 Tab 函数常与 Print#语句或 Print 方法一起使用，对输出进行定位。只有一个参数 n 表示在显示或打印列表中的下一个表达式之前打印起始位置移动的列数。如果 n 小于 1，则 Tab 将打
46、印位置移动到列 1；如果 n 大于输出行的宽度，则 Tab 函数使用以下公式计算下一个打印位置：n mod width。24.假设线性表的长度为 n，则在最坏的情况下，冒泡排序法的时间复杂度是（分数：2.00）A.log2nB.nlog2nC.n(n-1)D.n(n-1)/2 解析：分析 假设线性表的长度为 n，则在最坏的情况下，冒泡排序需要经过 n/2 遍从前往后的扫描和n/2 遍从后往前的扫描，需要的比较次数为 n(n-1)/2。25.运行下列程序：Private Sub Command1_Click()x = 0Do While x10x=x * x + 1y=y+xLoopMsgBox
47、 yEnd Sub单击 Command1 命令按钮后，弹出的消息对话框中会显示（分数：2.00）A.5B.8C.26D.34 解析：分析 变量 x 控制循环次数，其计算过程为： x=1，2、5、26，所以 Do-Loop 实际循环了 4 次。变量 y 的计算过程为；y=1+2+5+26=34。26.某线性表最常用的运算是插入和删除，插入运算是指在表尾插入一个新元素，删除运算是指删除表头第一个元素，那么最节省运算时间的存储方式是，（分数：2.00）A.仅有尾指针的单向循环链表 B.仅有头指针的单向循环链表C.单向链表D.顺序存储解析：分析 由于规定了插入运算是在表尾插入一个新元素，删除运算是指删
48、除表头第一个元素。如果使用单向链表，且仅有头指针的单向循环链表，每次插入结点都要遍历整个链表，找到链尾，才能进行插入。如果采用顺序存储，每次删除表头元素时，都要移动 n-1 个元素。如果使用仅有尾指针的单向循环链表，插入新元素时，仅需移动尾指针就可以了，删除结点时，只需一步操作就可以定位到头结点，就可以进行删除，因为头结点是尾指针的下一个结点。27.以下关于多重窗体程序的叙述中，错误的是（分数：2.00）A.用 Hide 方法不但可以隐藏窗体，而且能清除内存中的窗体 B.在多重窗体程序中，各窗体的菜单是彼此独立的C.在多重窗体程序中，可以根据需要指定启动窗体D.对于多重窗体程序，需要单独保存每个窗体解析：分析 Hide 方法使窗体隐藏，即不在屏幕上显示，但仍在内存中，因此，它与 Unload 语句的作用是不一样的。当对象为窗体时，如果 Visible 的属性值为 True，则其作用与 Show 方法相同；类似地，如果 Visible 的属性值为 False，则其作用与 Hide 方法相同。28.下列程序是将两个文本框(text1 和 text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。Private Sub Command1_Click()Dim sl As Str
