1、国家二级（ VB）机试模拟试卷 85及答案与解析 一、选择题 1 下列链表中，其逻辑结构属于非线性结构的是 （ A）二叉链表 （ B）循环链表 （ C）双向链表 （ D）带链的栈 2 设循环队列的存储空间为 Q(1: 35)，初始状态为 front=rear=35。现经过一系列入队与退队运算后， front=15， rear=15，则循环队列中的元素个数为 （ A） 15 （ B） 16 （ C） 20 （ D） 0或 35 3 下列关于栈的叙述中，正确的是 （ A）栈底元素一定是最后入栈的元素 （ B）栈顶元素一 定是最先入栈的元素 （ C）栈操作遵循先进后出的原则 （ D）以上说法均错误
2、4 在关系数据库中，用来表示实体间联系的是 （ A）属性 （ B）二维表 （ C）网状结构 （ D）树状结构 5 公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员。则实体部门和职员间的联系是 （ A） 1： 1联系 （ B） m： 1联系 （ C） 1： m联系 （ D） m： n联系 6 有两个关系 R和 S如下： 则由关系 R得到关系 S的操作是 （ A）选择 （ B）投影 （ C）自然连接 （ D）并 7 数据字典（ DD) 所定义的对象都包含于 （ A）数据流图（ DFD图 ) （ B）程序流程图 （ C）软件结构图 （ D）方框图 8 软件需求规格说明书的
3、作用不包括 （ A）软件验收的依据 （ B）用户与开发人员对软件要做什么的共同理解 （ C）软件设计的依据 （ D）软件可行性研究的依据 9 下面属于黑盒测试方法的是 （ A）语句覆盖 （ B）逻辑覆盖 （ C）边界值分析 （ D）路径覆盖 10 下面不属于软件设计阶段任务的是 （ A）软件总体设计 （ B）算法设计 （ C）制定软件确认测试计划 （ D）数据库设计 11 Visual Basic集成环境由若干窗口组成，其中不能隐藏 (关闭 )的窗口是 ( )。 （ A）主窗口 （ B）属性窗口 （ C）立即窗口 （ D）窗体窗口 12 为了声明一个长度为 128个字符的定长字符串变量 Str
4、D，以下语句中正确的是( )。 （ A） Dim StrD As String （ B） Dim StrD As String(128) （ C） Dim StrD As String128 （ D） Dim StrD As String*128 13 已知： x 6y 39则表达式 “yx * Sgn(x)“的值为 ( )。 （ A） 6.5 （ B） 6 （ C） 6 （ D） 6.5 14 在 Visual Basic中，所有标准控件都具有的属性是 ( )。 （ A） Caption （ B） Name （ C） Text （ D） Value 15 以下关于 VB文件的叙述中，正确的是
5、 ( )。 （ A）标准模块文件的扩展名是 .frm （ B） VB应用程序可以被编译为 .exe文件 （ C）一个工程文件只能含有一个标准模块文件 （ D）类模块文件的扩展名为 .bas 16 以下自定义数据类型的语句中，正确的是 ( )。 （ A） Type student ID As String * 20 name As String * 10 age As Integer End student （ B） Type student ID As String * 20 name As String * 10 age As Integer End Type （ C） Type stude
6、nt ID As String name As String age As Integer End student （ D） Type ID As String * 20 name As String * 10 age As Integer End Type student 17 在某个事件过程中定义的变量是 ( )。 （ A）局部变量 （ B）窗体级变量 （ C）全局变量 （ D）模块变量 18 以下过程定义中正确的过程首行是 ( )。 （ A） Private Sub Proc(Optional a as Integer， b as Integer) （ B） Private Sub Pr
7、oc(a as Integer)as Integer （ C） Private Sub Proc(a()As Integer) （ D） Private Sub Proc(ByVal a()As Integer) 19 在窗体上画一个通用对话框，程序运行中用 ShowOpen方法显示 “打开 “对话框时，希望在该对话框的 “文件类型 “栏中只显示扩展名为 DOC的文件，则在设计阶段应把通用对话框的 Filter属性设置为 ( )。 （ A） (*.DOC*. DOC （ B） (*. DOC|(.DOC （ C） (*. DOC|*. DOC （ D） (*.DOC|*. DOC 20 以下叙
8、述中错误的是 ( )。 （ A） Print #语句和 Write #语句都可以向文件中写入数据 （ B）用 Print #语句和 Write #语句所建立的顺序文件格式总是一样的 （ C）如果用 Print #语句把数据输出到文件，则各数据项之间没有逗号分隔，字符串也不加双引号 （ D）如果用 Write #语句把数据输出到文件，则各数据项之间自动插入逗号，并且把字符串加上双引号 21 为了使标签控件在显示 其内容时不覆盖其背景内容，需进行设置的属性为( )。 （ A） BackColor （ B） BorderStyle （ C） ForeColor （ D） BackStyle 22 V
9、isual Basic控件一般都规定一个默认属性，在引用这样的属性时，只写对象名而不必给出属性名。默认属性为 Caption的控件是 ( )。 （ A）列表框 (ListBox) （ B）标签 (Label) （ C）文本框 (TextBox) （ D）组合框 (ComboBox) 23 窗体上有一个名称为 VScroll1的垂直滚动 条，要求程序运行时，滚动块的初始位置在最下端，应该使 VScroll1.Value的值等于 ( )。 （ A） VScroll1.LargeChange （ B） VScroll1.SmallChange （ C） VScroll1.Max （ D） VScro
10、ll1.Min 24 设窗体名称为 frm1。以下叙述中正确的是 ( )。 （ A）运行程序时，能够加载窗体的事件过程是 frm1_Load （ B）运行程序时，能够加载窗体的事件过程是 Form1_Load （ C）程序运行中用语句： frm1.Name “New“ 可以更改窗体名称 （ D）程序运行中用语句： frm1.Caption “新标题 “ 可以改变窗体的标题 25 设在窗体上有一个名称为 Check1的复选框数组，并有以下事件过程： Private Sub Check1_Click(Index As Integer) End Sub 则下面叙述中错误的是 ( )。 （ A）单击数
11、组中任何复选框都会调用此事件过程 （ B）参数 Index的值等于单击数组中某个复选框的 Index属性的值 （ C）上面的过程是数组中第 1个复选框的事件过程 （ D）从 过程的首部 (即第 1行 )无法确定数组中复选框的个数 26 下面列表框属性中，是数组的是 ( )。 （ A） ListCount （ B） Selected （ C） ListIndex （ D） MultiSelect 27 如果改变驱动器列表框的 Drive属性，则将触发的事件是 ( )。 （ A） Change （ B） Scroll （ C） KeyDown （ D） KeyUp 28 为了调整图像框的大小以与其
12、中的图形相适应，必须把它的 Stretch属性设置为( )。 （ A） True （ B） False （ C） 1 （ D） 2 29 窗体上已有的 3个单选按钮组成了 1个名为 ChkOpt1的控件数组。用于区分控件数组 ChkOpt1中每个元素的属性是 ( )。 （ A） Caption （ B） ListCount （ C） ListIndex （ D） Index 30 在窗体上画一个名称为 Command1的命令按钮 ，并编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(4， 4) For i 1 To 4 For j
13、 1 To 4 a(i， j) (i 1)* 3 j Next j Next i For i 3 To 4 For j 3 To 4 Print a(j， i)； Next j Print Next i End Sub 运行程序，单击命令按钮，则输出结果为 ( )。 （ A） 6 9 7 10 （ B） 7 10 8 11 （ C） 8 11 9 12 （ D） 9 12 10 13 31 以下程序的功能是随机产生 10个两位的整数： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim i As Integer
14、Randomize For i 1 To 10 a(i) Int(Rnd * 100) 1 Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是 ( )。 （ A） a(i) Int(Rnd * 100) （ B） a(i) Int(Rnd * 90) 10 （ C） a(i) Int(Rnd * 100) 10 （ D） a(i) Int(Rnd * 101) 32 在窗体上画一个名称为 Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() n 0 For i 0 T
15、o 10 X 2 * i 1 If X Mod 3 0 Then n n 1 Next i Print n End Sub 运行程序，单击命令按钮，则窗体上显示的是 ( )。 （ A） 1 （ B） 3 （ C） 5 （ D） 7 33 设窗体上有 2个文本框 Text1和 Text2，并有下面的事件过程： Dim n Private Sub Text1_KeyPress(KeyAscii As Integer) If “A“ y x x y Loop fun x End Function 程序运行时的输出结果是 ( )。 （ A） 4 0 1 0 3 0 0 4 0 （ B） 0 3 3 5
16、 1 3 5 1 2 （ C） 9 5 3 5 7 2 4 7 2 （ D） 9 3 3 5 7 3 5 7 2 35 在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Show Text1.Text “ Text1.SetFocus End Sub Private Sub Form_Click() Dim a As String， s As String a Text1.Text s “ For k 1 To Len(a) s UCase(Mid(a， k， 1) s Next k Text1.Text s End Sub 程序运行
17、后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容( )。 （ A）与原字符串相同 （ B）与原字符串中字符顺序相同，但所有字母均转换为大写 （ C）为原字符 串的逆序字符串，且所有字母转换为大写 （ D）为原字符串的逆序字符串 36 有以下通用过程： Function fun(N As Integer) s 0 For k 1 To N s s k *(k 1) Next k fun s End Function 该过程的功能是 ( )。 （ A）计算 N！ （ B）计算 1 2 3 . N （ C）计算 12233. NN （ D）计算 12 23 34 . N(N 1) 37
18、编写如下程序： Private Sub Command1_Click() Dim a(3， 3)As Integer Dim s As Integer For i 1 To 3 For j 1 To 3 a(i， j) i * j i Next j Next i s 0 For i 1 To 3 s s a(i， 4 i) Next i Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 7 （ B） 13 （ C） 16 （ D） 20 38 编写如下程序： Option Base 1 Private Sub Command1_Clic
19、k() Dim a a Array(1， 2， 3， 4) s 0： j 1 For i 4 To 1 Step 1 s s a(i)* j j j * 10 Next i Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 110 （ B） 123 （ C） 1234 （ D） 4321 39 以下过程的功能是从数组中寻找最大值： Private Sub FindMax(a()As Integer， ByRef Max As Integer) Dim s As Integer， f As Integer Dim i As Integer
20、 s LBound(a) f UBound(a) Max a(s) For i s To f If a(i)Max Then Max a(i) Next End Sub 以下关于上述过程的叙述中，错误的是 ( )。 （ A）语句 Call FindMax(a， m)可以调用该过程，其中的 a是数组， m是 Integer类型变量 （ B） For循环次数等于 a数组的元素数 （ C）过程末尾应该增加一条返回最大值的语句 FindMax Max （ D）参数 Max用于存放找到的最大值 40 有如下程序： Private Sub Command1_Click() Dim i As Integer
21、， j As Integer Dim sum As Integer n 1 Do j 1 Do sum sum j j j 1 Print j； Loop Until j3 n n 2 Loop Until n10 Print sum End Sub 运行上述程序，外层 Do循环执行的次数为 ( )。 （ A） 4 （ B） 5 （ C） 7 （ D） 10 二、基本操作题 41 (1)在名称为 Form1的窗体上画两个标签 (名称分别为 Label1和 Label2，标题分别为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 Text1和 Text2，初始内容均为空 )和一个命令 按钮
22、 (名称为 Command1，标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击 “显示 ”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sit1 frm。(2)在名称为Form1的窗体上画一个图片框，其名称为 Picture1，一个水平滚动条，名称为HScroll1，一个命令按钮，名称为 Command1，标题为 “设置属性 ”，通过属 性窗口在图片框中装入一个图形 (文件名为 pic1 jpg，位丁考生
23、目录下 )，图片框的高度与图形的高度相同，图片框的宽度任意 (如图 1所示 )。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的属性如下： Min 100 Max 1500 LargeChange 100 SmallChange 10 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图 2所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。三、简单应用题 42 (1)在考牛文件夹下有一个工程文件 sjt3 vbp，窗体上已经有一个标签 Label1，请添加一个单选按钮
24、数组，名称为 Op1，含三个单选按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “飞机 ”、 “火车 ”、 “汽车 ”，再添加一个名称为 Text1的文本框。窗体文件中已经给出了 Opl的 Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容，使得在程序运行时单击 “飞机 ”或 “火车 ”单选按钮时，在 Text1中显示 “我坐飞机去 ”或 “我坐火车去 ”，单击 “汽 车 ”单选按钮时，在 Text1中显示 “我开汽车去 ”，如图所示。注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 Bjt4
25、 vbp，Form1窗体中有一个文本框，名称为 Textl；请先在窗体上添加两个框架控件，名称分别为 F1、 F2，标题分别为 “性别 ”、 “身份 ”；然后在 F1中添加两个单选按钮控件 Op1、 Op2，标题分别为 “男 ”、 “女 ”；其次在 F2中添加两个单选按钮控件 Op3、Op4，标题分别为 “学生 ”、 “教师 ”；最后再添加一个命令按钮，名称为 C1，标题为“确 定 ”，如图所示。请编写适当的事件过程，使得运行时，在 F1、 f2中各选一个单选按钮，然后单击 “确定 ”按钮，就可以按照下表把结果显示在文本框中。最后把修改后的文件以原来的文件名存盘。 注意：考生不得修改窗体文件中
26、已经存在的程序和Texti的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 四、综合应用题 43 在考生文件央下有一个工程文件 sjt5 vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是： a2 b2 c2。例如 ， 3、 4、 5就是一个满足条件的整数组合 (注意： a b， c分别为 4， 3， 5与分别为 3， 4， 5被视为同一个组合，不应该重复计算 )。编写程序，统计均在 60以内的三个数满足上述关系的整数组合的个数，并显示在标签 Label1中。 注意：不得修改原有程序的控件属性。在结束程序运
27、行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级（ VB）机试模拟试卷 85答案与解析 一、选择题 1 【正确答案】 A 【试题解析】 在定义的链表中，若只含有一个指针 域来存放下一个元素地址，称这样的链表为单链表或线性链表。带链的栈可以用来收集计算机存储空间中所有空闲的存储结点，是线性表。在单链表中的结点中增加一个指针域指向它的直接前件，这样的链表，就称为双向链表（一个结点中含有两个指针），也是线性链表。循环链表具有单链表的特征，但又不需要增加额外的存贮空间，仅对表的链接方式稍做改变，使得对表的处理更加方便灵活，属于线性链表
28、。二叉链表是二叉树的物理实现，是一种存储结构，不属于线性结构。答案为 A选项。 2 【正确答案】 D 【试题解析】 在循环队列中，用队尾指针 rear指向队列中的队尾元素，用排头指针 front指向排头元素的前一个位置。在循环队列中进行出队、入队操作时，头尾指针仍要加，朝前移动。只不过当头尾指针指向向量上界时，其加操作的结果是指向向量的下界。由于入队时尾指针向前追赶头指针，出队时头指针向前追赶尾指针，故队空和队满时，头尾指针均相等。答案为 D选项。 3 【正确答案】 C 【试题解析】 栈顶元素总是后被插入的元素，从而也是最先被删除的元素；栈底元素总是最先被插入的元素，从而也是最后才能被删除的元
29、 素。栈的修改是按后进先出的原则进行的。因此，栈称为先进后出表，或 “后进先出 “表，所以选择C。 4 【正确答案】 B 【试题解析】 关系模型实体间的联系采用二维表来表示，简称表。选项 C为网状模型实体间的联系，选项 D为层次模型实体间的联系，选项 A属性刻画了实体 5 【正确答案】 C 【试题解析】 两个实体集间的联系实际上是实体集间的函数关系，主要有一对一联系（ 1:1）、一对多联系（ 1:m）、多对一联系（ m:1）、多对多联系（ m:n）。对于每一个实体部门，都有多名职员，则其对应的联系为一对多联 系（ 1:m），答案选 C。 6 【正确答案】 A 【试题解析】 由关系 R到关系 S
30、为一元运算，排除 C和 D。关系 S是关系 R的一部分，是通过选择之后的结果，因此选 A。 7 【正确答案】 A 【试题解析】 在数据流图中，对所有元素都进行了命名，所有名字的定义集中起来就构成了数据字典。因此选 A，而 B， C， D都不符合。 8 【正确答案】 D 【试题解析】 软件需求规格说明书是需求分析阶段的最后成果，是软件开发的重要文档之一。 软件需求规格说明书有以下几个方面的作用。 便于用户、开发人 员进行理解和交流， B正确； 反映出用户问题的结构，可以作为软件开发工作的基础和依据， C正确； 作为确认测试和验收的依据， A正确。 9 【正确答案】 C 【试题解析】 黑盒测试不关
31、心程序内部的逻辑，只是根据程序的功能说明来设计测试用例。在使用黑盒测试法时，手头只需要有程序功能说明就可以了。黑盒测试法分等价类划分法、边界值分析法和错误推测法，答案为 C。而 A、 B、 D均为白盒测试方法。 10 【正确答案】 C 【试题解析】 从技术观点上看，软件设计包括软件结构设计、数据设计、接口设计、过程设计。 所以 A、 B、 D正确， C为软件测试阶段的任务。 11 【正确答案】 A 【试题解析】 属性窗口、立即窗口和窗体窗口都能隐藏，但主窗口不能。故选A。 12 【正确答案】 D 【试题解析】 有定长和不定长的字符串变量。默认情况下，定义的字符串变量属于不定长的，字符串长度可以
32、改变，比如： Dim str As String。如果声明一个定长字符串变量，形如 Dim str As String *字符个数。故 D选项正确。 13 【正确答案】 C 【试题解析】 本题按运算符从高到低优先级计算： *(，所以应该是 396)*Sgn( 6)=39（ 6)*( 1)=(39 6=6 ，故选 C。 14 【正确答案】 B 【试题解析】 VB 标准控件中不同控件具有不同属性，有的相同有的不同，但都具有 Name属性。故选 B。 15 【正确答案】 B 【试题解析】 标准模块文件的扩展名是 .bas，不是 .frm，故 A选项错误。一个工程中可以包含一个或多个标准模块文件，故
33、C选项错误。类模块文件的扩展名为 .cls，不是 .bas。故 D选项错误。 B选项正确。 16 【正确答案】 B 【试 题解析】 自定义数据类型的语法结构是： Type 自定义类型名 (下标 ) As (下标 ) As End Type 其中，成员可以定义为定长的或不定长字符串，也可定义为数组。 本题中， B选项符合语法规则，故 B 选项正确。 17 【正确答案】 A 【试题解析】 在某个事件过程中定义的变量是局部变量；在窗体或标准模块中用Dim或 Private定义的变量是窗体级或模块级变量；在窗体或标准模块中用 Public定义的变量是全局变量。故选 A。 18 【正确答案】 C 【试题
34、解析】 A选项错误原因： Sub 过程的第 1个参数 a用 Optional 关键字声明，说明为可选参数，那么后面的参数 b也必须是可选参数，用 Optional 声明。 B 选项错误原因： Sub 过程无返回值，不用指明返回值数据类型。 D选项错误原因：可以用 ByVal 关键字声明变量，不能声明数组。 C选项正确。 19 【正确答案】 D 【试题解析】 文件对话框中的 Filter属性是用来指定文件列表框中显示的文件类型。属性 Filter称 为过滤器，需要设置多个过滤器时可用 “管道符 |“将各项隔开。管道符前面是说明，后面是类型。本题只显示扩展名为 DOC的文件，所以 Filter属性
35、值设置为 “(*.DOC)|*. DOC“。故选 D。 20 【正确答案】 B 【试题解析】 用 Print #语句和 Write #语句都可以向文件写入数据，但输出到文件的数据的格式不同。故 B 选项错误。 用 Print # 语句写入文本文件的数据，字符串不会自动加上双引号，各数据项之间没有都好分隔，原样输入，方便阅读。适合用 Line Input # 语句读出。 用 Write # 语句写入文本文件的数据，字符串会自动加上 “双引号，并且各数据项中间用，逗号分隔，阅读起来不是很好看。适合用 Input # 语句读出。故 A、C、 D选项正确。 21 【正确答案】 D 【试题解析】 标签控
36、件的 BackStyle属性值为 0时，标签为透明的，不会遮住背景内容， BackStyle属性值为 1时，标签将覆盖背景。 22 【正确答案】 B 【试题解析】 标签主要用来显示文本信息，它所显示的内容只能用 Caption 属性来设置或修改， Caption 为标签控件的默 认属性，引用时可以只写标签控件的对象名。 23 【正确答案】 C 【试题解析】 滚动条的 Value属性表示滚动框在滚动条上的当前位置，默认值为0，即在滚动条的左端或顶端，如果 Value的值等于 Max属性的值时，则滚动框在滚动条的最右端或底端。 24 【正确答案】 D 【试题解析】 一个控件的事件过程由控件的实际名
37、字 (Name属性 )、下划线和事件名称组成，而窗体事件过程由 “Form“、下划线和事件名组成。因此，不管窗体名称是什么，窗体加载事件过程总是 Form_Load。窗体的名称即 Name属性在程序运行时不可以更改，窗体的标题即 Caption属性则可以在程序运行时更改。 25 【正确答案】 C 【试题解析】 控件数组具有相同的名称，它们以 Index属性值作为数组元素的下标，以此来区别控件数组的各个成员。本题中，单击复选框数组中的任何一个都会调用同一个单击事件过程，因此 C选项叙述有误。在单击事件过程参数中，Index参数即是该复选框的 Index属性值。由于控件数组使用具有相同的名称且有相
38、同的单击事件过程，因此从过程的首部无法确定数组中的复选框的个数。 26 【正确答案】 B 【试题解析】 在列表框控件中， Selected 属性是一个数组，各个元素的值为 True或 False，每个元素与列表框中的一项相对应，当元素值为 True时表明选择了该项，如为 False表示未选择。 ListCount属性值是一个数组，它列出列表框中表项的数量； ListIndex 属性值表示已选中的表项的位置，表项位置由索引值指定，第一项索引值为 0，第二项为 1，以此类推； MultiSelect属性用来设置一次可以选择的表项是一项、多项、指定范围。 27 【正确答案】 A 【试题解析】 如果改
39、变驱动器列表框 的 Driv属性，则将触发 Change事件。 28 【正确答案】 B 【试题解析】 图像框的 Strethc属性值为 False时，将自动放大或缩小图像框中的图形以与图像框的大小相适应。 29 【正确答案】 D 【试题解析】 控件数组的每个元素都有一个与之关联的下标，下标值由 Index属性指定，控件数组的各元素就以这个属性来区分。 30 【正确答案】 D 【试题解析】 程序中数组元素赋值如下： 31 【正确答案】 B 【试题解析】 由 Rnd函数生成的随机数在 0 1之间，包括 0但不包括 1，所以有可能产生 0，与题目要求的两位的整数不符。所以语句 a(i) Int(Rn
40、d * 100) 1需要修改为 a(i) Int(Rnd * 90) 10，这样就能正确产生两位的整数了。 32 【正确答案】 B 【试题解析】 Mod 是取模运算符，即求运算两数相除的余数。每次循环中 X的值分别是 1,1,3,5,7,9,11,13,15,17,19，其中与 3求模为 0的数有 3、 9、 15共 3个，因此 n n 1会执行 3次，最终 n 3。 33 【正确答案】 A 【试题解析】 KeyPress 事件的参数 KeyAscii 为所按键的 ASCII 码， Chr函数把这个 ASCII码转换为对应的字符，回车键的 ASCII码值是 13。程序中 KeyPress过程的
41、功能是统计 Text1文本框中输入的字符串中 A Z之间字母的个数，按回车键后把个数值显示在 Text2文本框中。在 Text1文本框中输入 “Visual Basic 6.0“，其中 A Z的字母有 2个，按回车键后， Text2文本框中将会显示 2。 34 【正确答案】 B 【试题解析】 数组默认下标为 0，因此数组 a中的元素 a(0) 12， a(1) 3， a(2) 8， a(3) 5， a(4) 10， a(5) 3， a(6) 5， a(7) 9， a(8) 2， a(9) 4。 k 1时， fun(a(k 1)， a(k)即 fun(a(0)， a(1)，即 fun(12,3)
42、，过程中 x x y12 3 9 3 6 3 3 3 0，函数返回 0； k 2时， fun(a(k 1)， a(k)即 fun(a(1)， a(2)，即 fun(3,8)， x y不成立，函数直接返回 3； k 3时， fun(a(k 1)， a(k)即 fun(a(2)， a(3)，即 fun(8,5)，过程中 x x y 8 5 3，函数返回 3； k 4时， fun(a(k 1)， a(k)即 fun(a(3)， a(4)，即 fun(5,10)， x y不成立，函数直接返回 5； k 5时， fun(a(k 1)， a(k)即 fun(a(4)， a(5)，即 fun(10,3)，过
43、程中 x x y10 3 7 3 4 3 1，函数返回 1； k 6时， fun(a(k 1)， a(k)即 fun(a(5)， a(6)，即 fun(3,5)， x y不成立，函数直接返回 3； k 7时， fun(a(k 1)， a(k)即 fun(a(6)， a(7)，即 fun(5,9)， x y不成立，函数直接返回 5； k 8时， fun(a(k 1)， a(k)即 fun(a(7)， a(8)，即 fun(9,2)，过程中 x x y 9 2 7 2 5 2 3 2 1，函数返回 1； k 9时， fun(a(k 1)， a(k)即 fun(a(8)， a(9)，即 fun(2,
44、4)， x y不成立，函数直接返回 2； 因此程序输出 0 3 3 5 1 3 5 1 2 。 35 【正确答案】 C 【试题解析】 程序中 Mid 函数从输入字符串左边开始逐一取一个字符转换为大写，并连接到上次取出的字符的前面，因此文本框中显示的将是原输入字符串转换为大写的并倒序排列的字符串。所以 C正确。 36 【正确答案】 D 【试题解析】 由程序可知 s 1*(1+1)+2*(2+1)+3*(3+1)+4*(4+1).+N*(N+1),因此选项 D正确。 37 【正确答案】 C 【试题解析】 程序通过 For循环为数组 a赋值，具体值如下： a(1,1) 1 1 2， a(1,2) 2
45、 1 3， a(1,3) 3 1 4； a(2,1) 2 2 4， a(2,2) 4 2 6， a(2,3) 6 2 8； a(3,1) 3 3 6， a(3,2) 6 3 9， a(3,3) 9 3 12； 程序要计算指定数组元素的和，这几个元素是 a(1,3)， a(2,2)， a(3,1)，所以 s4 6 6 16。 38 【正确答案】 C 【试题解析】 变量 a初始化为含 4个元素的数组，由于有 Option Base 1语句，因此数组下标下界为 1，元素值 a(1) a(4)依次为 1、 2、 3、 4。 For循环中从第 4个元素开始对 4个元素值运算后累加，运算方法是第 1个元素
46、值乘 10 的 0次方，第 2个元素值乘 10的 1次方，第 3个元素值乘 10的 2次方，第 4个元素值乘 10的 3次方。即 4 30 200 1000 1234。 39 【正确答案】 C 【试题解析】 过程定义语句中第 1个参数是数组，调用是实参应该是一个数组变量或元素，第 2个参数是整型变量。过程中 LBound函数获取了数组下标的下限， UBound函数获取了数组下标的上限，在 For i s to f 语句的循环中就可以访问数组中的各个元 素。本过程是用 Sub 定义的过程不需要返回值。程序中找到的最大值由参数 Max返回，因为它是按址传递的参数，它的值会带给实参。因此 C选项的说
47、法错误。 40 【正确答案】 B 【试题解析】 外层 Do循环结束条件是 n10， n 初值为 1，每次加 2，循环体中每次循环 n的值为 3、 5、 7、 9、 11，值变化 5次，因此外层 Do 循环执行次数为 5次。 二、基本操作题 41 【正确答案】 步骤 1：新建一个窗体，按照题目要求建立控件并设置相应属性。程序中用到的控件及属性如表 3 16所示。步骤 2：打开代码编辑窗门，在指 定位置编写如下代码。 Private Sub Commandl Click() Form1 Print Text1 Text “，现年 “ Text2 Text “岁 “End Sub 步骤 3：调试并运
48、行程序，关闭程序后按题目要求存盘。 (2)步骤 1：新建一个窗体，添加控件并设置相应的属性。程序中用到的控件及其属性见表 3 17。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Commandl Click() HScrolii Max=1500设置滚动务的最大值、最小值、最 大改变值、最小改变值 HSCr0111 Min=100 HScrolii LargeChange=100 HScrolll SmallChange=1 0 End Sub Private Sub HScrolllchange() Picturel Width=HScrolii Value将图片的 width与滚动条的 Value保持一致 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)通过标签的 Name和 Caption 属性设置标签的名称和标题，通过文本框 Name和 Text 属性设置文本框的名称和文本，通过命令按钮的 Name和Caption 属性设置命令按钮的名称和标题， “ ”和 “+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用 Print方法。 (2)在设计阶段通过 Picture属性为图片框指定显示的图片，通过 Width属性来设定或修改图片框的宽度。通过调整
