1、二级 VISUAL+BASIC-24-1 及答案解析(总分：68.50，做题时间：90 分钟)一、选择题(总题数：25，分数：42.50)1.设已经在窗体上添加了一个通用对话框控件 CommonDialog1，以下正确的语句是（分数：1.00）A.CommonDialog1Filter=AllFiles|*.*|Pictures(*Bmp)|*BmpB.CommonDialog1Filter=“AllFiles“|*|Pictures(*Bmp)|*BmpC.CommonDialog1Filter=(AllFiles|*，*|Pictures(*Bmp)|*Bmp)D.CommonDialog
2、1Filter=“AllFiles|*|Pictures(*Bmp)|*Bmp“2.下列叙述中正确的是_。（分数：3.00）A.线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B.线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C.线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D.线性表的链式存储结构与顺序存储结构在存储空间的需求上没有可比性3.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() m=1:n=1 Print“m=“; m; “, n=“; n Call subl(m
3、), n) Print “m=“; “; “, n=“; n End Sub Private Sub subl(x, y) x=x+5 y=y+x Print “x=“; x;“, y=“; y End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.m=1, b=1x=6, y=7m=1, b=1B.m=1, b=1x=6, y=7m=6, b=7C.m=1, b=1x=6, y=7m=1, b=7D.m=1, b=1x=6, y=7m=6, b=14.对关系 S 和关系 R 进行集合运算，结果中既包含 S 中元组也包含 R 中元组，这种集合运算称为 _ 。（
4、分数：2.00）A.并运算B.交运算C.差运算D.积运算5.在数据结构中，与所使用的计算机无关的是数据的 _ 结构。（分数：1.00）A.存储B.物理C.逻辑D.物理和存储6.有下列二叉树，对此二叉树前序遍历的结果为 _ 。（分数：2.00）A.ACFXDBEYZB.ABEFXYZCDC.ABCDEFXYZD.ABDYECFXZ7.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下程序： Function Func(ByVal x As Integer，y As Integer) y=x*y If y0 Then Func=x Else Func=y End If End Fun
5、ction Private Sub Command1_Click() Dim a As Integer，b As Integer a=3 b=4 c=Func(a，B) Print“a=“；a Print“b=“；b Print“C=“；c End Sub 程序运行后，单击命令按钮，其输出结果为：_。（分数：1.00）A.a=3 b=12 c=3B.a=3 b=4 c=3C.a=3 b=4 c=12D.a=13 b=12 c=128.下列可以激活属性窗口的操作是 _ 。（分数：2.00）A.用鼠标双击窗体的任何部位B.按 Ctrl+F4 键C.执行“工程”菜单中的“属性窗口”命令D.按 F4
6、键9.下列叙述中，不属于测试的特征的是（分数：1.00）A.测试的挑剔性B.完全测试的不可能性C.测试的可靠性D.测试的经济性10.在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是（分数：1.00）A.7B.15C.21D.53811.在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母“a”，则
7、文本框中显示的内容为 _。 Private Sub Text1_KeyPressKeyAscii As Integer) Dim char as String char=Chr(KeyAscii) Text1.Text=String(5，KeyAscii) End Sub（分数：3.00）A.aaaaaB.AAAAAC.aaaaaaD.AAAAAA12.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static a AS Integer Static b As Integer Cls b=2 b=b+2 a=3
8、+a Print a，b End Sub 程序运行后，三次单击该命令按钮，此时窗体上显示的结果是_。（分数：1.00）A.3 5B.6 6C.3 3D.9 413.下列程序段中没有错误的是_。（分数：1.00）A.x=6For k=5 To 1 Step-1x=x+1NextPrint xB.x=10While x5x=x-1LoopPrint xC.x=10Do While x5x=x-1End DoPrint xD.X=6Do While x5x=x+1Loop Until x=10Print x14.下列叙述中正确的是_。（分数：1.00）A.软件交付使用后还需要进行维护B.软件一旦交付
9、使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令15.以下说法中正确的是（分数：2.50）A.事件过程也是过程，只能由其他过程调用B.事件过程的过程名是由程序设计者命名的C.事件过程通常放在标准模块中D.事件过程是用来处理由用户操作或系统激发的事件的代码16.当对象失去焦点时，将会发生_事件。（分数：1.00）A.GetFocusB.LostFocusC.FocusD.SetFocus17.在窗体上画一个通用对话框，程序运行后，通过 ShowOpen 方法显示“打开”对话框，要求在该对话框的“文件类型”栏中只显示扩展名为.DOC 的文件，则对通用对
10、话框的 Filter 属性的正确设置是_。（分数：2.00）A.“(*.DOC)*.DOC“B.“(*.DOC)|(.DOC)“C.“(*.DOC)|*.DOC“D.“(*.DOC)|*.DOC“18.在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会触发到（分数：2.00）A.GotFocus 事件B.Click 事件C.Change 事件D.DblClick 事件19.下面属于系统软件的是_。（分数：2.50）A.财务管理系统B.数据库管理系统C.编辑软件 WordD.杀毒软件20.下列数据结构中，能够按照“先进后出”原则存取数据的是（分数：2.00）A.
11、循环队列B栈C.队列D.二叉树21.设栈 S 和队列 Q 的初始状态为空，元素 e 1 ，e 2 ，e 3 ，e 4 ，e 5 和 e 6 依次通过栈 S，一个元素出栈后即进入栈队列 Q，若 6 个元素出队的顺序是 e 2 ，e 4 ，e 3 ，e 6 ，e 5 ，e 1 ，则栈 S 的容量至少应该是_。（分数：1.00）A.6B.4C.3D.222.窗体上有 1 个名称为 Command1 的命令按钮；1 个名称为 List1、没有列表项的列表框。编写如下程序：Private Sub Command1_Click() Dim x As String, s As String, temp As
12、 String Dim i As Integer x=InputBox(“输入字符串“，“输入“) Ifx“Then For i=Len(x) To 1 Step-1 s=Mid(x, i, 1) If s“Then temp=s+temp Else List1.AddItem temp s=“ temp=“ End If Next List1.AddItem temp Else MsgBOX“输入内容为空!“ End If End Sub 程序运行后，单击命令按钮 Command1，并输入“Happy new year”，则在 List1 中显示的内容为（分数：2.50）A.year new
13、 HappyB.Happy new yearC.raey wen yppaHD.yppaH wen raey23.设有下面程序代码： Option Base 1 Private Sub Command1_Click() Dim x(6) a=Array(4, 2, 5, 1, 6, 3) b=Array(64, 24, 98, 27, 58, 41) For k=1 To 6 x(a(k)=b(k) Next k For k=1 To 6 Print x(k); Next k End Sub 程序运行时的输出是（分数：2.00）A.27 24 41 64 98 58B.64 24 98 27
14、58 41C.24 27 41 58 64 98D.98 64 58 41 27 2424.以下叙述中错误的是_。（分数：2.00）A.Sub Main 是定义在标准模块中的特定过程B.一个工程中只能有一个 Sub Main 过程C.Sub Main 过程不能有返回值D.当工程中含有 Sub Main 过程时，工程执行时一定最先执行该过程25.执行语句 s=Len(Mid(“study hard“，1，5)后，s 的值是（分数：1.00）A.studyB.hardC.5D.10二、填空题(总题数：15，分数：26.00)26.软件设计模块化的目的是 1。 （分数：2.00）27.下面运行程序后
15、，单击命令按钮，输出的结果是 _ 1_ 。 Private Sub Command1_Click() Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next For i=3 To 6 b(i)=i Next s1.= Fun(a) s2 =Fun(b) Print “s1 =“; s1; “s2 =“; s2 End Sub Function Fun( a( ) As Integer) Dim t#, i% t=1 For i = LBound(a) To UBound(a) t=t * a(i) Next Fun=t End
16、 Function （分数：1.00）28.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim a(10)As Integer For i = 1 To 10 a(i)= i Next Call swap( 1) For i=1 To 10 Print a(i)； Next End Sub Sub swap(b()As Integer) n = 2 For i=1 To n/2 t = b(i) b(i)= b(n) b(n)= t 3 Next End Sub 上述程序的功能是：
17、通过调用过程 swap，调换数组中数值的存放位置，即 a(”与 a(10)的值互换，a(2)与 a(9)的值互换，a(5)与 a(6)的值互换。请填空。 （分数：2.00）29.下面是用冒泡法将 5 个整数按升序排列，请将程序补充完整。 Sub GASR() Dim m m=Array(10，1，5，6，7) For i=0 To 3 For j= 1 If m(i) =m(j) Then 2 m(i) =m(j) m(j) =t End If Next j 3 For i=0 To 4 Print m(i) Next i End Sub （分数：1.00）30.变量未赋值时，数值型变量的值为
18、 1，字符串变量的值为 2。 （分数：4.00）31.对象的属性是指 1。 （分数：2.00）32.关系模型的完整性规则是对关系的某种约束条件，包括实体完整性、 1 和自定义完整性。 （分数：2.00）33.数据结构分为逻辑结构和存储结构，循环队列属于 1 结构。 （分数：2.00）34.Visual Basic 中允许出现的数为 1。 25.74 347E-10 .368 1.87E+50 10(1.256) D32 2.5E 12E3 34.75D+6 0.258 （分数：2.00）35.执行下面的程序段，x 的值为 _ 1_ 。 Private Sub Command1_Click()
19、For i=1 To 9 a=a+i Next x=Val(i) MsgBox x End Sub （分数：1.00）36.测试是保证软件质量的重要措施，一般测试过程所产生的文档应包括：测试计划、测试过程和 _ 1_ 。 （分数：1.00）37.面向对象的程序设计方法中涉及的对象是系统中用来描述客观事物的一个 _ 1_ 。 （分数：2.00）38.在关系运算中，查找满足一定条件的元组的运算称之为 _ 1_ 。 （分数：1.00）39.控件和窗体的 Name 属性只能通过属性窗口设置，不能在 _ 1_ 期间设置。 （分数：1.00）40.假定有一个文本框，其名称为 Text1，为了使该文本框具有
20、焦点，应执行的语句是 1。 （分数：2.00）二级 VISUAL+BASIC-24-1 答案解析(总分：68.50，做题时间：90 分钟)一、选择题(总题数：25，分数：42.50)1.设已经在窗体上添加了一个通用对话框控件 CommonDialog1，以下正确的语句是（分数：1.00）A.CommonDialog1Filter=AllFiles|*.*|Pictures(*Bmp)|*BmpB.CommonDialog1Filter=“AllFiles“|*|Pictures(*Bmp)|*BmpC.CommonDialog1Filter=(AllFiles|*，*|Pictures(*Bm
21、p)|*Bmp)D.CommonDialog1Filter=“AllFiles|*|Pictures(*Bmp)|*Bmp“ 解析：解析 对话框的 Filter 属性是 String 类型，因此上述答案中选项 D 是正确的。另外需要注意，Filter 属性赋值的完整格式为： ObjectFilter=descriptionl|filterl | description2 | filter2 使用管道(|)符号将 fifler 与 description 的值隔开。管道符号的前后都不要加空格，因为这些空格会与fifler 和 description 的值一起显示。可以使用 FilterIndex
22、 来确定哪一个作为缺省过滤器显示。2.下列叙述中正确的是_。（分数：3.00）A.线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B.线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构 C.线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D.线性表的链式存储结构与顺序存储结构在存储空间的需求上没有可比性解析：解析 线性链式存储结构中每个结点都由数据域与指针域两部分组成，增加了存储空间，所以一般要多于顺序存储结构。3.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() m=1:n=1 P
23、rint“m=“; m; “, n=“; n Call subl(m), n) Print “m=“; “; “, n=“; n End Sub Private Sub subl(x, y) x=x+5 y=y+x Print “x=“; x;“, y=“; y End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.m=1, b=1x=6, y=7m=1, b=1B.m=1, b=1x=6, y=7m=6, b=7C.m=1, b=1x=6, y=7m=1, b=7 D.m=1, b=1x=6, y=7m=6, b=1解析：解析 从 Sub 和 Functio
24、n 中 Print 输出可以看出，变量 m 的值经过 Subl 计算后没有变化。这是因为变量 m 作为实参时变成了(m)，这样使得它被强制计算，是按数字传给 Subl 的，在 Subl 中被计算的结果没有反传回来。本题答案为 C。从中可以看出传地址引用的参数的值是如何改变的。4.对关系 S 和关系 R 进行集合运算，结果中既包含 S 中元组也包含 R 中元组，这种集合运算称为 _ 。（分数：2.00）A.并运算 B.交运算C.差运算D.积运算解析：解析 本题考查集合运算。在关系数据库理论中，两个关系的并是由属于这两个关系的元组组成的集合，故选项 A 正确。两个关系的交是由既属于一个关系又属于另
25、一个关系的元素组成的集合，两个集合的差运算是由从一个集合中去掉另一个集合中有的元素组成。两个集合的交运算是由既属于前一个集合又属于后一个集合的元素组成。5.在数据结构中，与所使用的计算机无关的是数据的 _ 结构。（分数：1.00）A.存储B.物理C.逻辑 D.物理和存储解析：解析 数据结构是指数据以及它们之间的相互联系。其中数据的逻辑结构是指数据元素之间的逻辑关系，它与所使用的计算机无关；数据的物理结构又称存储结构，是指数据结构在计算机中的表示，它包括数据元素的表示和元素的表示，其中数据元素之间的关系在计算机中有顺序存储结构和链式存储结构两种。因此选项 C 是正确答案。6.有下列二叉树，对此二
26、叉树前序遍历的结果为 _ 。（分数：2.00）A.ACFXDBEYZB.ABEFXYZCDC.ABCDEFXYZD.ABDYECFXZ 解析：解析 对二又树的前序遍历是指：先访问根结点，然后访问左子树，最后访问右子树，并且，在访问左、右子树时，先访问根结点，再依次访问其左、右子树。记住 3 种遍历的顺序：前序，访问根按前序遍历左于树按前序遍历右子树；中序，按中序遍历左子树访问根按中序遍历右于树；后序，按后序遍历左子树按后序遍历右子树访问根。7.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下程序： Function Func(ByVal x As Integer，y As In
27、teger) y=x*y If y0 Then Func=x Else Func=y End If End Function Private Sub Command1_Click() Dim a As Integer，b As Integer a=3 b=4 c=Func(a，B) Print“a=“；a Print“b=“；b Print“C=“；c End Sub 程序运行后，单击命令按钮，其输出结果为：_。（分数：1.00）A.a=3 b=12 c=3 B.a=3 b=4 c=3C.a=3 b=4 c=12D.a=13 b=12 c=12解析：解析 函数 Func(3，4)的返回值为 3
28、，故 c 的值为 3。由于参数 x 是按值传递的，a 的值仍为 3；而参数 y 是按地址传递的，b 的值变为 3*4。 8.下列可以激活属性窗口的操作是 _ 。（分数：2.00）A.用鼠标双击窗体的任何部位B.按 Ctrl+F4 键C.执行“工程”菜单中的“属性窗口”命令D.按 F4 键 解析：解析 本题考查属性窗口的打开。属性窗口在设计阶段可用于改变窗体或控件的某些属性。如果VB 集成环境中属性窗口没有显示，最常见的方法是利用 F4 键打开，或者使用“视例”菜单中的“属性窗口”命令打开，还可以使用“标准”格式工具栏上的“属性窗口”命令打开。9.下列叙述中，不属于测试的特征的是（分数：1.00
29、）A.测试的挑剔性B.完全测试的不可能性C.测试的可靠性 D.测试的经济性解析：解析 本题考查了软件测试的主要特征。 软件测试的目标是在精心控制的环境下执行程序，以发现程序中的错误，给出程序可靠性的鉴定。它有 3个方面的重要特征，即测试的挑剔性、完全测试的不可能性及测试的经济性。其中没有测试的可靠性这一说法。 软件测试与软件调试的概念，以及相应的方法。10.在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j
30、Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是（分数：1.00）A.7B.15C.21 D.538解析：解析 本题由最外层的 For 循环语句逐一执行到最内层的 For k 循环，x=x +6 这一语句始终在For j 循环的基础上执行的，故 x 最终结果为 3+6+6+6=21。11.在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 _。 Private Sub Text1_KeyPressKeyAscii As Integer) Dim char as String char=Chr(KeyA
31、scii) Text1.Text=String(5，KeyAscii) End Sub（分数：3.00）A.aaaaaB.AAAAAC.aaaaaaD.AAAAAA 解析：解析 在程序段用到了 4 个函数，在按了键盘上的某个键(在这里是字母键 a)后，Chr 函数将得到的键的 ASCII 码值(101)转换成该 ASCII 码值对应的字符(a)，然后利用 Ucase 函数将该字符转换成大写字母(A)，将该大写字母的 ASCII 码值(利用函数 Asc()赋给 KeyAscii，最后利用 String 函数的 5 个 ASCII码值等于 KeyAscii 的字符(即 5 个 A)赋给文本框 Te
32、xt1，此时文本框中将显示 5 个 A，又因为 KeyPress事件本身会在文本框中显示/输入一个 ASCII 码值为 KeyAscii 的字符(A)，因此最后在文本框中将显示 6个大写字母 A。12.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static a AS Integer Static b As Integer Cls b=2 b=b+2 a=3+a Print a，b End Sub 程序运行后，三次单击该命令按钮，此时窗体上显示的结果是_。（分数：1.00）A.3 5B.6 6C.3 3D.9
33、 4 解析：13.下列程序段中没有错误的是_。（分数：1.00）A.x=6For k=5 To 1 Step-1x=x+1NextPrint x B.x=10While x5x=x-1LoopPrint xC.x=10Do While x5x=x-1End DoPrint xD.X=6Do While x5x=x+1Loop Until x=10Print x解析：解析 B 选项中 While 前缺少 Do；C 选项缺少 Loop；D 选项 While 和 Until 只能选用一个，故 A选项正确。14.下列叙述中正确的是_。（分数：1.00）A.软件交付使用后还需要进行维护 B.软件一旦交付
34、使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令解析：解析 软件的运行和维护是指将已交付的软件投入运行，并在运行使用中不断地维扩，根据新提出的需求进行必要而且可能的扩充和删改。而软件生命周期是指软件产品从提出、实现、使用维护至 U 停止使用退役的过程。15.以下说法中正确的是（分数：2.50）A.事件过程也是过程，只能由其他过程调用B.事件过程的过程名是由程序设计者命名的C.事件过程通常放在标准模块中D.事件过程是用来处理由用户操作或系统激发的事件的代码 解析：解析 所谓的事件过程是指当对象响应事件后，实现执行操作的一段程序代码。一个对象拥有一个或
35、多个事件，因此可以使用一个或多个事件过程对用户或系统事件做出响应。事件过程通常放在窗体模块中，其事件过程名均是已经事先定义好的名字，通常是用来处理由用户操作或系统激发的事件的代码，也可以由其他过程调用。16.当对象失去焦点时，将会发生_事件。（分数：1.00）A.GetFocusB.LostFocus C.FocusD.SetFocus解析：17.在窗体上画一个通用对话框，程序运行后，通过 ShowOpen 方法显示“打开”对话框，要求在该对话框的“文件类型”栏中只显示扩展名为.DOC 的文件，则对通用对话框的 Filter 属性的正确设置是_。（分数：2.00）A.“(*.DOC)*.DOC
36、“B.“(*.DOC)|(.DOC)“C.“(*.DOC)|*.DOC“D.“(*.DOC)|*.DOC“ 解析：解析 CommonDialog1.Filter=“(*.DOC)|*.DOC“，通过 ShowOpen 方法显示“打开”对话框时对话框的“文件类型”栏中只显示扩展名为.DOC 的文件。18.在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会触发到（分数：2.00）A.GotFocus 事件B.Click 事件C.Change 事件 D.DblClick 事件解析：解析 文本框 Change 事件在用户改变正文或通过代码改变 Text 属性的设置时发
37、生。19.下面属于系统软件的是_。（分数：2.50）A.财务管理系统B.数据库管理系统 C.编辑软件 WordD.杀毒软件解析：解析 计算机软件按功能分为应用软件、系统软件、支撑软件(或工具软件)。系统软件是管理计算机的资源，提高计算机的使用效率，为用户提供各种服务的软件，如操作系统、数据库管理系统、编译程序、汇编程序和网络软件等，B 选项正确。A、C、D 选项为应用软件。20.下列数据结构中，能够按照“先进后出”原则存取数据的是（分数：2.00）A.循环队列B栈 C.队列D.二叉树解析：解析 栈是限定只在一端进行插入与删除的线性表，通常称插入、删除的这一端为“栈顶”，另一端为“栈底”。栈顶元
38、素总是后被插入的元素，也是最先被删除的元素；栈底元素总是最先被插入的元素，也是最后才能被删除的元素。栈是按照“先进后出”或“后进先出”的原则组织数据的。21.设栈 S 和队列 Q 的初始状态为空，元素 e 1 ，e 2 ，e 3 ，e 4 ，e 5 和 e 6 依次通过栈 S，一个元素出栈后即进入栈队列 Q，若 6 个元素出队的顺序是 e 2 ，e 4 ，e 3 ，e 6 ，e 5 ，e 1 ，则栈 S 的容量至少应该是_。（分数：1.00）A.6B.4C.3 D.2解析：22.窗体上有 1 个名称为 Command1 的命令按钮；1 个名称为 List1、没有列表项的列表框。编写如下程序：P
39、rivate Sub Command1_Click() Dim x As String, s As String, temp As String Dim i As Integer x=InputBox(“输入字符串“，“输入“) Ifx“Then For i=Len(x) To 1 Step-1 s=Mid(x, i, 1) If s“Then temp=s+temp Else List1.AddItem temp s=“ temp=“ End If Next List1.AddItem temp Else MsgBOX“输入内容为空!“ End If End Sub 程序运行后，单击命令按钮
40、 Command1，并输入“Happy new year”，则在 List1 中显示的内容为（分数：2.50）A.year new Happy B.Happy new yearC.raey wen yppaHD.yppaH wen raey解析：解析 本题的循环中倒序从字符串 s 中依次取出每一个字符，只要该字符不是空格就将其连接到temp 的前面，见到空格就把连接好的 temp 加入到列表框中，即先加入 year，然后是 new，最后是Happy。23.设有下面程序代码： Option Base 1 Private Sub Command1_Click() Dim x(6) a=Array(
41、4, 2, 5, 1, 6, 3) b=Array(64, 24, 98, 27, 58, 41) For k=1 To 6 x(a(k)=b(k) Next k For k=1 To 6 Print x(k); Next k End Sub 程序运行时的输出是（分数：2.00）A.27 24 41 64 98 58 B.64 24 98 27 58 41C.24 27 41 58 64 98D.98 64 58 41 27 24解析：解析 本题是一个简单的数组赋值，只要把握好每次为哪个元素赋以什么样的值就不会出错。最后 x 数组中存放的数据依次是 27、24、41、64、98、58。24.以
42、下叙述中错误的是_。（分数：2.00）A.Sub Main 是定义在标准模块中的特定过程B.一个工程中只能有一个 Sub Main 过程C.Sub Main 过程不能有返回值D.当工程中含有 Sub Main 过程时，工程执行时一定最先执行该过程 解析：解析 VB 工程的启动对象有：Sub Main 过程(在标准模块中定义)、窗体(在多个窗体可选一个窗体启动)，我们可以通过在“工程属性”对话框中设置启动对象来实现，设置哪个就用哪个启动。所以当工程中含有 Sub Main 过程时，工程执行不一定最先执行该过程，也可以通过窗体启动。故选项 D 错误。25.执行语句 s=Len(Mid(“study
43、 hard“，1，5)后，s 的值是（分数：1.00）A.studyB.hardC.5 D.10解析：解析 中部截取函数 Mid(字符串，p，n)的作用是：从“字符串”的第 p 个字符开始，向后截取 n 个字符。字符串长度测试函数 Len(字符串)的作用是；测试“字符串”的长度。Mid(“study hard“，I， 5)的计算结果为“study”，Len(“study”)的计算结果为 5。二、填空题(总题数：15，分数：26.00)26.软件设计模块化的目的是 1。 （分数：2.00）解析：降低复杂性 解析 考查模块化的概念和意义。 模块化是指解决一个复杂问题时自顶向下逐层把软件系统划分成若
44、干模块的过程，由此分解来降低复杂性。Visual Basic 基硼知识。27.下面运行程序后，单击命令按钮，输出的结果是 _ 1_ 。 Private Sub Command1_Click() Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next For i=3 To 6 b(i)=i Next s1.= Fun(a) s2 =Fun(b) Print “s1 =“; s1; “s2 =“; s2 End Sub Function Fun( a( ) As Integer) Dim t#, i% t=1 For i = LB
45、ound(a) To UBound(a) t=t * a(i) Next Fun=t End Function （分数：1.00）解析：s1=24 s2=360解析 程序首先调用循环语句为数组 a、b 赋值，其中 a(i)=i；b(i)=i，且数组 a的上下界分别为 1 和 4，数组 b 的上下界分别为 3 和 6；接着将数组 a 作为参数调用 Fun 过程，在 Fun 过程中，定义了两个变量 t 及 i，i 作为循环语句 For 的变量，它的初始值和终值分别为数组的上下界，循环体为 t=t*a(i)，即将 a(i)的值乘以 t，然后再赋给 t，当循环结束后，程序返回的就是数组 a 中的各元素
46、的积；同理程序将数组 b 作为参数传递给 Fun 过程后返回数组 b 中各元素的积，运行程序结束后，输出结果为：s1=24 s2=360。28.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim a(10)As Integer For i = 1 To 10 a(i)= i Next Call swap( 1) For i=1 To 10 Print a(i)； Next End Sub Sub swap(b()As Integer) n = 2 For i=1 To n/2 t
47、= b(i) b(i)= b(n) b(n)= t 3 Next End Sub 上述程序的功能是：通过调用过程 swap，调换数组中数值的存放位置，即 a(”与 a(10)的值互换，a(2)与 a(9)的值互换，a(5)与 a(6)的值互换。请填空。 （分数：2.00）解析：a() UBound(b)或 10 n=n-1 解析 本题综合考查数组参数的传送以及 For 循环控制语句。由于建立了一个 swap 过程，该过程具有调换数组中数值的存放位置的功能，故在第一处调用该过程是，应把 a()作为 swap 的参数。 For 循环通过中介变量 t 交换数组中数值的存放位置。具体过程是，先把 b(
48、i)值赋给 t，让 t 储存；随后将 b(n)值赋给 b(i)，这个过程完成了数组靠后的元素与靠前的元素的交换：b(n)的值被赋给 b(i)后，将接收 b(i)的值，以完成数值的对调，这个过程由 t 对它赋值完成。据此，可以看出第二处应填数组的元素总数，即 UBound(b)。UBound(b)函数返回数组 b 的下标上界。由于在本程序中，只有 a(10)需要调用该过程，所以第二处也可以填 10。效果是一样的。 根据上面的分析，第三处应填写语句让 n 随着 For 循环的执行不断的减小，而且每次减小的幅度为 1，故填：n=n-1。29.下面是用冒泡法将 5 个整数按升序排列，请将程序补充完整。 Sub GASR() Dim m m=Array(10，1，5，6，7) For i=0 To 3 For j= 1 If m(i) =m(j) Then 2 m(i) =m(j) m(j) =t End If Next j 3 For i=0 To 4 Print m(i) Next i End Sub （分数：1.00）解析：i + 1 To 4 t = m(i) Next i 解析 考核考生对循环控制结构和条件控制语句综合运用的能力。 本题考查冒泡法的程序，就是拿前面的数与后面的数比较，如果前面的数大于后面的就互换，反之什么
