1、二级 VISUAL+BASIC 笔试-137 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.以下叙述中错误的是 _。（分数：2.00）A.下拉式菜单和弹出式菜单都用菜单编辑器建立B.在多窗体程序中，每个窗休都可以建立自己的菜单系统C.除分隔线外，所有菜单项都能接收 Click 事件D.如果把一个菜单项的 Enabled 属性设置为 False，则该菜单项不可用2.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()x=-5If Sgn(x) Theny=Sgn(
2、x2)Elsey=Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，其输出结果为 _。（分数：2.00）A.-5B.25C.-1D.13.设有如下程序：Dim a()As IntegerPrivate Sub Command1_Click()n=-5:m=6ReDim a(n To m)For i=LBound(a，1)To UBound(a，1)a(i)=iNext iPrint a(LBound(a，1)；a(UBound(a，1)End Sub程序运行后，单击命令按钮，则输出结果是 _。（分数：2.00）A.0 0B.-5 0C.-5 6D.0 64.排序方法
3、中，将整个无序序列分割成若干小的子序列并分别进行插入排序的方法，称为 _。（分数：2.00）A.希尔排序B.冒泡排序C.插入排序D.选择排序5.数据存储和数据流都是 _，仅仅是所处的状态不同。（分数：2.00）A.分析结果B.事件C.动作D.数据6.在窗体上画一个名称为 Text1 的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 _。（分数：2.00）A.Private Sub Text1_KeyPress(KeyAscii As Integer)IfKeyAscii65 Or KeyAscii90 ThenMsgBox“请输入大写字母”KeyAscii=0End I
4、fEnd SubB.Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)If KeyCode65 Or KeyCode90 ThenMsgBox“请输入大写字母”KeyCode=0End IfEnd SubC.Private Sub Text1 MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)，If Asc(Text1.Text)65 Or Asc(Text1.Text)90 ThenMsgBox“请输入大写字母”End IfEnd
5、SubD.Private Sub Text1_Change()If Asc(Text1.Text)64 And Asc(Text1.Text)91 ThenMsgBox“请输入大写字母”End IfEnd Sub7.骰子是一个正六面体，用 16 这六个数分别代表这六面，掷一次骰子出现的数可表示为 _。（分数：2.00）A.INT(RND(6)+1)B.INT(RND*6)C.INT(RND*7)D.INT(RND*6+1)8.数据的完整性是指数据的正确性、有效性和 _。（分数：2.00）A.可维护性B.独立性C.安全性D.相容性9.在窗体上画一个名称为 Text1 的文本框和一个名称为 Com
6、mand1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10,10)As IntegerDim i As Integer ,j As IntegerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNext jNext iText1.Text=array1(2，3)+array1(3，4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是 _。（分数：2.00）A.15B.14C.13D.1210.模块本身的内聚是模块独立性的重要性度量因素之一。在 7 类内聚中，具有最强内聚的一类是 _。
7、（分数：2.00）A.顺序性内聚B.过程性内聚C.逻辑性内聚D.功能性内聚11.在软件开发过程中，软件结构设计是描述 _。（分数：2.00）A.数据存储结构B.软件体系结构C.软件结构测试D.软件控制过程12.Print 方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是 _。（分数：2.00）A.空格B.逗号C.冒号D.分号13.对于 n 个结点的单向链表(无表头结点)，需要指针单元的个数至少为 _。（分数：2.00）A.n-1B.nC.n+1D.2n14.在顺序表(3，6，8，10，12，15，16，18，21，25，30)中，用二分法查找关键码值 11，所需的关键码比较次数
8、为 _。（分数：2.00）A.2B.3C.4D.515.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程：Private Sub Command1_Click()str Text=InputBox(“请输入“)Text1.Text=strTextEnd SubPrivate Sub Text1_Change()Label1.Caption=Right(Trim(Text1.Text)，3)End Sub程序运行后，如果在对话框中输入 abcdef，则在标签中显示的内容是 _。（分数：2.00）A.空B.abcd
9、efC.abcD.def16.以下关于图片框控件的说法中，错误的是 _。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框中图形的大小17.编写如下事件过程：Private Sub Form_Click()k=2Ifk=1 Then A=3Ifk=2 Then A=2Ifk=3 Then A=1Print AEnd Sub程序运行后，单击窗体，输出的结果为 _。（分数：2.00）A.1B.2C.3D.出错18.若进栈序列为 1，2，3，4，进栈过程中可以
10、出栈，则下列不可能的一个出栈序列是 _。（分数：2.00）A.1，4，3，2B.2，3，4，1C.3，1，4，2D.3，4，2，119.不能触发滚动条 Change 事件的操作是 _。（分数：2.00）A.拖动滚动条中滑块B.单击滚动条中滑块C.单击滚动条两端箭头D.单击箭头与滑块之间的滚动条20.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2=0 Thenf=mElsef=1End IfEnd FunctionPrivate Sub Command1 Click
11、()Dim i As Integers=0For i=1 To 5s=s+f(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是 _。（分数：2.00）A.11B.10C.9D.821.在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为 Text1(下标从 0 开始，依次增大)，然后编写如下事件过程：Private Sub Command1_Click()For Each TextBox In TeXt1Text1(i)=Text1(i).Indexi=i+1NextEnd Sub程序运行后，单击命令按钮，四个文本框中显示的内容分别为 _。（分数：2
12、.00）A.0 1 2 3B.1 2 3 4C.0 1 3 2D.出错信息22.下面的四个 VB 6.0 表达式语法正确的是 _。（分数：2.00）A.ab.and.bcB.abcC.ab ANDc，D.ab AND bc23.以下描述中正确的是 _。（分数：2.00）A.标准模块中的任何过程都可以在整个工程范围内被调用B.在一个窗体模块中可以调用在其他窗体中被定义为 Public 的通用过程C.如果工程中包含 Sub Main 过程，则程序将首先执行该过程D.如果工程中不包含 Sub Main 过程，则程序一定首先执行第一个建立的窗体24.在窗体上画一个名称为 Text1 的文本框，一个名称
13、为 Command1 的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click()n=Val(Text1.Text)If n/2=n/2 Thenf=f1(n)Elsef=f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(By Val x)x=x*xf2=x+x+xEnd Function程序运行后，单击命令按钮，在窗体上显示的是 _。（分数：2.00）A.72 36B.108 36C.72 6D.108 625
14、.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim arr(5)As StringFor i=1 To 5art(i)=Chr(Asc(“A“)+(i-1)Next iFor Each b1 In arrPrint b1；NextEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为 _。（分数：2.00）A.ABCDEB.abcdeC.出错信息D.1 2 34 526.在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为：（
15、分数：2.00）A.For i=0 To List1.ListCount-1NextB.For i=0 To List1.Count-1NextC.For i=0 To List1.ListCountNextD.For i=0 To List1.CountNext27.编写如下程序：Private Sub Form_Click()a$=“54321“:b$=“abcde“For j=1 To 5Print Mid$(a$，6-j，1)+Mid$(b$，j，1)；Next jPrintEnd Sub程序运行后，单击窗体，其输出结果为 _。（分数：2.00）A.a1b2c3d45eB.a5b4c3
16、d2e1C.e1d2c3b4a5D.1a2b3c4d5e28.则以下叙述中正确的是 _。（分数：2.00）A.记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义B.由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾C.Open “c：/vb Test.dat“For Random As # 1 Len=Len(reC)D.语句“Put # 1，rec“将 animal 类型的两个数据元素写到文件中E.如果文件 c:/vbTest.dat 不存在，则 Open 命令执行失败29.不能作为容器使用的对象是 _。（分数：2.00）A.窗体B.框架C.图片框D.图
17、像框30.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a(3，3)For i=1 To 3For j=1 To 3If i=j Then a(i，j)=1If ij Then a(i，j)=2If ii Then a(i，j)=3Next jNext iFor i=1 To 3For j=1 To 3Print a(i，j)；Next jPrintNext iEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为 _。（分数：2.00）A.1 3 3B.1 2 2C.
18、2 3 3D.2 1 12 1 3 3 1 2 1 2 3 3 2 12 2 1 3 3 1 1 1 2 3 3 231.关系代数运算是以 _ 为基础的运算。（分数：2.00）A.关系运算B.谓词运算C.集合运算D.代数运算32.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Val(Text1.Text)For i=2 To nFor j=2 To Sqr(i)If i Mod j=0 Then Exit ForNext jIf jSqr(i) Then Print iNe
19、xt iEnd Sub该事件过程的功能是 _。（分数：2.00）A.输出 n 以内的奇数B.输出 n 以内的偶数C.输出 n 以内的素数D.输出 n 以内能被 j 整除的数33.以下关于变量作用域的叙述中，正确的是 _。（分数：2.00）A.窗体中凡被声明为 Private 的变量只能在某个指定的过程中使用B.全局变量必须在标准模块中声明C.模块级变量只能用 Private 关键字声明D.Static 类型变量的作用域是它所在的窗体或模块文件34.在窗体上画一个名称为 Labell 的标签，然后编写如下事件过程：Option Base 1Private Sub Form_Click()Dim
20、a(20) As IntegerFor k=1 To 20a(k)=k2Next kLabel1.Caption=a(k)End Sub程序运行后，单击窗体，在标签中显示的内容是 _。（分数：2.00）A.400B.20C.441D.出错信息35.在数据结构中，从逻辑上可以把数据结构分为 _。（分数：2.00）A.动态结构和静态结构B.紧凑结构和非紧凑结构C.线性结构和非线性结构D.内部结构和外部结构二、填空题(总题数：11，分数：30.00)36.对于长度为 n 的顺序存储的线性表，当随机插入和删除一个元素时，需平均移动元素的个数为 【1】 。（分数：2.00）填空项 1:_37.注释说明了
21、程序的功能，它分为 【2】 注释和功能性注释。（分数：2.00）填空项 1:_38.软件测试中路径覆盖测试是整个测试的基础，它是对软件 【3】 进行测试。（分数：2.00）填空项 1:_39.数据库技术的主要特点为数据的集成性、数据的高 【4】 和低冗余性、数据独立性和数据统一管理与控制。（分数：2.00）填空项 1:_40.数据元素之间 【5】 的整体称为逻辑结构。（分数：2.00）填空项 1:_41.将 C 盘根目录下的图形文件 moon.jpg 装入图片框 Picture1 的语句是 【6】 。（分数：2.00）填空项 1:_42.在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuE
22、dit，Visible 属性为 False。程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit 对应的菜单。以下是实现上述功能的程序，请填空。Private Sub Form 【7】 (Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then【8】 mnuEditEnd IfEnd Sub（分数：4.00）填空项 1:_43.与数学表达式 cos (a+B) /3x+5 对应的 Visual Basic 表达式是 【9】 。（分数：2.00）填空项 1:_44.在窗体上画一个名称为 Text
23、1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为 Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。请填空。Private Sub Option1_Click(Index As Integer)Select Case 【10】 Case 0a=“宋体”Case 1a=“黑体”Case 2a=“楷体 GB2312”End SelectText1. 【11】 =aEnd Sub（分数：4.00）填空项 1:_45.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1
24、_Click()n=5f=1s=0For i=1 To nf= 【12】 s=s+fNextPrint sEnd Sub该事件过程的功能是计算 （分数：2.00）填空项 1:_46.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a(10)As IntegerFor i=1 To 10a(i)=iNextCall swap( 【13】 )For i=1 To 10Print a(i)；NextEnd SubSub swap(b()As Integer)n= 【14】 For i=1
25、To n/2t=b(i)b(i)=b(n)b(n)=t【15】 NextEnd Sub上述程序的功能是，通过调用过程 swap，调换数组中数值的存放位置，即 a(1)与 a(10)的值互换，a(2)与 a(9)的值互换，a(5)与 a(6)的值互换。请填空。（分数：6.00）填空项 1:_二级 VISUAL+BASIC 笔试-137 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.以下叙述中错误的是 _。（分数：2.00）A.下拉式菜单和弹出式菜单都用菜单编辑器建立B.在多窗体程序中，每个窗休都可以建立自己的菜单系统C.除分隔线外，所有菜单项
26、都能接收 Click 事件 D.如果把一个菜单项的 Enabled 属性设置为 False，则该菜单项不可用解析：评析 PopupMenu 方法的使用形式如下：对象.PopupMenu 菜单名，标志，x，y。其中，x，y：是快捷菜单显示的位置。标志：指定快捷菜单的行为。当标志为 0 时，快捷菜单中的项只能对鼠标左键起反应。当标志为 1 时，快捷菜单中的菜单项对鼠标左键和右键都反应：标志为 2 时 PopupMenu 方法只能用在 MouseDown 事件过程，所以选项 C 是错误的。2.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Comma
27、nd1_Click()x=-5If Sgn(x) Theny=Sgn(x2)Elsey=Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，其输出结果为 _。（分数：2.00）A.-5B.25C.-1D.1 解析：评析 Sgn(number)函数的功能是返回 number 的正负号。如果 number0，Sgn 返回1；number=0，Sgn 返回 0； number0，Sgn 返回-1。在本题中 Sgn(-5)的返回值为-1，-1 为真，所以执行 y=Sgn(x2)，返回 1，所以 y 的值为 1。3.设有如下程序：Dim a()As IntegerPrivate
28、 Sub Command1_Click()n=-5:m=6ReDim a(n To m)For i=LBound(a，1)To UBound(a，1)a(i)=iNext iPrint a(LBound(a，1)；a(UBound(a，1)End Sub程序运行后，单击命令按钮，则输出结果是 _。（分数：2.00）A.0 0B.-5 0C.-5 6 D.0 6解析：评析 ReDim a(n To m)指明动态数组 9 的下标和上标为-5 和 6；则 LBound(a，1)=-5、UBound(a，1)=6。故Print a(LBound(a，1)；a(UBound(a，1)输出 a(-5)、a
29、(6)的值。4.排序方法中，将整个无序序列分割成若干小的子序列并分别进行插入排序的方法，称为 _。（分数：2.00）A.希尔排序 B.冒泡排序C.插入排序D.选择排序解析：评析 希尔排序法的基本思想是：将整个无序序列分割成若干小的子序列分别进行插入排序。5.数据存储和数据流都是 _，仅仅是所处的状态不同。（分数：2.00）A.分析结果B.事件C.动作D.数据 解析：评析 数据流图有 4 种成分：源点或终点、处理、数据存储和数据流。数据存储是处于静止状态的数据，数据流是处于运动小的数据。6.在窗体上画一个名称为 Text1 的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
30、 _。（分数：2.00）A.Private Sub Text1_KeyPress(KeyAscii As Integer)IfKeyAscii65 Or KeyAscii90 ThenMsgBox“请输入大写字母”KeyAscii=0End IfEnd Sub B.Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)If KeyCode65 Or KeyCode90 ThenMsgBox“请输入大写字母”KeyCode=0End IfEnd SubC.Private Sub Text1 MouseDown(Button A
31、s Integer，Shift As Integer，X As Single，Y As Single)，If Asc(Text1.Text)65 Or Asc(Text1.Text)90 ThenMsgBox“请输入大写字母”End IfEnd SubD.Private Sub Text1_Change()If Asc(Text1.Text)64 And Asc(Text1.Text)91 ThenMsgBox“请输入大写字母”End IfEnd Sub解析：评析 Asc 函数是将字符转化成 ASCII 码值。大写字母的 ASCII 码值为 65-90(包括 65 和 90)。KeyDown
32、和 KeyUp 事件返回的是“键”，而 KeyPress 事件返回的是“字符”的 ASCII 码。7.骰子是一个正六面体，用 16 这六个数分别代表这六面，掷一次骰子出现的数可表示为 _。（分数：2.00）A.INT(RND(6)+1)B.INT(RND*6)C.INT(RND*7)D.INT(RND*6+1) 解析：评析 RND 函数产生一个小于 1，大于等于 0 的随机数，INT 函数是求不大于参数的最大整数。选项 A 的最大数是 1，选项 B 的最大数是 5，选项 C 的最小数是 0，只有选项 D 能产生 1-6 之间的整数。8.数据的完整性是指数据的正确性、有效性和 _。（分数：2.0
33、0）A.可维护性B.独立性C.安全性D.相容性 解析：评析 数据模型应该反映和规定本数据模型必须遵守的、基本的、通用的完整性约束条件。完整性规则是给定的数据模型中数据及其联系所具有的制约和依存规则，用以限定符合数据模型的数据库状态及其状态的变化，以保证数据的正确性、有效性和相容性。9.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10,10)As IntegerDim i As Integer ,j As IntegerFor i=1 To 3For j=
34、2 To 4array1(i,j)=i+jNext jNext iText1.Text=array1(2，3)+array1(3，4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是 _。（分数：2.00）A.15B.14C.13D.12 解析：评析 本题是通过一个 For 循环来给数组赋值。由 array1(i,j)=i+j 可知，array1(2，3)=2+3=5，array1(3,4)=3+4=7， array1(2,3)+array1(3,4)=5+7=12，即文本框中的值为 12。10.模块本身的内聚是模块独立性的重要性度量因素之一。在 7 类内聚中，具有最强内聚的一类是
35、 _。（分数：2.00）A.顺序性内聚B.过程性内聚C.逻辑性内聚D.功能性内聚 解析：评析 内聚性是一个模块内部各元素间彼此结合的紧密程度的度量。内聚是从功能角度来度量模块内的联系。内聚共有 7 类，它们之的内聚性由弱到强排列顺序为：偶然内聚、逻辑内聚、时间内聚、过程内聚、通信内聚、顺序内聚和功能内聚。11.在软件开发过程中，软件结构设计是描述 _。（分数：2.00）A.数据存储结构B.软件体系结构 C.软件结构测试D.软件控制过程解析：评析 从工程管理角度来看，软件设计分两步完成：概要设计和详细设计。概要设计(又称结构设计)将软件需求转化为软件体系结构、确定系统级接口、全局数据结构或数据库
36、模式。12.Print 方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是 _。（分数：2.00）A.空格B.逗号 C.冒号D.分号解析：评析 Print 方法中，使用紧凑格式输出，各表达式的分隔符应是分号，使用标准格式输出，各表达式的分隔符应是逗号。13.对于 n 个结点的单向链表(无表头结点)，需要指针单元的个数至少为 _。（分数：2.00）A.n-1B.nC.n+1 D.2n解析：评析 在 n 个结点的单向链表(无表头结点)中，每个结点都有一个指针单元(即指针域)，加上头指针，至少需要 n+1 个指针单元。14.在顺序表(3，6，8，10，12，15，16，18，21，25
37、，30)中，用二分法查找关键码值 11，所需的关键码比较次数为 _。（分数：2.00）A.2B.3C.4 D.5解析：评析 二分法查找是用查找的关键码与线性表的中间元素比较，然后根据比较结果来判断是结束查找，还是在左边或者右边子表按相同的方法继续查找。本题中，与 11 比较的关键码分别为15，8，10，12，故比较次数为 4。15.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程：Private Sub Command1_Click()str Text=InputBox(“请输入“)Text1.Text=str
38、TextEnd SubPrivate Sub Text1_Change()Label1.Caption=Right(Trim(Text1.Text)，3)End Sub程序运行后，如果在对话框中输入 abcdef，则在标签中显示的内容是 _。（分数：2.00）A.空B.abcdefC.abcD.def 解析：评析 Trim 函数返回 Variant(String)类型，其中包含指定字符串的拷贝，但不包含前导和尾随空白。Right(字符串，n)：返回“字符串”的后 n 个字符。这里的“字符串”可以是字符串常量、字符串变量、字符串函数或字符串连接表达式。本题中输入的是 abcdef，返回后 3 个
39、字符就是 def。16.以下关于图片框控件的说法中，错误的是 _。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框中图形的大小 解析：评析 图片框控件不提供滚动条，也不能伸展被装入的图形以适应控件尺寸，但可以用图片框的Autosize 属性调整图片框大小以适应图形尺寸，所以选项 D 是错误的。17.编写如下事件过程：Private Sub Form_Click()k=2Ifk=1 Then A=3Ifk=2 Then A=2Ifk=3 Then A=1
40、Print AEnd Sub程序运行后，单击窗体，输出的结果为 _。（分数：2.00）A.1B.2 C.3D.出错解析：评析 单击窗体后，变量 k 值为 2。由于 Form_Click()过程中有 3 个与 k 有关的单行 If 语句，故A 的值取决于能执行为 A 赋值的最后一条 If 语句，即 If k=2 Then A=2。因此输出为 2。18.若进栈序列为 1，2，3，4，进栈过程中可以出栈，则下列不可能的一个出栈序列是 _。（分数：2.00）A.1，4，3，2B.2，3，4，1C.3，1，4，2 D.3，4，2，1解析：评析 栈是一种后进先出表，选项 C 中，先出栈的是 3，说明此时栈
41、内必然有 1，2，由于 1 先于2 进栈，所以 1 不可能在 2 之前出栈，故选项 C 这种出栈序列是不可能的。19.不能触发滚动条 Change 事件的操作是 _。（分数：2.00）A.拖动滚动条中滑块B.单击滚动条中滑块 C.单击滚动条两端箭头D.单击箭头与滑块之间的滚动条解析：评析 单击滚动条中滑块不会引起 ScrollBar 控件的 Value 属性值的变化，故不能触发 Change 事件。20.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2=0 Then
42、f=mElsef=1End IfEnd FunctionPrivate Sub Command1 Click()Dim i As Integers=0For i=1 To 5s=s+f(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是 _。（分数：2.00）A.11B.10C.9 D.8解析：评析 命令按钮事件过程中的 For 循环的作用是求函数 f(i)(i 介于 1 与 5 之间的整数)的返回值的和。函数 f 的作用是如果参数 m 的值是偶数，返回值就是 m 的值，如果是奇数，返回值就是 1。而 1 到5 之间的整数中共有 3 个奇数，两个偶数，故 s=3
43、*1+2+4=9。21.在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为 Text1(下标从 0 开始，依次增大)，然后编写如下事件过程：Private Sub Command1_Click()For Each TextBox In TeXt1Text1(i)=Text1(i).Indexi=i+1NextEnd Sub程序运行后，单击命令按钮，四个文本框中显示的内容分别为 _。（分数：2.00）A.0 1 2 3 B.1 2 3 4C.0 1 3 2D.出错信息解析：评析 控件数组是由一组相同类型的控件组成。它们共用一个控件名。建立控件数组时，系统给每个元素赋一个惟一的索引号(
44、Index)，通过属性窗口的 Index 属性，可以知道该控件的下标是多少。，第 1 个下标是 0，第 2 个下标是 1，第 3 个下标是 2，第 4 个下标是 3。故四个文本框中显示的内容分别为 0、1、2、3。22.下面的四个 VB 6.0 表达式语法正确的是 _。（分数：2.00）A.ab.and.bcB.abcC.ab ANDc，D.ab AND bc 解析：评析 选项 A 的“与”运算符多了两个句点。选项 B 在变量 b 与 c 之间无运算符。选项 C 是关系运算符与逻辑运算符连用，它们都是错误的。选项 D 先计算关系表达式 ab 和 bc，然后再将两个逻辑值进行“与”运算。23.以
45、下描述中正确的是 _。（分数：2.00）A.标准模块中的任何过程都可以在整个工程范围内被调用B.在一个窗体模块中可以调用在其他窗体中被定义为 Public 的通用过程 C.如果工程中包含 Sub Main 过程，则程序将首先执行该过程D.如果工程中不包含 Sub Main 过程，则程序一定首先执行第一个建立的窗体解析：评析 标准模块中可以包含私有和公共过程，私有过程只能在标准模块中被调用，而不能被其他模块调用，所以 A 是错的；工程的启动对象(Form 或 Sub Main)决定了工程中首先被执行的部分，所以 C和 D 都是错的。24.在窗体上画一个名称为 Text1 的文本框，一个名称为 C
46、ommand1 的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click()n=Val(Text1.Text)If n/2=n/2 Thenf=f1(n)Elsef=f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(By Val x)x=x*xf2=x+x+xEnd Function程序运行后，单击命令按钮，在窗体上显示的是 _。（分数：2.00）A.72 36 B.108 36C.72 6D.108 6解析：评
47、析 在本题中，文本框中输入的是 6，也就是 n=6，n/2=n/2 条件成立，所以执行 f=f1(n)语句，调用 f1 过程，得到 x=x*x=6*6=36，f1=36+36=72。由于函数 f1 中，参数是按地址传递的，故参数的值会返回，所以 n 的值为 36。25.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim arr(5)As StringFor i=1 To 5art(i)=Chr(Asc(“A“)+(i-1)Next iFor Each b1 In arrPrint b1；NextEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为 _。（分数：2.00）A.ABCDE B.abcdeC.出错信息D.1 2 34 5解析：评析 语句 Chr(Asc(“A“)+(i-1)的作用是将字符 A 的 ASCII 码值加上循环变量的值减 1，求出此ASCII 码对应的字符。将计算出的字符赋值给数组 arr 的第 i 个元素。循环结束后，arr 的 5 个元素分别为字符 A、B、 C、D、E。Print 方法输出项的最后用分号结束，使得输出不换行。26.在窗体上画一个名称为 List1
