1、二级 VISUAL+BASIC-535 及答案解析(总分：70.00，做题时间：90 分钟)一、选择题(总题数：25，分数：42.00)1.窗体在屏幕上显示后有 _ 种方法可以清除它。（分数：1.00）A.1B.2C.3D.42.要在命令按钮控件上显示图像应 _ 。（分数：2.00）A.设置 Picture 属性B.实现不了C.先将 Style 设置为 1，然后再设置 Picture 属性D.以上都不对3.窗体上有一个名称为 Command1 的命令按钮，其单击事件过程及有关函数过程如下： Private Sub Command1_Click() Dim n As Integer n=add(
2、5，10) Print n End Sub Function add(v1 As Integer, v2 As Integer, Optional v3) As Integer If Not IsMissing(v3) Then add=v1+v2+v3 Else add=v1+v2 End If End Function 运行程序，单击命令按钮，以下叙述中正确的是_。（分数：2.00）A.程序不能正常运行，因为函数 add 的参数定义有错B.程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配C.程序能正常运行，结果是在窗体上显示 15D.程序能正常运行，结果是在窗体上显示 510v
3、34.以下关系表达式中，其值为假的是： _。（分数：1.00）A.“XYZ“XYz“B.“Visual Basic“=“visual basic“C.“the“there“D.“Integer“Int“5.在程序测试中，为了成功地测试设计数据，目前产生这些测试用例主要依赖于 _ 。（分数：1.00）A.黑盒方法B.测试人员的经验C.白盒测试D.以上都不是6.在窗体上画一个命令按钮和一个文本框(名称分别为 Commandl 和 Text1)，并把窗体的 KeyPreview 属性设置为 True，然后编写如下代码： Dim SaveAll As String Private Sub Form_L
4、oad() Show Text1.Text=“ Text1.SetFocus End Sub Private Sub Commandl_Click() Text1.Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为_。（分数：3.00）A.vbVBB.不显示任何信息C.VBD.出错7.文本框的 Locked 属性被设置为 True 后
5、产生的效果是（分数：2.50）A.光标不能进入文本框B.不能使文本框中的文本左右滚动C.不能修改文本框中的文本D.在程序中不能引用文本框的内容8.设有如下程序： Dption Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox(“输入数据“) If n10 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
6、 For i=1 To n b(i)=CInt(Rnd()*100) If b(i)/2=b(i)/2 Then j=j+1 c(j)=b(i) End If Next print j Knd Sub 以下叙述中错误的是_。（分数：2.00）A.数组 b 中的偶数被保存在数组 c 中B.程序运行结束时，在窗体上显示的是 c 数组中元素的个数C.GetArray 过程的参数 n 是按值传送的D.如果输入的数据大于 10，则窗体上不显示任何信息9.下列关于栈的描述正确的是（分数：2.00）A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或
7、删除元素D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素10.最简单的交换排序方法是_。（分数：2.00）A.快速排序B.选择排序C.堆排序D.冒泡排序11.下列程序段的执行结果为 _ 。 a=6 For k=1 To n a=a+k Next Print k; a（分数：2.00）A.-16B.-116C.16D.11 2112.函数过程 Fun1 的功能是：如果参数 b 为奇数，则返回值为 1, 否则返回值为 0。 Function Fun1 (b As Integer) if _ Then Fun1 =0 Else Fun1 = 1 End If End Function 使
8、该功能完整，应在空行处填入以下哪条语句（分数：1.00）A.b Mod 20B.b Mod 2 =0C.b/2 = 1D.b/2 =013.在窗体上画个名为 Command1 的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x) End Sub 运行程序，单击命令按钮，在窗体上显示的是_。（分数：2.00）A.6B.5C.7D.814.窗体的 MouseUp 事件过程如下： Private Sub Form_MouseU
9、p(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub 关于以上定义，以下叙述中错误的是（分数：2.00）A.根据 Shift 参数，能够确定使用转换键的情况B.根据 X、Y 参数可以确定触发此事件时鼠标的位置C.Button 参数的值是在 MouseUp 事件发生时，系统自动产生的D.MouseUp 是鼠标向上移动时触发的事件15.检查软件产品是否符合需求定义的过程称为（分数：1.00）A.确认测试B.集成测试C.验证测试D.验收测试16.单个用户使用的数据视图的描述称为（分数：1.00）A.外模式B.
10、概念模式C.内模式D.存储模式17.编写如下程序： Private Sub Command1_Click() Dim m As Integer，n As Integer m=1:n=0 Do While m20 n=m+n m=3*m+1 Loop Print m，n End Sub 程序运行后，单击命令按钮 Command1，输出结果为_。（分数：1.00）A.40 18B.40 19C.20 64D.21 6418.以下叙述中错误的是_。（分数：1.00）A.标准模块文件的扩展名是.basB.标准模块文件是纯代码文件C.在标准模块中声明的全局变量可以在整个工程中使用D.在标准模块中不能定义
11、过程19.为了使文本框同时具有垂直和水平滚动条，应先把 multiLine 属性设置为 True，然后再把 ScrollBars 属性设置为_。（分数：2.00）A.0B.1C.2D.320.能够产生 1 到 50 之间(含 1 和 50)随机整数的表达式是_。（分数：1.00）A.Int(Rnd*51)B.Int(Rnd(50)+1)C.Int(Rnd*50)D.Int(Rnd*50+1)21.数据库管理系统中负责数据完整性、安全性定义的语言是_。（分数：2.00）A.数据定义语言B.数据管理语言C.数据操纵语言D.数据控制语言22.窗体上有一个名称为 CD1 的通用对话框，一个名称为 Te
12、xt1 的文本框，窗体的单击事件过程如下： Private Sub Form_Click() CD1.DialogTitle=“改变颜色“:CD1.Color=Form1.BackColor CD1.Action=3:Text1.BackColor=CD1.Color End Sub 运行程序时，单击窗体，则以下叙述中错误的是（分数：2.50）A.通用对话框的标题被改为“改变颜色”B.通用对话框被打开为颜色对话框C.若选择颜色对话框中的“取消”按钮，则文本框的背景色改为窗体背景色D.若选择颜色对话框中的“确定”按钮，则文本框的背景色改为在颜色对话框中选中的颜色23.软件测试的过程是_。 集成测
13、试 验收测试 系统测试 单元测试（分数：2.00）A.、B.、C.、D.、24.在窗体上画一个名称为 Commana1 的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X20 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) SW = False End Sub Pr
14、ivate Sub Form_MouseUp( Button As Integer,_ Shift As Integer ,X As Single, Y As Single) SW = True End Sub Private Sub Commandl_Click( ) Dim intNum As Integer intNum = InputBox(“ “) If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入 25，则程序的执行结果为（分数：1.00）A.输出 0B.输出 25C.输出 4
15、5D.无任何输出25.若对 n 个元素进行直接插入排序，则进行第 i 趟排序过程前，有序表中的元素个数为 _。（分数：2.00）A.1B.i-1CiD.i+1二、填空题(总题数：15，分数：28.00)26.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Privme Sub Command1_Click 1 n=5 f=1 s=0 For i=1 To n f=f _ 2_ s=s+f Next Print s End Sub 该事件过程的功能是计算 （分数：1.00）27.在 Visual Basic 中，实参传递给形参有两种方式， _ 1_ 方式可以通过改变过
16、程中的相应的参数来改变实参变量的值；而 _ 2_ 被调用过程中改变了这个形参的值，但对应的实参的值并不改变。 28.以下程序代码使用二维数组 A 表示矩阵，实现单击命令按钮 Command1 时使矩阵的两条对角线上的元素值全为 1，其余元素值全为 0，请补充完该程序。 Private Sub Command1_click() Dim A(4，4) For I=1 To 4 For J= 1 To 4 1=1 Next I 2 3 Next J For i=1 To 4 For j=1 To 4 Print A(i，j)： Next j Print Next I End Sub （分数：2.00
17、）29.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 1。 （分数：2.00）30.CASE 是一组 _ 1_ 的集合，可以辅助软件开发生命周期各阶段进行软件开发。 （分数：2.00）31._ 1_ (黑箱或白箱)测试方法完全不考虑程序的内部结构和内部特征。 （分数：2.00）32.一棵二叉树第六层(根结点为第一层)的结点数最多为 _ 1_ 个。 （分数：2.00）33.在数据的存储结构中，不仅需要存储各数据元素的信息，还要存放各元素之间 1 的信息。 （分数：2.00）34.设一棵完全二叉树共有 500 个结点，则在该二叉树中有 _ 1_ 个叶子结点。 （分数：2.00）35.窗
18、体上有一个名称为 List1 的列表框，一个名称为 Picture1 的图片框。Form_Load 事件过程的作用是，把 Datal.txt 文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序，请填空。 （分数：2.00）36.测试的目的是暴露错误，评价程序的可靠性：而 1 的目的是发现错误的位置并改正错误。 （分数：1.00）37.滚动条的最小值属性是 1，最大值属性是 2。 （分数：4.00）38.文件的打开和关闭语句分别是 _ 1_ 和 _ 2_ 。 （分数：2.00）39.在程序的每个空白处填写一条适
19、当的语句，使程序完成相应的操作。程序实现的功能是：窗体上有文本框 Text1 和若干复选框，其中复选框 Check1 设置文本框 Text1 显示的文本是否加下划线。Check1 的单击事件过程如下： Private Sub Check1_Click() If 1 Then Text1.FontUnderline=Tree ElseIf 2Then Text1.FontUndefiine=False End If End Sub （分数：2.00）40.结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精 _ 1_ 和限制使用 goto 语句。 （分数：2.00）二级 VISUAL+BAS
20、IC-535 答案解析(总分：70.00，做题时间：90 分钟)一、选择题(总题数：25，分数：42.00)1.窗体在屏幕上显示后有 _ 种方法可以清除它。（分数：1.00）A.1B.2C.3 D.4解析：解析 清除窗体的方法可以用 Unload 将其从内存中彻底卸载，也可以设置其 Visible 属性为False，仅仅使其从屏幕上消失；还可以用Hide 属性，使窗体隐藏起来。2.要在命令按钮控件上显示图像应 _ 。（分数：2.00）A.设置 Picture 属性B.实现不了C.先将 Style 设置为 1，然后再设置 Picture 属性 D.以上都不对解析：解析 Style 属性的值可设置
21、成标准模式 0(vbButtonStandard)或图形模式 1(vbButtonGraphical)。命令按钮控件默认的 Style 属性值为 0，只能显示标准的按钮，不能设置颜色和图形。使用 Picture 属性可以给命令按钮指定一个图形。3.窗体上有一个名称为 Command1 的命令按钮，其单击事件过程及有关函数过程如下： Private Sub Command1_Click() Dim n As Integer n=add(5，10) Print n End Sub Function add(v1 As Integer, v2 As Integer, Optional v3) As
22、Integer If Not IsMissing(v3) Then add=v1+v2+v3 Else add=v1+v2 End If End Function 运行程序，单击命令按钮，以下叙述中正确的是_。（分数：2.00）A.程序不能正常运行，因为函数 add 的参数定义有错B.程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配C.程序能正常运行，结果是在窗体上显示 15 D.程序能正常运行，结果是在窗体上显示 510v3解析：解析 Optiona 关键字说明该参数为可选参数，可以传值也可以不传，add 函数中加入了判断语句，如果该参数传了值则进行三数相加，否则进行两数相加。主
23、函数中调用仅有两个参数，则两数相加为15，本题答案为 C。4.以下关系表达式中，其值为假的是： _。（分数：1.00）A.“XYZ“XYz“B.“Visual Basic“=“visual basic“ C.“the“there“D.“Integer“Int“解析：解析 字符串比较大小规则：从左到右逐个比较其字符的 ASCII 值。有以下几种情况： 字符串相等。 当两个字符串不是所有对应位置上的字符都相等，以第一次出现不同字符时的比较结果为准。 前面完全相等，以长者为大。 对于纯英文且大小写相同，可按英文字典顺序比较。在字典顺序后出现的比在前面出现的大。当出现不对应的大小写字母时，小写字母总是
24、大于相同的大写字母。 字符串由汉字组成时，实际上按拼音的 ASCII 值比较。 数字字符比较遵循上面的规则。5.在程序测试中，为了成功地测试设计数据，目前产生这些测试用例主要依赖于 _ 。（分数：1.00）A.黑盒方法B.测试人员的经验 C.白盒测试D.以上都不是解析：解析 测试方法有两种：黑盒测试和白盒测试。不论用哪种测试方法，产生测试数据的工作量都是十分繁重的。实际上大多数测试用例的产生仍依赖于测试人员的经验，从而测试质量的高低还与测试人员的能力有很大关系。6.在窗体上画一个命令按钮和一个文本框(名称分别为 Commandl 和 Text1)，并把窗体的 KeyPreview 属性设置为
25、True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text=“ Text1.SetFocus End Sub Private Sub Commandl_Click() Text1.Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为_。（分数：
26、3.00）A.vbVB B.不显示任何信息C.VBD.出错解析：解析 窗体的 KeyPreview 属性用于设置或获取一个值，该值只是判断按键事件传递到具有焦点的控件前，窗体是否将接收此事件，该属性设为 True 时，窗体将会接收按键事件。因此在文本框中输入“VB”时，会先触发 Form_KeyPress()事件，该事件将输入的字符保存到窗体模块变量 SaveAll 中，然后才会显示在文本框中。当单击命令按钮时，Lcase 函数将变量 SaveAll 中的字符串“VB”转换为小写，为“vb”，然后与原字符串连接，即“vb”+“VB”，显示在文本框中则为“vbVB”。7.文本框的 Locked
27、属性被设置为 True 后产生的效果是（分数：2.50）A.光标不能进入文本框B.不能使文本框中的文本左右滚动C.不能修改文本框中的文本 D.在程序中不能引用文本框的内容解析：解析 文本框的 Locked 属性用于设置控件是否允许进行文本编辑，值为 False(默认值)时允许编辑，值为 True 时不允许编辑。8.设有如下程序： Dption Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox(“输入数据“) If n10 Then Call GetArray(a, n) End
28、 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(i) End If Next print j Knd Sub 以下叙述中错误的是_。（分数：2.00）A.数组 b 中的偶数被保存在数组 c 中B.程序运行结束时，在窗体上显示的是 c 数组中元素的个数C.GetArray 过程的参数 n 是按值传送的 D.如果输入的数据大于 10，则窗体
29、上不显示任何信息解析：解析 在形参中，默认的传送方式为传地址传送，所以形参 n 是按传地址传送。正确答案为选项C。9.下列关于栈的描述正确的是（分数：2.00）A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删除元素 D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素解析：解析 栈是一种特殊的线性表，其插入与删除运算都只在线性表的一端进行。由此可见，选项A、选项 B 和选项 D 错误，正确答案是选项 C。10.最简单的交换排序方法是_。（分数：2.00）A.快速排序B.选择排序C.堆排序D.冒泡排序 解析：解析 交换排序方
30、法有冒泡排序和快速排序，显然选项 B 和选项 C 错误，冒泡排序比较简单，其算法也容易理解，但快速排序本身较为复杂，且采用了递归调用，其算法理解也稍难。冒泡排序是一种最简单的交换排序方法，它是通过相邻数据元素的交换逐步将线性变成有序。11.下列程序段的执行结果为 _ 。 a=6 For k=1 To n a=a+k Next Print k; a（分数：2.00）A.-16B.-116C.16 D.11 21解析：解析 For 循环的般格式是 For 循环变量=初值 To 终值 Step步长 语句 Exit For 语句 Next循环变量 该循环语句的执行过程为：“循环变量”首先取得“初值”，
31、检查是否超过”终值”，如果超过，就不循环并跳出循环，属于“先检查后执行”的类型。现在来看程序段，For k=1 To 0 中，初值为 1，终值为O，显然当“循环变量”首先取得“初值”1，检查后超过“终值”0，所以一次也不执行，即最后执行Print 时，k=1，a=6。12.函数过程 Fun1 的功能是：如果参数 b 为奇数，则返回值为 1, 否则返回值为 0。 Function Fun1 (b As Integer) if _ Then Fun1 =0 Else Fun1 = 1 End If End Function 使该功能完整，应在空行处填入以下哪条语句（分数：1.00）A.b Mod
32、20B.b Mod 2 =0 C.b/2 = 1D.b/2 =0解析：解析 本题考查的是函数过程的定义。 6 是偶数的条件是“b Mod 2=0”，当 6 为偶数时返回 0，应将 0 赋给函数名即“Fun1”，当&为奇数时返回 1，即将 1 赋给“Fun1”。所以本题的正确答案是选项 B) 。13.在窗体上画个名为 Command1 的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x) End Sub 运行程序，单击命令
33、按钮，在窗体上显示的是_。（分数：2.00）A.6 B.5C.7D.8解析：解析 For 循环 评析 本题中首先通过 For 循环对数组 M()进行赋值，执行过 For 循环后数组各元素的值为：M(1)=11、M(2)=10、M(3)=9、M(4)=8、M(5)=7、M(6)=6、M(7)=5、M(8)=4、M(9)=3、M(10)=2，然后执行Print M(2+M(x)语句，其中 x 为 8，即 Print M(2+M(8)，数组元素 M(8)的值为 4，因此 Print M(2+4)=Print M(6)，数组元素 M(6)的值为 6，即在窗体上打印 6。14.窗体的 MouseUp 事
34、件过程如下： Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub 关于以上定义，以下叙述中错误的是（分数：2.00）A.根据 Shift 参数，能够确定使用转换键的情况B.根据 X、Y 参数可以确定触发此事件时鼠标的位置C.Button 参数的值是在 MouseUp 事件发生时，系统自动产生的D.MouseUp 是鼠标向上移动时触发的事件 解析：解析 鼠标状态事件又分为按下事件(MouseDown)、移动事件(MouseMove)和弹起事件(MouseUp
35、)，这三个事件具有相同的参数。Button 参数的值是在 MouseUp 事件发生时，系统自动产生的，代表按下的是那个鼠标键；Shift 参数确定使用转换键的情况；X、Y 参数可以确定触发此事件时鼠标的位置。15.检查软件产品是否符合需求定义的过程称为（分数：1.00）A.确认测试 B.集成测试C.验证测试D.验收测试解析：解析：确认测试的任务是验证软件的功能和性能，以及其他特性是否满足需求规格说明中确定的各种需求；集成测试的主要目的是发现与接口有关的错误。16.单个用户使用的数据视图的描述称为（分数：1.00）A.外模式 B.概念模式C.内模式D.存储模式解析：解析 外模式是用户的数据视图，
36、也就是用户所见到的数据模式。全局数据视图的描述称为概念模式，即数据库中全部数据的整体逻辑结构的描述。物理存储数据视图的描述称为内模式，即数据库在物理存储方面的描述。存储模式即为内模式。故只有 A 项是正确的。17.编写如下程序： Private Sub Command1_Click() Dim m As Integer，n As Integer m=1:n=0 Do While m20 n=m+n m=3*m+1 Loop Print m，n End Sub 程序运行后，单击命令按钮 Command1，输出结果为_。（分数：1.00）A.40 18 B.40 19C.20 64D.21 64解
37、析：解析 循环中各变量值变化如下： n=m+n=1+0=1，m=3*m+1=3+1=4，4 小于 20 继续循环； n=m+n=4+1=5，m=3*m+1=12+1=13，13 小于 20 继续循环； n=m+n=13+5=18，m=3*m+1=39+1=40，40 不小于 20，循环结束。此时 m=40，n=18。18.以下叙述中错误的是_。（分数：1.00）A.标准模块文件的扩展名是.basB.标准模块文件是纯代码文件C.在标准模块中声明的全局变量可以在整个工程中使用D.在标准模块中不能定义过程 解析：解析 标准模块独立保存为标准模块文件.bas，故 A 选项正确。 标准模块是应用程序内其
38、他模块访问的过程和声明的容器。当应用程序比较庞大，含有多个窗口，而且几个窗口需要写重复的过程、变量等代码时，就可以把这些重复的代码写在标准模块。故 B 选项正确。 在标准模块中定义的 Public 变量、Public 过程属于全局变量和全局过程，在整个工程中的其他窗体、模块都可以使用。故 C 选项正确，在标准模块中可以定义过程，故 D 选项错误。19.为了使文本框同时具有垂直和水平滚动条，应先把 multiLine 属性设置为 True，然后再把 ScrollBars 属性设置为_。（分数：2.00）A.0B.1C.2D.3 解析：解析 本题考查的考点是有关文本框的滚动条的。ScrollBar
39、s 属性用于设置文本框是否有水平或垂直滚动条，可设置成以下 4 种值。 0-表示没有滚动条(默认值)： 1-表示只有水平滚动条： 2-表示只有垂直滚动条： 3-表示有水平和垂直滚动条。 设置 0 以外的值时 MultiLine 属性值必须为 True。20.能够产生 1 到 50 之间(含 1 和 50)随机整数的表达式是_。（分数：1.00）A.Int(Rnd*51)B.Int(Rnd(50)+1)C.Int(Rnd*50)D.Int(Rnd*50+1) 解析：解析 Rnd 函数产生 01 之间的随机数，不包括 0 和 1。要产生 150(包含 1 和 50)之间的随机整数，可以先产生 05
40、0 之间的随机整数，然后再这个基础上加 1。放 D 选项正确。21.数据库管理系统中负责数据完整性、安全性定义的语言是_。（分数：2.00）A.数据定义语言B.数据管理语言C.数据操纵语言D.数据控制语言 解析：解析 数据定义语言负责数据的模式定义和数据的物理存取构建；数据操纵语言负责数据的操纵；数据控制语言负责数据完整性、安全性的定义与检查以及并发控制、故障恢复等功能。无数据管理语言的说法。22.窗体上有一个名称为 CD1 的通用对话框，一个名称为 Text1 的文本框，窗体的单击事件过程如下： Private Sub Form_Click() CD1.DialogTitle=“改变颜色“:
41、CD1.Color=Form1.BackColor CD1.Action=3:Text1.BackColor=CD1.Color End Sub 运行程序时，单击窗体，则以下叙述中错误的是（分数：2.50）A.通用对话框的标题被改为“改变颜色” B.通用对话框被打开为颜色对话框C.若选择颜色对话框中的“取消”按钮，则文本框的背景色改为窗体背景色D.若选择颜色对话框中的“确定”按钮，则文本框的背景色改为在颜色对话框中选中的颜色解析：解析 通用对话框(CommonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。通用对话框的
42、 DialogTitle 属性用于返回或设置该对话框标题栏上所显示的文本；Action 属性用于设置被打开对话框的类型，3 为“打开”颜色对话框类型。只有设置了 Action 属性后对话框才被打开，对对话框属性的设置才能起作用，由于本题中设置 DialogTitle 的语句在设置 Action 属性之前，因此不起作用。23.软件测试的过程是_。 集成测试 验收测试 系统测试 单元测试（分数：2.00）A.、B.、C.、 D.、解析：解析 软件测试过程分 4 个步骤，即单元测试、集成测试、验收测试(确认测试)和系统测试。24.在窗体上画一个名称为 Commana1 的命令按钮，然后编写如下程序：
43、 Dim SW As Boolean Function func(X As Integer)As Integer If X20 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) SW = False End Sub Private Sub Form_MouseUp( Button As Integer,_ Shift As Integer ,X As Single,
44、Y As Single) SW = True End Sub Private Sub Commandl_Click( ) Dim intNum As Integer intNum = InputBox(“ “) If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入 25，则程序的执行结果为（分数：1.00）A.输出 0B.输出 25C.输出 45 D.无任何输出解析：解析 本题考查的是鼠标事件，当压下鼠标左键(发生 MouseDown 时)SW 的值为 False，当松开鼠标左键(触发 Mo
45、useUp 时)SW 的值为 True。25.若对 n 个元素进行直接插入排序，则进行第 i 趟排序过程前，有序表中的元素个数为 _。（分数：2.00）A.1B.i-1Ci D.i+1解析：二、填空题(总题数：15，分数：28.00)26.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Privme Sub Command1_Click 1 n=5 f=1 s=0 For i=1 To n f=f _ 2_ s=s+f Next Print s End Sub 该事件过程的功能是计算 （分数：1.00）解析：/i 或*1/i解析 根据已给的等式27.在 Visual
46、 Basic 中，实参传递给形参有两种方式， _ 1_ 方式可以通过改变过程中的相应的参数来改变实参变量的值；而 _ 2_ 被调用过程中改变了这个形参的值，但对应的实参的值并不改变。 解析：引用 传值解析 变量(即实参)的值存放在内存的某个地址中，当通过引用来调用一个过程时，向该过程传送变量，实际上是把变量的地址传送给该过程，因此，变量的地址和被调用过程中相应参数的地址是相同的。如果通用过程中的操作修改了参数的值，则它同时也修改了传送给过程的变量的值。而传值方式即实参把值传递给对应的形参。这种数据传递方式的特点是：在被调用过程中改变了这个形参的值，但对应的实参的值并不改变。传值方式是通过使用
47、ByVal 关键字来实现的。28.以下程序代码使用二维数组 A 表示矩阵，实现单击命令按钮 Command1 时使矩阵的两条对角线上的元素值全为 1，其余元素值全为 0，请补充完该程序。 Private Sub Command1_click() Dim A(4，4) For I=1 To 4 For J= 1 To 4 1=1 Next I 2 3 Next J For i=1 To 4 For j=1 To 4 Print A(i，j)： Next j Print Next I End Sub （分数：2.00）解析：A(I，J) A(I，I) A(I、5-I)29.如果要将某个菜单项设计为
48、分隔线，则该菜单项的标题应设置为 1。 （分数：2.00）解析：-(或减号)解析 本题考查菜单的常见属性。菜单中分隔线的名字，程序员可自行设定，但是其Caption 属性为-(半角状态下的减号)。30.CASE 是一组 _ 1_ 的集合，可以辅助软件开发生命周期各阶段进行软件开发。 （分数：2.00）解析：软件开发工具31._ 1_ (黑箱或白箱)测试方法完全不考虑程序的内部结构和内部特征。 （分数：2.00）解析：黑箱解析 黑箱测试是根据程序规格说明所规定的功能来设计测试用例，它不考虑程序的内部结构和处理过程。常用的黑箱测试技术分为等价类划分、边界分析、错误猜测以及因果图等。32.一棵二叉树第六层(根结点为第一层)的结点数最多为 _ 1_ 个。 （分数：2.00）解析：32解析 根据二叉树的性质：二叉树第 i(i1)层上至多有 21-1 个结点。得到第 6 层的结点数最多是 32。33.在数据的存储结构中，不仅需要存储各数据元素的信息，还要存放各元素之间 1 的信息。 （分数：2.00）解析：前后件关系解析 在数据存储结构中，除了要存储数据，还要存储数据
