1、VB笔试模拟试卷 153及答案与解析 1 算法的空间复杂度是指 _。 （ A）算法程序的长度 （ B）算法程序中的指令条数 （ C）算法程序所占的存储空间 （ D）算法执行过程中所需要的存储空间 2 下列关于栈的叙述中正确的是 _。 （ A）在栈中只能插入数据 （ B）在栈中只能删除数据 （ C）栈是先进先出的线性表 （ D）栈是先进后出的线性表 3 在深度为 5的满二叉树中，叶子结点的个数为 _。 （ A） 32 （ B） 31 （ C） 16 （ D） 15 4 对建立良好 的程序设计风格，下面描述正确的是 _。 （ A）程序应简单、清晰、可读性好 （ B）符号名的命名要符合语法 （ C）
2、充分考虑程序的执行效率 （ D）程序的注释可有可无 5 下面对对象概念描述错误的是 _。 （ A）任何对象都必须有继承性 （ B）对象是属性和方法的封装体 （ C）对象间的通讯靠消息传递 （ D）操作是对象的动态性属性 6 下面不属于软件工程的 3个要素的是 _。 （ A）工具 （ B）过程 （ C）方法 （ D）环境 7 程序流程图 (PFD)中的箭头代表的是 _。 （ A）数据流 （ B）控制流 （ C）调用关系 （ D）组成关系 8 在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是 _。 （ A）数据库系统 （ B）文件系统 （ C
3、）人工管理 （ D）数据项管理 9 用树形结构来表示实体之间联系的模型称为 _。 （ A）关系模型 （ B）层次模型 （ C）网状模型 （ D）数据模型 10 关系数据库管理系统能实现的专门关系运算包括 _。 （ A）排序、索引、统 计 （ B）选择、投影、连接 （ C）关联、更新、排序 （ D）显示、打印、制表 11 表达式 5 Mod 3+35*2的值是 _。 （ A） 0 （ B） 2 （ C） 4 （ D） 6 12 以下关于作用范围的描述正确的是 _。 （ A）所有变量 (Public/Global/Static/Private)都可以放到窗体的通用部分定义 （ B）所有变量 (Pu
4、blic/Global/Static/Private)都可以放到标准模块中定义 （ C） Public/Global类的变量只能放在标准 模块中定义 （ D）只有 Global变量是必须放在标准模块中定义 13 在窗体上画一个名称为 Filel的文件列表框，并编写如下程序： Private Sub Filel_DblClick() x=Shell(Filel. FileName, 1) End Sub 以下关于该程序的叙述中，错误的是 _。 （ A） x没有实际作用，因此可以将该语句写为： Call Shell(Filel. FileName, 1) （ B）双击文件列表框中的文件，将触发该事
5、件过程 （ C）要 执行的文件的名字通过 Filel. FileName指定 （ D） Filel中显示的是当前驱动器、当前目录下的文件 14 在窗体上画两个文本框，其名称分别为 Text1和 Text2，然后编写如下程序： Private Sub Form Load() Show Text1. Text=“ TextText=“ Text1. SetFocus End Sub Private Sub Text1_Change() TextText=Mid(Text1. Text, 8) End Sub 程序运行后，如果在文本框 Text1中输入 BeijingChina，则在文本框Text2
6、中显示的内容是 _。 （ A） Beijing （ B） China （ C） Beijing （ D） BeijingC 15 有如下程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为 _。 （ A） 25 （ B） 26 （ C
7、） 27 （ D） 28 16 把窗体的 KeyPreview属性设置为 True，然后编 写如下事件过程： Private Sub Form_KeyPress(KeyAscii As Integer) Dim Ch As String Ch=Chr(KeyAscii) KeyAscii=Asc(UCase(Ch) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的 A键，则在窗体上显示的内容是 _。 （ A） A （ B） B （ C） C （ D） D 17 以下语句的输出结果是 _。 Print Format $(5874.567, “0.00E-00“)
8、 （ A） 5874.57 （ B） 5.87458E03 （ C） 5874.567 （ D） 5.87E03 18 在窗体上画一个列表框和一个命令按钮，其名称分别为 List1和 Command1，然后编写如下事件过程： Private Sub Form_Load() List1. AddItem“Item1“ List1 AddItem“Item2“ List1. AddItem“Item3“ End Sub Private Sub Command1_Click() List1. List(List1. ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果
9、为 _。 （ A）把字符串 “AAAA”添加到列表框中，但位置不能确定 （ B）把字符串 “AAAA”添到列表框的最后 (即 “Item3”的后面 ) （ C）把列表框之中原有的最后一项改为 “AAAA” （ D）把字符串 “AAAA”插入到列表框的最前面 (即 “Iteml”的前面 ) 19 在窗体上画一个文本框和一个计时器控件，名称分别为 Text1和 Timer1，在属性窗口中把计时器的 Interval属性设置为 1000， Enabled属性设置为 False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub
10、Command1_Click() Timer1. _ End Sub Private Sub Timer1_Timer() Text1. Text=Time End Sub 在填空处应填入的内容是 _。 （ A） Enabled=True （ B） Enabled=False （ C） Visible=True （ D） Visible=False 20 在窗体上有若干控件，其中有一个名称为 Text1的文本框。影响 Text1的 Tab顺序的属性是 _。 （ A） TabStop （ B） Enabled （ C） Visible （ D） TabIndex 21 设有如下程序： Priva
11、te Sub Command1_Click() Dim C As Integer, d As Integer c=4 d=InputBox(“请输入一个整数 “) Do While d 0 If d c Then c=c+1 End If d=InputBox(“请输入一个整数 “) Loop Print c+d End Sub 程序运行后，单击命 令按钮，如果在输入对话框中依次输入1、 2、 3、 4、 5、 6、 7、 8、 9、 0，则输出结果是 _。 （ A） 12 （ B） 11 （ C） 10 （ D） 9 22 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过
12、程： Private Sub Command1_Click() x=0 n=InputBox(“) For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是 _。 （ A） 3 （ B） 4 （ C） 5 （ D） 6 23 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Comandl_Click() Dim arrayl(10, 10)As Integer Dim i As Int
13、eger, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 _。 （ A） 15 （ B） 14 （ C） 13 （ D） 12 24 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4, 5) For i=1
14、 To UBound(a)a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是 _。 （ A） 4 （ B） 5 （ C） 6 （ D） 7 25 阅读程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arr(i)/3=arr(i)3 Then Sum=Sum+arr(i) End If Next i Print Sum End
15、 Sub 程序运行后，单击窗体，输出结果为 _。 （ A） 13 （ B） 14 （ C） 27 （ D） 15 26 执行以下程序段： a $=“abbaedduba“ For i=6 To 2 Step-2 X=Mid(a, i, i) Y=Left(a, i) z=Right(a, i) z=UCase(X Next End Sub 程序运行后，单击命令按钮，输出结果是 _。 （ A） ABCDE （ B） 1 2 3 4 5 （ C） abode （ D）出错信息 30 在窗体上画一个名称为 Text1的文本框，一个名称为 Command1的命令按钮，然后编写如下事件过程和通用过程：
16、Private Sub Command1_Click() n=Val(Text1. Text) If n2=n/2 Then f=f1(n) Else f=f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(Byval x) x=x*x f1=x+x+x End Function 程序运行后，在文本框中输入 6，然后单击命令按钮，窗体上显示的是 _。 （ A） 72 36 （ B） 108 36 （ C） 72 6 （ D） 108 6
17、31 设有如下程序： Dption Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox(“输入数据 “) If n 10 Then Call GetArray(a, n) End If End Sub Private Sub GetArray(h()As Integer, n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i)/2=b(i)2 Then j=j+1 c(j)=b
18、(i) End If Next print j Knd Sub 以下叙述中错误的是 _。 （ A）数组 b中的偶数被保存在数组 c中 （ B）程序运行结束时，在窗体上显示的是 c数组中元素的 个数 （ C） GetArray过程的参数 n是按值传送的 （ D）如果输入的数据大于 10，则窗体上不显示任何信息 32 设一个工程由两个窗体组成，其名称分别为 Form1和 Form2，在 Form1上有一个名称为 Command1的命令按钮。窗体 Form1的程序代码如下： Private Sub Command1_Click() Dim a ks Integer a=10 Call g(Form2
19、, ) End Sub private Sub g(f As Form, x As Integer) Y=Iif(x 10, 100, -100) f. Show f. Caption=Y End Sub 运行以上程序，正确的结果是 _。 （ A） Form1的 Caption属性值为 100 （ B） Form2的 Caption属性值为 -100 （ C） Form1的 Caption属性值为 -100 （ D） Form2的 Caption属性值为 100 33 在窗体上画一个名称为 CommonDialogl的通用对话框，一个名称为 Command1的命令按钮。然后编写如下事件过程：
20、Prirate Sub Command1_Click() CommonDialogl. FileName=“ CommonDialogl. Filter=“All file|*. *|(*. Doc)|*. Doc|(*. Txt)|*. Txt“ CommonDialogl. Filterlndex=2 CommonDialogl. DialogTitle=“VBTest“ CommonDialogl. Action=1 End Sub 对于这个程序，以下叙述中错误的是 _。 （ A）该对话框被设置为 “打开 ”对话框 （ B）在该对话框中指定的默认文件名为空 （ C）该对话框的标题为 VB
21、Test （ D）在该对话框中指定的默认文件类型为文本文件 (*. Txt) 34 在窗体上画一个名称为 Coramandl的命令按钮，然后编写如下程序； Dim SW As Boolean Function func(X As Integer)As Integer If X 20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim a As Boolean SW=
22、False End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“) If SW Then Print flmc(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入 25，则程序的执行结果为 （ A）输出 0 （ B）输出 2 （
23、C）输出 45 （ D）无任何输出 35 假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程Command1_Click时，在顺序文件 Person. txt中写入一条记录。下列能够完 成该操作的事件过程是 _。 （ A） Private Sub Command1_Click() Dim B As Books Open“c:Person. txt“ For Output As #1 B. Name=InputBox(“输入姓名 “) B. TelNum=
24、InputBox(“输入电话号码 “) Write #1, B. Name, B. TelNum Close #1 End Sub （ B） Private Sub Command1_Click() Dim B As Books Open“c:Person txt“ For Output As #1 B. Name=InputBox(“输入姓名 “) B. TelNum=InputBox(“输入电话导码 “) Print #1, B. Name, B. TelNum Close #1 End Sub （ C） Private Sub Command1_Click() Dim B As Book
25、s Open“c:Person. txt“ For Output As #1 Name=InputBox(“输入姓名 “) TelNum=InputBox(“输入电话号码 “) Print #1, B Close #1 End Sub （ D） Private Sub Command1_Click() Dim B As Books Open “c:Person txt“ For Output As #1 Name=InputBox(“输入姓名 “) TelNum=InputBox(“输入电话号码 “) Print #1, B Name, B. TelNum Close #1 End Sub 3
26、6 对于输人的 N个数进行快速排序算法的平均时间复杂度是【 】。 37 软件工程的目的是成功地开发大型软件系统，主要内容是软件开发技术和【 】两方面。 38 诊断和改正程序中错误的工作通常称为【 】。 39 在数据库技术中，使用数据模型的概念描述数据库的语义和结构，一般可分为两类：概念数据模型和【 】。 40 一个数据库的数据模型至少应该包括以下 3个组成部分，【 】、数 据操作和数据的完整性约束条件。 41 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1. Text=“VB程序设计 “ End Sub Private
27、 Sub Text1_Change() Picturel. Print “VB Programming“ End Sub 程序运行后，单击窗体，则在文本框中显示的内容是【 】，在图片框中显示的内容是【 】。 42 设有程序： Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer arrl=Array(12, 435, 76, 24, 78, 54, 866, 43) 【 】 =arrl(1) For i=1 To 8 If arrl(i) Max Then【 】 Next i Print “最大值是 :“ ; M
28、ax End Sub 以上程序的功能是，用 Array函数建立一个含有 8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。 43 在窗体上画一个列表框、一个命令按钮和一个标签，其名称 分别为 List1、Command1和 Label1，通过属性窗口把列表框中的项目设置为： “第一个项目 ”、“第二个项目 ”、 “第三个项目 ”、 “第四个项目 ”。程序运行后，在列表框中选择一个项目，然后单击命令按钮。即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图 16-5所示 (选择 “第三个项目 ”的情况 )。下面是实现上述功能的程序，请填空。 Private Sub C
29、ommand1_C1ick()If List1. List1adex =【 】ThenList1. Removeltem【 】 Label1. Caption=【 】 ElseMsgBox “请选择要删除的项目 “End IfEnd Sub 44 有下列程序，程序运行后，单击 “Command1”按钮，在列表框 List1中显示的第一行和第二行的结果分别是【 】和【 】，最后一行的结果是【 】。 Type type_a chr1 As String*1 num1 As Integer End Type Private Sub Command1_Click() Dim testdata As t
30、ype_a, n As Integer Dim f1 As Integer, c()As String*1 f1=FreeFile Open “d:data. txt“ For Random As #f1 Len=Len(testdata) n=1 For I=97 To 102 ReDim Preserve c(n) c(n)=Chr(I) testdata. chr1=c(n) testdata. num1=I n=n+1 Put #f1, , testdata Next I Seek #f1, 1 For I=1 To UBound(c) Get #f1, , testdata List
31、1. AddItem testdata. chr1 & testdata num1 Next I List1. AddItem UBound(c) Close End Sub VB笔试模拟试卷 153答案与解析 1 【正确答案】 D 【试题解析】 一个算法的空间复杂度，一般是指执行这个算法所需的内存空间。一个算法所占用的存储空间包括算法程序所占的空间、输入的初始数据所占的存储空间以及算法执行过程中所需要的额外空间。 2 【正确答案】 D 【试题 解析】 栈是限定在一端进行插入与删除的线性表。栈是按照 “先进后出 ”或“后进先出 ”的原则组织数据的，因此，栈也被称为 “先进后出 ”表或 “后进先
32、出 ”表。 3 【正确答案】 C 【试题解析】 所谓满二叉树是指这样的一种二叉树：除最后一层外，每层上的所有结点都有两个子结点。这就是说，在满二叉树中，每一层上的结点数都达到最大值，即在满二叉树的第 K层上有 2k+1个结点，且深度为 m的满二叉树有 2m个结点。在满二叉树中，最后一层的结点个数就是叶子结点的个数，本题中深度为 5，故叶子结点数为 25-1=24=16。 4 【正确答案】 A 【试题解析】 要形成良好的程序设计风格，主要应注重和考虑下述一些因素：符号名的命名应具有一定的实际含义，以便于对程序功能的理解；正确的注释能够帮助读者理解程序；程序编写应优先考虑清晰性，除非对效率有特殊要
33、求，程序编写要做到清晰第一，效率第二。 5 【正确答案】 A 【试题解析】 对象是由数据和容许的操作组成的封装体，与客观实体有直接的对应关系。对象之间通过传递消息互相联系，以模拟现实世界中不同事物彼此之间的联系。 6 【正确答案】 D 【试题解析】 软件工程包 括 3个要素，即方法、工具和过程。 7 【正确答案】 B 【试题解析】 程序流程图 (PFD)是一种传统的、应用广泛的软件过程设计表示工具，通常也称为程序框图，其箭头代表的是控制流。 8 【正确答案】 A 【试题解析】 在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是数据库系统。
34、9 【正确答案】 B 【试题解析】 层次模型是最早发展出来的数据库模型。它的基本结构是树形结构，这种结构方式在现实世界中很普遍，如家族结构、行政组织 机构，它们自顶向下、层次分明。 10 【正确答案】 B 【试题解析】 关系数据库管理系统能实现的专门关系运算，包括选择运算、投影运算、连接运算。 11 【正确答案】 B 【试题解析】 按算术运算符的优先级，将上述的表达式改为 5 Mod 2+(35)2)。计算过程为： (35)=0， 02=0， 5 Mod 3=2， 2+0=2。 12 【正确答案】 C 【试题解析】 全局变量必须用 Public或 Global语句声明，不能用 Dim语句声明，
35、更不能用 Private语句声明；同时， 全局变量只能在标准模块中声明，不能在过程或窗体模块中声明。 13 【正确答案】 C 【试题解析】 文件列表框接收 DblClick事件。利用这一点，可以执行文件列表框中的某个可执行文件。也就是说，只要双击文件列表框中的某个可执行文件，就能执行该文件。这可以通过 Shell函数来实现。上述过程中的 FileName是文件列表框中被选择的可执行文件的名字，双击该文件名就能执行。 14 【正确答案】 B 【试题解析】 Mid函数的作用是返回从指定位开始的指定长度的字符串，如果不指定长度，则从开始位置 到右边所有字符。由于在该题目中只指定了开始的字符位置为 “
36、8”，而没有指定长度，故右边的字符将全部传给文本框 Text2。 15 【正确答案】 C 【试题解析】 本题考查的是数组赋值以及算术运算符 “/”和 “”的区别。本程序段首先用 Array函数给 arr数组赋初值。 “/”是浮点除法，执行标准除法操作，结果为浮点数。 “”为整数除法，整型整除运算，结果为整型值。本程序的功能是：找出 arr数组中能被 3整除的元素值，将其累加到 sum中，然后输出。满足该条件的元素是 3、 9、 15，和值为 27。 16 【正确 答案】 C 【试题解析】 KeyPress事件用来识别按键的 ASCII码。参数 KeyAscii是一个预定义的变量，执行 KeyP
37、ress事件过程时， KeyAscii是所按键的 ASCII码。函数Chr(x)是把 x的值转换为相应的 ASCII字符，函数 Asc(x)是返回字符串 x的首个字母的字符代码，函数 UCase(x)返回大写的字符串 X。当按键盘上的 A键时，KeyPress值为 97， Chr(97)的返回侑为 “a”， Asc(UCase(“a“)返回值为“65”Chr(65+2)的返回值为 “C”。 17 【 正确答案】 D 【试题解析】 在使用 Format $函数使数值按 “格式字符串 ”指定的格式输出时，符号 “E+”或 “E-”表示将用指数形式显示数值，两者作用基本相同。按 “0.00E-00“
38、的输出格式，应选择 D。 18 【正确答案】 B 【试题解析】 列表框的 List属性用来列出表项的内容，也可以改变数组中已有的值。列表框中表项的排列是从 0开始，最后一项的序号为 ListCount-1。本程序的功能是：把字符串 “AAAA”添加到列表框的最后，但不改变 Item3的值。 19 【正确答案】 A 【试题解析】 用 Visible属性设置对象的可见性，如果将该属性设置为 False，则隐藏对象；如果设置为 True，则对象可见。用 Enabled属性设置对象的可用性，如果将该属性设置为 False，则对象为不可用；如果设置为 True，则对象为可用。按题意应将 Enablcd属
39、性设置为 True。 20 【正确答案】 D 【试题解析】 在设计阶段可以通过属性窗口中的 TabTndex属性来改变 Tab顺序。 21 【正确答案】 D 【试题解析】 在输入对话框中依次输入 1 4时，因 d c的结果为 Falsc，变量 c没有进行任何计算；输入 5 9时，因 d c的结果为 True，变量 c的计算过程为： 4+1+1+1+1+1=9；输入 0时，退出 DO循环，最后打印出 9+0=9的结果。 22 【正确答案】 D 【试题解析】 变量 x的功能为计算循环的次数。对于双重循环，如果 “i=1 to n”和 “j=1 to n”，则循环次数为 nn；如果 “i=1 to
40、n”和 “j=1 to i”，循环次数为(1+n)n/2。本题的循环次数为 (1+3)3/2=6。 23 【正确答案】 D 【试题解析】 数组 Arrayl的部分元素在双重循环中被初值，其规律为：数组元素的值是两个下标值的之和，所以 Arrayrl(2， 3)=5， Arrayl(3， 4)=7。表达式“Arrayl(2， 3)+Arrayl(3， 4)”的计算结果为 12。 24 【正确答案】 B 【试题解析】 UBound(a)函数返回数组 a中指定上界，即 For循环的终值为 5。a(3)的值为 3+3-1=5。 25 【正确答案】 C 【试题解析】 整数除法运算符 ()执行整除运算，结
41、果为整型值，所以“arr(i)/3=arr(i)3”为数组 arr元素值被 3整除的条件。计算结果为： 3+9+15=27。 26 【正确答案】 B 【试题解析】 虽然程序段中有一个循环 3次的循环过程，但只是最后一次循环的结果才有用。即最后一次循环的结果是：变量 X为 bb，变量 Y为 ab，变量 z为ba。 “X & Y & z”的计算结果为 “bbabba”，经 “UCase(X & Y & z)”计算后结果为“BBABBA”。 27 【正确答案】 C 【试题解析】 当 x(i)的值分别为 2、 4、 6时，变量 d的值为 0-6-6-6=-18。当 x(i)的值分别为 8、 10、 1
42、2时， d为 -18+8+10+12=12。其中，将 x(i)的值赋给变量 c，对 d的运算没有影响。 28 【正确答案】 A 【试题解析】 本题首先定义了一个整型数组 arrayl，然后用 For循环嵌套语句给数组中的部分元素赋值。从赋值语句 “arrayrl(i， j)=i+j”可以看出，元素的值等于下标之和。所以 Text1. Text=arrayl(2， 3)+arrayl(3， 4)=2+3+3+4=12，所以文本框中显示的值是 12。 29 【正确答案】 A 【试题解析】 本程序段首先定义了一维数组 a，然后用 For循环为其赋值， Asc()函数的作用是返回字符的 ASCII码，
43、字符 “A”的 ASCII码为 65， Chr()函数的作用是将 ASCII码值变为相应的字符，而 “a(i)=Chr(Asc(“A“)+(i-1)”的作用是将每次比原来大 1的 ASCII码值变为字符赋给 a，所以 a的元素是 A、 B、 C、 D、 E。For Each-In用于输出 a中元素的值。 30 【正确答案】 A 【试题解析】 当在文本框中输入 6时，条件 “n2=n/2”成立，调用 f1函数过程。在过程的计算中，变量 x的值为 36，函数名 f1为 72。由于 x是被定义为“ByRef”(按址方式传送 )，所以将 36反传送给实参 n，函数名 f1也将 72返回给变量 f。最后
44、在窗体上显示的是 72和 36。 31 【正确答案】 C 【试题解析】 在形参中，默认的传送方式为传地址传送，所以形参 n是按传地址传送。正确答案为选项 C。 32 【正确答案】 B 【试题解析】 在 q子过程中，形参 f为窗体变量。通过实参和形参的传递， f为Form2，形参 x为 10。 “f. Show”方法将显示 Form2窗体，语句 “y=Iif(x 10，100， -100)”将 -100赋值给 y，语句 “f. Caption=y”将 Form2的 Caption属性值改为 -100。 33 【正确答案】 D 【试题解析】 用属性 Action=1表示显示 “打开 ”对话框，用属
45、性 FileName=“表示默认文件名为空，用属性 DialogTitle=“VBTest“表示对话框的标题为 VBTest，用 FilterIndex属性指定第二个 即 (*. Doc)|*. Doc作为默认显示的过滤器，所以正确答案为选项 D。 34 【正确答案】 D 【试题解析】 上述程序由一个通用过程和 3个事件 过程组成，在命令按钮事件过程中调用通用过程，并把一个参数传送给通用过程。这里要注意，只有在一定的条件下，才能调用通用过程，这个条件就是，窗体层的 Boolean变量 SW的值必须为 True，否则不能调用。而为了使 SW的值为 True，必须执行Form_MouseUp事件过
46、程，这只能通过单击窗体来实现。单击窗体时，单击鼠标左键执行 Form_MouseDown事件过程，使得 SW=False。松开鼠标后执行Form_MouseUp事件过程，使得 SW=True。程序运行后，由于没有执行Form_MouseUp事件过程，直 接单击命令按钮，因而 SW的值为 False，这样不会调用通用过程，也就不会输出任何信息。 35 【正确答案】 A 【试题解析】 要向顺序文件中写入记录必须用 For Output参数打开文件，然后用 Print#或 Write#语句将内容写入文件，因此选项 B和选项 D不正确；又因为自定义数据类型变量的引用要用 “变量名 . 变量元素名 ”，
47、所以选项 C不正确。故本题的正确答案只有选项 A。 36 【正确答案】 O(Nlog2 N) 【试题解析】 快速排序法的关键是对线性表进行分割，以及对各分割出的子表再进行 分割。对于输入的 N个数进行排序，在最坏情况下，快速排序法需要比较的次数为 O(Nlog2 N)。 37 【正确答案】 软件工程管理 【试题解析】 软件工程是用科学知识和技术原理来定义、开发、维护软件的一门学科，其目的就是要开发一个优良的软件系统，即以较低的开发成本满足用户要求的功能和性能，而且软件要有易于移植、可靠性高、维护费用低、按时交付使用等特点。 38 【正确答案】 程序的调试 【试题解析】 诊断和改正程序中错误的工作通常称为程序的调试。 39 【正确答案】 结构数据模型 【试题解析】 数据模型可以分为两类：概念数据模型和结构数据模型。 (1)概念数据模型也称信
