[计算机类试卷]国家二级（VB）机试模拟试卷84及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 84及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）栈是一种先进先出的线性表 （ B）队列是一种后进先出的线性表 （ C）栈与队列都是非线性结构 （ D）以上三种说法都不对 2 下列叙述中正确的是 ( )。 （ A）线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的 （ B）线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构 （ C）线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构 （ D）线性表的链式存储结构与顺序存储结构 在存储空间的需求上没有可比性 3 某二叉树共有 7个结点，其中叶子结点只有 1个，则该二叉树

2、的深度为 (假设根结点在第 1层 )( )。 （ A） 3 （ B） 4 （ C） 6 （ D） 7 4 软件按功能可以分为应用软件、系统软件和支撑软件 (或工具软件 )。下面属于应用软件的是 ( )。 （ A）学生成绩管理系统 （ B） C语言编译程序 （ C） UNIX 操作系统 （ D）数据库管理系统 5 某系统总体结构图如下图所示： 该系统总体结构图的深度是 ( )。 （ A） 7 （ B） 6 （ C） 3 （ D） 2 6 程序调试的任务是 ( )。 （ A）设计测试用例 （ B）验证程序的正确性 （ C）发现程序中的错误 （ D）诊断和改正程序中的错误 7 下面描述中，不属于软件

3、危机表现的是 ( )。 （ A）软件过程不规范 （ B）软件开发生产率低 （ C）软件质量难以控制 （ D）软件成本不断提高 8 下面不属于需求分析阶段任务的是 ( )。 （ A）确定软件系统的功能需求 （ B）确定软件系统的性能需求 （ C）需求规格说明书评审 （ D）制定软件集成测试计划 9 数据库设计中反映用户对数据要求的模式是 ( )。 （ A）内模式 （ B）概念模式 （ C）外模式 （ D）设计模式 10 有三个关系 R、 S和 T如下： 则由关系R和 S得到关系 T的操作是 ( )。 （ A）自然连接 （ B）差 （ C）交 （ D）并 11 VB中有这样一类文件：该文件不属于任

4、何一个窗体，而且仅包含程序代码，这类文件的扩展名是 ( )。 （ A） .vbp （ B） .bas （ C） .vbw （ D） .frm 12 能够产生 1到 50之间 (含 1和 50)随机整数的表达式是 ( )。 （ A） Int(Rnd*51) （ B） Int(Rnd(50) 1) （ C） Int(Rnd*50) （ D） Int(Rnd*50 1) 13 如下数据定义语句： Dim X， Y As Integer 以上语句表明 ( )。 （ A） X、 Y均是整型变量 （ B） X是整型变量， Y是变体类型变量 （ C） X是变体类型变量， Y是整型变量 （ D） X是整型变量

5、， Y是字符型变量 14 以下关于控件数组的叙述中，正确的是 ( )。 （ A）数组中各个控件具有相同的名称 （ B）数组中可包含不同类型的控件 （ C）数组中各个控件具有相同的 Index 属性值 （ D）数组元素不同，可以响应的事件也不同 15 以下关于文件的叙述中，错误的是 ( )。 （ A）顺序文件中的记录是一个接一个地顺序存放 （ B）随机文件中记录的长度是随机的 （ C）文件被打开后，自动生成一个文件指针 （ D） EOF函数用来测试是否到达文件尾 16 下面不是键盘事件的是 ( )。 （ A） KeyDown （ B） KeyUp （ C） KeyPress （ D） KeyCo

6、de 17 设 a 10， b 5， c 1，执行语句 Print abc后，窗体上显示的是 ( )。 （ A） True （ B） False （ C） 11 （ D）出错 18 为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为( )。 （ A） Value （ B） ByVal （ C） ByRef （ D） Reference 19 如果在窗体模块中所有程序代码的前面有语句： Dim x ，则 x是 ( )。 （ A）全局变量 （ B）局部变量 （ C）静态变量 （ D）窗体级变量 20 计算下面分段函数的正确语句是 ( )。 （ A） y IIf(x0， x 1， IIf

7、(x0， x 1， x 1) （ C） y IIf(x0， x 1， IIf(xc Then d d x(i) c x(i) Else d d c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ( )。 （ A） 89 （ B） 99 （ C） 23 （ D） 77 39 在窗体上画一个名称为 Command1的命令按钮，并编写如下事件过程： Private Sub Command1_Click() x 1 s 0 For i 1 To 5 x x / i s s x Next Print s End Sub 该事件过程的功能

8、是计算 ( )。 （ A） S 1 2 3 4 5 （ B） （ C） （ D） 40 窗体上有 1个名称为 Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim p As Integer p m(1) m(2) m(3) Print p End Sub Private Function m(n As Integer)As Integer Static s As Integer For i 1 To n s s 1 Next m s End Function 运行程序，第 2次单击命令按钮 Command1时的输出结果为 ( )

9、。 （ A） 6 （ B） 10 （ C） 16 （ D） 28 二、基本操作题 41 (1)在名称为 Form1，标 题为 “图片 ”的窗体上添加 1个名称为 Image1的图像框。其高为 2500，宽为 2000。请通过属性窗口设置适当属性，将考生文件夹下的图片文件 pic1 jpg插入图像框，并使图片自动适应图像框的大小 (如图所示 )。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjl1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 Label1，标题为 “口令 ”的标签；添加一个名称为 Text1的文本框；再添加三个命令按

10、钮，名称分别为 Command1、 Command2、 Command3，标题分别为 “显示口令 ”、 “隐藏口令 ”、 “重新输入 ”。 程序运行时，在 Text1中输入若干字符，单击 “隐藏口令 ”按钮，则只显与与字符同样数量的 “*”(如图 2所示 )；单击 “显示口令 ”按钮，则正常显示输入的字符 (如图 1所示 )，单击 “重新输入 ”按钮，则清除Text1中的内容，并把光标定位到 Text1中。 要求：请按要求添加所有控件，编写命令按钮的 Click事件过程，程序中不得使用变量，在 “显示口令 ”、 “隐藏口令 ”按钮的事件过程中只能写 1条语句。存盘时必须存放在考生文件夹下，工程

11、文件名为为 sjt2 vbp，窗体 文件名为 sjt2 frm。三、简单应用题 42 (1)在考生文件央下有一个工程文件 sjt3 vbp(相应的窗体义件名为 sjt3 frm)，在窗体上添加一个名称为 List1的列表框和一个名称为 Text1的文本框，如图 1所示。编写窗体的 MouseDown事件过程。程序运行后，如果用鼠标单击窗体，则从键盘上输入要添加到列表框中的项目 (内容任意，不少于三个 )；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图 2所示。这个程序不完整，请把它补充完整，并能正确运行。 要求 ：去掉程序中的汴释符，把程序中的 ?改

12、为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。(2)在考牛文件夹下有一个工程文件 sjt4 vbp(相应的窗体文件名为 sjt4 frm)，其功能是通过调用过程 FindMin求数组的最小值。程序运行后，在 4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如图所示 )。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件 名存盘。 四、综合应用题 43 以下数列： 1， 1， 2， 3， 5， 8， 13， 21 的规律是从第 3个数

13、外始，每个数都是其前面两个数之和。在考生文件夹下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击 “计算 ”按钮，则计算出上述数列第 n项的值，并在文本框中显示， n是选中的单选按钮后面的数值 (提示：因计算结果较大，应使用长整型变量 )。 注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击 “计算 ”按钮以获得一个结果；必须使用窗体右一卜角的关闭按钮结束程序，否则无成绩。最后把修改后的文什按原文件名存盘。国家二级（ VB）机试模拟试卷 84答案与解析 一、选择题 1

14、【正确答案】 D 【试题解析】 栈是一种先进后出的线性表，队列是一种先进先出的线性表，栈与队列都是线性结构。 2 【正确答案】 B 【试题解析】 线性链式存储结构中每个结点都由数据域与指针域两部分组成，增加了存储空间，所以一般要多于顺序存储结构。 3 【正确答案】 D 【试题解析】 根据二叉树的基本性质 3：在任意一棵二叉树中，度为 0的叶子节点总比度为 2的节点多一个，所以本题中度为 2的节点为 1 1 0个，所以可以知道本题目中的二叉树的每一个节点都有一个分支，所以共 7个节点共 7层，即深度为 7。 4 【正确答案】 A 【试题解析】 软件按功能可以分为：应用软件、系统软件、支撑软件。操

15、作系统、编译程序、汇编程序、网络软件、数据库管理系统都属于系统软件。所以B、 C、 D都是系统软件，只有 A是应用软件。 5 【正确答案】 C 【试题解析】 根据总体结构图可以看出该树的深度为 3，比如： XY系统 -功能2-功能 2.1，就是最深的度数的一个表现。 6 【正确答案】 D 【试题解析】 程序调试的任务是诊断和改正程序中的错误。 7 【正确答案】 A 【试题解析】 软件危机主要表现在：软件需求的增长得不到满足；软件开发成本和进度无法控制；软件质量难以保证；软件不可维护或维护程度非常低；软件的成本不断提高；软件开发生产率的提高赶不上硬件的发展和应用需求的增长。所以选择 A。 8 【

16、正确答案】 D 【试题解析】 需求分析阶段的工作有：需求获取；需求分析；编写需求规格说明书；需求评审，所以选择 D。 9 【正确答案】 C 【试题解析】 数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述，所以选择 C。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法。 10 【正确答案】 B 【试题解析】 关系 T中的元组是 R关系中有而 S 关系中没有的元组的集合，所以 进行的是差的运算。 11 【正确答案】 B 【试题解析】 .vbp

17、工程文件，包含与管理工程有关的所有的文件和对象清单。 .bas标准模块文件，包含公用的一些变量和过程等代码。 .vbw 工作区文件，包含了该工程中各窗体 (指开发区窗体，如代码窗、设计窗 )的位置。 .frm窗体文件，包含了窗体及窗体中包含的各控件的代码、属性等信息。 故选项 B 正确。 12 【正确答案】 D 【试题解析】 Rnd 函数产生 0 1之间的随机数，不包括 0和 1。要产生 150(包含 1和 50)之间的随机整数，可以先产生 0 50之间的随机整数，然后再这个基础上加 1。故 D选项正确。 13 【正确答案】 C 【试题解析】 用 Dim可同时定义多个变量，但变量要分别声明其数

18、据类型，如果不声明数据类型，默认是 Variant变体型变量。 本题中，变量 X定义时没声明数据类型，所以为 Variant型变量，变量 Y是整型变量。故 C选项正确。 14 【正确答案】 A 【试题解析】 控件数组中各控件具有相同的名称，而且类型是相同的，但 Index属性值不同。数组中各控件响应的事件是相同，用 Index属性值来区分每个控件。故 A选项正确， B、 C、 D选项错误。 15 【正确答案】 B 【试题解析】 随机文件中记录的长度是固定的、相等的，不是随机的。故选项 B错误。 16 【正确答案】 D 【试题解析】 KeyCode是 KeyDown、 KeyUp 键盘事件的参数

19、，不是键盘事件，它返回的是按键相应的 ASCII字符代码。故选项 D错误。 17 【正确答案】 B 【试题解析】 本题中 Print语句中的表达式只有 “运算符，相同优先级，左结合。先计算 ab，即 105，值为 True， (即 1)，再计算 11，结果为 False。故B 选项正确。 18 【正确答案】 B 【试题解析】 Value是控件的属性名。用 ByVal关键字声明形参表示该参数按值传递。 ByRef 是默认的参数类型，表示该参数按地址传递。没有 Reference关键字。故 B 选项正确。 19 【正确答案】 D 【试题解析】 在窗体所有代码前定义的变量是窗体级变量，在整个窗体模块

20、的过程中都能引用。 20 【正确答案】 A 【试题解析】 IIF是条件函数，它的语法格式是： IIf(， ， ) B 选项中，内层的 IIF函数中，当 x0时， x 1，否则 x 1，所以应该是IIf(x0， x 1， x 1)。 C选项中，内层的 IIf 函数中，当 x0时， x 1，否则 0，所以应该是 IIf(x0，x 1,0)。 D选项中 IIf 函数中有 4个参数不对，应该有 3个参数。故 B、 C、 D选项均错误， A选项正确。 21 【正确答案】 B 【试题解析】 当 Frame1的 Enabled 属性设为 False后，框架 Frame1变为不可用，它里面放的两个单项按钮也就

21、变为不可用，故 A选项错误； 当 Op1.Value为 False时， “单程 “和 “往返 “单项按钮都处于未选中状态，故 C选项错误； Op1.Value的值为 0，即为 False，语句正确，没有程序错误，故 D选项说法错误； 根据图可只， “单程 “单选按钮处于选中状态， Op1.Value的值为 True，故 B选项正确。 22 【正确答案】 A 【试题解析】 GotFocus 和 LostFocus 是控件获得焦点和失去焦点时触发的两个事件； TabStop 是控件的属性； SetFocus 方法是控件设置、获得焦点的方法。故选 A。 23 【正确答案】 D 【试题解析】 Font

22、Italic用来设置文字是否为斜体， FontUnderLine 用来设置文字是否加下划线， FontSize用来设置文字的字号， FontBold 用来设置文字是否为粗体。 24 【正确答案】 C 【试题解析】 改变滚动框的位置后会触发 Change事件，拖动滚动框、单击滚动箭头、单击滚动箭头与滚动框之间的滚动条都会改变滚动框的位置。 25 【正确答案】 A 【试题解析】 每个对象都有 Name属性，用于识别不同的对象。故选 A。 26 【正确答案】 C 【试题解析】 LargeChange属性值是单击滚动块和左右两端箭头之间空白的地方时， Value增加或减少的量， Small 属性值才是

23、滚动条的最大值。故 C选项错误。 27 【正确答案】 A 【试题解析】 命令按钮的 Enabled属性是设置可用不可用，故 A选项正确。 Visible属性是设置可见不可见； Cancel属性值为 True时，表示按 Esc键和单击该命令按钮一样都会触发该命令按钮的单击事件，反之， Esc键不起作用； Default属性值为 True时，表示按回车键和单击该命令按钮一样都会触发该命令按钮的单击事件，反之，回车键不起作用。 28 【正确答案】 D 【试题解析】 用鼠标拖动滚动条中的滚动块，说明在滚动条上有拖动、滚动的动作，所以触发滚动条的 Scroll 事件，故选 D。 29 【正确答案】 C

24、【试题解析】 框架是一个容器控件，用于将屏幕上的对象分组。框架常用的事件是 Click和 DblClick，它不接受用户输入，不能显示文本和图形，也不能与图形相连。 30 【正确答 案】 B 【试题解析】 程序对数组元素赋初值为 1、 2、 3、 4、 5。 Ubound函数返回数组可用的最大下标，过程 prog的功能是遍历数组对数组中的元素进行排序，由条件a(j)a(j 1)可知程序是将数组按从大到小排序。当用数组作为过程的参数时，使用的是 “传地址 “方式，因此程序输出的是排序后的数组元素值，即 5、 4、 3、 2、1。 31 【正确答案】 B 【试题解析】 VB 中 “/“是浮点除法运

25、算符， “是整数除法运算符，程序中的条件表达式 a(i， j)/ 7 a(i， j)成立时说明这个数能够 被 7整除，程序即是统计这个二维数组中能被 7整除的数的个数。数组元素值在 i 1时为 (3,4,5,6)， i 2时为(5,6,7,8)， i 3时为 (7,8,9,10)， i 4时为 (9,10,11,12)， i 5时为 (11,12,13,14)，其中能够被 7整除的数有 7、 7、 14共 3个。因此答案为 B。 32 【正确答案】 B 【试题解析】 程序没有错误。数组变量定义时可以不用声明上下界。 List控件列表项的索引从 0开始。 Array函数只适用于一组数组，只能对一

26、维数组进行初始化，不能对二维数组或多维数组进行初 始化。因此叙述正确的是 B 选项。 33 【正确答案】 D 【试题解析】 程序运行，窗体加载时设置 Label1 显示为 ABCD， Label2 显示为10。单击命令按钮，执行按钮的单击事件过程，过程中 Val函数将 Label2 的标题字符串转换为数值赋给变量 a，此时 a的值为 10，然后调用 func过程传入 Label1为参数， func过程中设置 Label1 的标题为 “1234“，回到按钮单击事件过程，设置Label2 的标题为变量 a的值，即 10。因此两个标签中显示的内容分别为 1234和10。 34 【正确答案】 B 【试

27、题解析】 本题是过程的嵌套调用，过程嵌套调用时要先计算最内层的过程，然后由里向外执行。因此 Fun1(Fun1(x， (Fun1(x， x 1)， x 1)执行过程如下： 先执行 Fun1(x， x 1)，由于形参 a是按值传递，因此不会影响 x的值， x10，即 Fun1(10,9)。 t 1， b 1 10 11，则函数返回值为 1 11 12。 再执行 Fun1(x， (Fun1(x， x 1)，由于内层过程返回 12，因此又可写成Fun1(x， (12)，由于 x仍为原值，因此过程即 Fun1(10,12)。 t 2， b 2 10 8，则函数返回值为 2 8 6。 最后执行 Fun1

28、(Fun1(x， (Fun1(x， x 1)， x 1)，即 Fun1(6， x 1)，由于 x仍为原值，因此过程即为 Fun1(6,9)。 t 3， b 3 6 3，则函数返回值为 3 3 0。 35 【正确答案】 B 【试题解析】 在计时器事件中不应再设置步长为 100的 For循环，应该把 For循环去掉，只留下循环体的语句，计时器每秒激发一次，每次判断小球是否移到Line2处，不到就改变自己的 Left值即继续移动。因此 B 正确。 36 【正确答案】 A 【试题解析】 错误原因：每一次删除列表框满足项，列表框的项目数目就会相应地减少，所以就出现了漏删内容，如果把循环变量 k改成从 L

29、ist1.ListCout 1到0，从最后一个项目往第一个项目查找，满足条件就删除该项目，从而不会出现遗漏现象，所以正确答案为 A。 37 【正确答案】 D 【试题解析】 程序中通过 For循环为数组中部分元素赋值，没有赋值的元素值将默认为 0。循环中 i 2， j 3时， array1(i， j) i j，即 array1(2,3) 5， i 3， j 4时， array1(3,4) 3 4，即 array1(3,4) 7。 5 7 12，因此程序文本框中显示值是 12。 38 【正确答案】 C 【试题解析】 程序中 Option Base 1语句指定数组下标下限从 1开始。程序通过赋初值定

30、义变量 x为含有 5个元素的数组，元素值依次为 10， 12， 21， 32， 24。 For循环的功能是把这 5个元素中大于 10 且大于前一个元素的值累加到变量d 中，如果小于等于 10 或前一个元素则从变量 d 减去 10或前一个元素的值。因此d 0 10 12 21 32 32 23。 39 【正确答案】 C 【试题解析】 程序中 5次循环 x的值分别为 1/1,1/1/2=1/(1*2)，1/1/2/3=1/(1*2*3)， 1/1/2/3/4=1/(1*2*3*4)， 1/1/2/3/4/5=1/(1*2*3*4*5)，可以看出 x值就是 1/i!，因此过程的功能就是计算 1+1/

31、2!+1/3!+1/4!+1/5!。因此选项 C正确。 40 【正确答案】 D 【试题解析】 在过程 m中 s被定义为静态变量，因此它的值只在第一次调用过程时初始化，以后再调用都不再初始 化，而是保留之前的值。 m过程的功能是根据参数值累加，因此第 1次单击时， m(1) m(2) m(3) 1 3 6 10，此时变量s的值，即过程 m的值为 6，第 2次单击时， m(1) m(2) m(3) 7 9 12 28。因此答案为 D。 二、基本操作题 41 【正确答案】 步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如表 3 33所示。 步骤2：调试并运行程序，关闭程序后按题目要求存盘

32、。 (2)步骤 1：新建一个窗体，按照题目要求建立标控件，程序中用到的控件及属性见表 3 34和表 3 35。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Commandl C1ick() Text1 PasswordChar “当 PasswordChar属性设置为空时。 Text1文本框显示内容 End Sub Private Sub Command2 Click() Textl PasswordChar=“*“当Password Char属性设置为 *时，用 *代替 Text1文本框中的字符显示 End Sub Private Su

33、b Command3 C1ick() Textl=“清空文本框 Text1 SetFocus。 Text1获得焦点 End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)图像框 (Image)的 Picture属性用于在设计阶段设置图像框中显示的图片，它的 Stretch(自动伸缩 )属性返回设置一个值，决定是否调褴图形的大小以适应图像框控件。 图像框的宽和高分别南其 Width屙 f生和 Height屙 f 生设置。 (2)PasswordChar 属性用来设置是否在控件中显示用户输入的字符。如果该 属性设置为某一字符，那么无论 Text属性值是什么，在文

34、本框中都只显示该字符。另外， MuhiLine属性必须设置为 False。运用 SetFocus 方法使文本框获得焦点。 三、简单应用题 42 【正确答案】 步骤 1：打开奉题工程文件，按表 3 18所列在窗体画出控件并设置其属性。 步骤2：打开代码编辑窗几，去掉程序中的注释符 “-”，将问号改为止确的内容。 Private Sub Form MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button=1 Then Textl Text=InputBox(“晰入要 -添加的项目 “) Li

35、st1 AddItemText1.Text将 Text1中的内容加入列表 End If If Button=2 Then Textl Text=InputBox(“请愉入安删除的项目 “) 列表总数用 ListCount求得 For i 0 To List1.ListCount-1 判断列表项是否为要删除的项 If Listl List(i)=Text1.TextThen 删除 i所时 应的项 Listl RemoveItem i End If Next i End If End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：打开本题工程文件。 步骤 2

36、：打开代码编辑窗口，去掉程序中的汴释符 “， ”，将问号改为正确的内容。 Option Base 1 Private Function FindMin(a()As Integer) Dim Start As Integer Dim Finish As Integer， i As Integer Start=LBound(a)隶数组下界值 Finish=UBound(a)求数组上界值 Min=a(Start)将第一个数赋给最小值进行比较 For i=Start To Finish循环判断找 -最小值 If a(i) Min Then Min=a(i) Next i FindMin=Min End

37、 Function Private Sub Commandl_Click() Dim arr1 Dim arr2(4)As Integer arrl=Array(Val(Text1 Text)，Val(Text2 Text)， Val(Text3 Text)， Val(Text4 Text)中请 arrl数组并初始化 For i=1 To 4 arr2(i)=CInt(arr1 i)CInt函数将 arrl中的数值转换为整型 Next i M=FindMin(arr2) Print“最小值是： “， M End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)

38、当在窗体上按下鼠标键时将触发其 Mouse-Down 事件，该事件过程的参数 Button 值为 1时表示当前按下的是鼠标左键：当 Button 值为 2时表爪当前按下的是鼠标右键。向列表框添加项目使用 Addltem方法，删除列表项使用Removehem方法。当执行删除操作时，本题在 For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。 程序中用到了 InputBox()函数，其格式为： InputBox(prompt， title， default， xpos， ypos， helpfile， context) 其中常用参数为 prompt和 title。 pr

39、ompt 是一个字符串，其长度不得超过 1024个字符，它是在对话框内显示的信息，用来提示用户输入。 title：是一个字符串，它是对话框的标题，显示在对话框顶部的标题区。 (2)文本框罩的内容 (包括数字 )默认都是当做字符串来处理的，如果需要参与数据运算，则需先用 Val()函数将其转化为数字 (例如 Val(Text1 Text)。 CInt函数将数值转换为整型。 这里需要指出的是，利用 Array对数组各元素赋值，声明数组的类犁只能是Variant。 在本题的 FindMin过程中，用变量 Min记录最小值，最初把数组的第一 个元素的值赋给 Min，然后通过 For循环语句将其后的元素

40、依次与之比较，如果小于Min 的值则与之交换，依次类推，最终 Min的值就是数组各元素中的最小值。 在窗体上打印信息可以通过 Print方法来实现，其形式为： 对象 Print要显示的内容 四、综合应用题 43 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 PriVate Sub Command1_Click() Dim a()As Long Dim i As Integer Dim n As Integer Opl Count是单选按钮数目，这里用的是控件数组 For i=0 To Op1 Count 1 判断哪一项被选择，把它后面的数值赋

41、给 n，确定 n值 If Op1(i) Value True Then n Val(Opl(i) Caption) Exi t For End If Next ReDim a(n)重新申请空间，这里是动态申请 a(1) =1 a(2)=1数列第一项、第二项值确定 For i 3 To n a(i) a(i 1) a(i 2)后一项值是前两项值之和 Next Text1 Text a(n) End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 单选按钮数组常用于提供唯一选择， VHue属性值决定每个单选按钮的选中状态： FHse为未选中， True为选中， Caption属性用于设置单选按钮的标题。本题在 For循环语句 (循环变量 k的初值为 0，终值应为 3)中 逐一检查每个单选按钮是否被选中，用变量 n 记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择，使单选按钮数组中的卜一个按钮被选中。如果当前已经选中最后一个单选按钮，则将 n 赋值为 0，最新从单选按钮数组的第一个元素开始。