1、国家二级（ VB）机试模拟试卷 44及答案与解析 一、选择题 1 编写如下程序： Private Sub Form_Click() a = 0 For i = 1 To 20 Step 3 a = a + i 5 Next i Print a End Sub 运行程序，单击窗体，输出结果为 （ A） 11 （ B） 12 （ C） 13 （ D） 14 2 设有如下程序： Private Sub Form_Click() Dim a As String a = InputBox(“输入一个字符串 “) For i = Len(a) To 1 Step -1 Print Mid(a, i, 2)
2、; Next i End Sub 运行程序，单击窗体，在输入对话框中输入 ABCD，单击 “确定 “按钮，输出结果是 （ A） DCBA （ B） AABBCCDD （ C） DDCCBBAA （ D） DCDBCAB 3 有如下程序： Private Sub Form_Click() Dim x As String Dim n As Integer x = InputBox(“输入一个英文单词（全部大写） “) n = Len(x) For i = 2 To n c = Asc(Mid(x) + 32 Mid(x, i, 1) = Chr(c) Next i Print x End Sub
3、以上程序的功能是，从键盘上输入一个由大写字母组成的英文单词，保留第一个字母为大写，把后面的字母全变成小写。程序中有错误，应做的修改是 （ A）把 Mid(x)改为： Mid(x, 1) （ B）把 Mid(x)改为： Mid(x, i +1, 1) （ C）把 Mid(x)改为： Mid(x, i, 1) （ D）把 Mid(x)改为： Mid(x, i - 1, 1) 4 有如下通用过程： Sub Sa(a As Integer, b As Integer) b = a t = a / b b = t Mod b End Sub 在窗体上画一个 Command1命令按钮，然后编写如下事件过程
4、： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 5 y = 4 Sa x, y Print x; y End Sub 运行程序，单击命令按钮，输出结果是 （ A） 1 1 （ B） 5 4 （ C） 1 4 （ D） 5 1 5 有如下程序： Private Sub Form_Click() Dim S As Integer, N As Integer S = 0 Do S = (S + 1) * (S + 2) N = N + 1 Loop Until S = 30 Print N; S End Sub 运行
5、程序，单击窗体，输出结果是 （ A） 2 42 （ B） 3 182 （ C） 4 220 （ D） 1 30 6 编写如下程序： Private Sub Form_Click() Dim a(5) As Integer, b(3) As Integer Dim k As Integer k = 1 For i = 1 To 5 a(i) = i Next i For i = 1 To 3 b(i) = 2 * a(i) Next i For i = 1 To 3 k = k + b(i) * 2 Next i Print k End Sub 运行程序，单击窗体，输出结果是 （ A） 31 （
6、 B） 32 （ C） 25 （ D） 30 7 在窗体上画 1个命令按钮和 2个文本框，其名称分别为 Command1、 Text1和Text2，然后编写如下事 件过程： Private Sub Command1_Click() n = 0 a = Val(Text1.Text) While a 0 n = n + a Mod 10 a = a 10 Wend Text2.Text = Str(n) End Sub 程序运行后，在 Text1中输入 2468，单击 Command1按钮，则在 Text2中显示的是 （ A） 20 （ B） 2468 （ C） 8642 （ D） 10 8 有
7、如下程 序： Private Sub Form_Click() Dim B As String Dim m As Integer, Dec As Integer B = InputBox(“请输入一个二进制数 “) m = Len(B) For i = 1 To m Dec = Dec * 2 + Val( _ ) Next i Print Dec End Sub 以上程序的功能是，从键盘上输入一个二进制数，把它转换为等值的十进制数并输出 。程序不完整，在 _ 处应填入的内容是 （ A） Left(B, i) （ B） Mid(B, i, 1) （ C） Right(B, i) （ D） St
8、r(B) 9 有如下程序代码： Function Sum(n As Integer) Static k As Integer k = k + n + 1 Sum = k End Function Private Sub Form_Click() Dim i As Integer Dim s As Integer For i = 1 To 3 s = s + Sum(i) Next i Print s End Sub 运行程序，单击窗体，输出结果为 （ A） 6 （ B） 9 （ C） 12 （ D） 16 10 面向对象方法中，实现对象的数据和操作结合于统一体中的是 （ A）结合 （ B）封装
9、 （ C）隐藏 （ D）抽象 11 线性表的链式存储结构与顺序存储结构相比，链式存储结构的优点有 （ A）节省存储空间 （ B）插入与删除运算效率高 （ C）便于查找 （ D）排序时减少 元素的比较次数 12 线性表的链式存储结构与顺序存储结构相比，链式存储结构的优点有 （ A）节省存储空间 （ B）插入与删除运算效率高 （ C）便于查找 （ D）排序时减少元素的比较次数 13 深度为的完全二叉树中共有 125个结点，则该完全二叉树中的叶子结点数为 （ A） 62 （ B） 63 （ C） 64 （ D） 65 14 下列叙述中正确的是 （ A）所谓有序表是指在顺序存储空间内连续存放的元素序列
10、 （ B）有序表只能顺序存储在连续的存储空间内 （ C）有序表可以用链接存储方式存储在不连续的存 储空间内 （ D）任何存储方式的有序表均能采用二分法进行查找 15 计算机软件包括 （ A）算法和数据 （ B）程序和数据 （ C）程序和文档 （ D）程序、数据及相关文档 16 下面描述中不属于软件需求分析阶段任务的是 （ A）撰写软件需求规格说明书 （ B）软件的总体结构设计 （ C）软件的需求分析 （ D）软件的需求评审 17 当数据库中数据总体逻辑结构发生变化，而应用程序不受影响，称为数据的 （ A）逻辑独立性 （ B）物理独立性 （ C）应用独立性 （ D）空间独立性 18 下列合 法的
11、 Visual Basic数值变量是 （ A） BianLiang （ B） aBCD “B“, 24;: Print: Print V; B （ A） VB 24 25 （ B） VB 24 25 （ C） VB 24 2 5 （ D） 25 24 25 36 有如下程序代码： Private Sub Form_Click() Dim a(3, 3) As Integer For I = 1 To 3 For j = 1 To 3 If j 1 And I 1 Then a(I, j) = a(a(I - 1, j - 1), a(I, j - 1) + 1 Else a(I, j) = I
12、 * j End If Print a(I, j); Next j Print Next I End Sub 程序运行后，单击窗体，输出结果为 （ A） 1 2 3 2 3 1 3 2 3 （ B） 1 2 3 1 2 3 1 2 3 （ C） 1 2 3 2 4 6 3 6 9 （ D） 1 2 3 2 2 2 3 3 3 37 设有如下程序代码： Private Sub Command1_Click() Dim x As Integer x = 30 Print f(x) + f(x) End Sub Private Function f(a As Integer) As Integer
13、a = a / 3 f = a End Function 运行 Command1_Click过程所产生的输出是 （ A） 13 （ B） 20 （ C） 30 （ D） 6 38 有如下程序代码： Private Sub Form_Click() Dim a(100) As Integer Dim b(100) As Integer For i = 1 To 100 a(i) = i Next i For i = 1 To 100 b(i) = a(i) + a(i - 1) Next i End Sub 运行程序，单击窗体，以下说法中正确的是 （ A）数组 a和数组 b中存放的均为 1 10
14、0的整数 （ B）数组 a中存放的是 1 100的整数，数组 b中存放的是 101 200的整数 （ C）数组 a中存放的是 1 100的整数，数组 b中存放的是 1 199的奇数 （ D）数组 a中存放的是 1 100的整数，数组 b中存放的是 1 200的偶数 39 有下面程序代码： Private Sub Command1_Click() Dim a, s As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) k = 1 s = 0 Do s = s + a(k) k = k + 2 Loop Until k UBound(A) Print s
15、End Sub 程序运行产生的输出是 （ A） 45 （ B） 20 （ C） 16 （ D） 25 40 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Print “ABCD“; Else Print “DDDD“; End If End Sub Private Sub Command1_MouseUp(Button As Integer,
16、Shift As Integer, X As Single, Y As Single) Print “EFGH“ End Sub 程序运行后，单击命令按钮，输出 结果是 （ A） ABCDEFGH （ B） DDDDEFGH （ C） ABCD （ D） EFGH 二、基本操作题 41 (1)在名称为 Forml的窗体上添加一个名称为 L1 的标签，标签上标题为 “请输入密码 ”，添加一个名称为 Text1的文本框，其宽、高分别为 2000和 300，设置适当的属性，使得在输入密码时，文本框中显示为 “*”字符，此外再把窗体的标题设置为 “密码窗口 ”，以上这些设置都必须在属性窗口中进行，程序
17、运行时的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文 件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出 “单击图片框 ”，每单击图片框外的窗体一次，就在窗体中输出 “单击窗体 ”，运行时的窗体如图所示。要求在程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。三、简单应用题 42 (1)在考生文件夹下有一个工程文件 s
18、jt3 vbp，相应的窗体 文件为 sjt3 frm。其功能是随机产生 20个 01000范围内的整数，然后放入一个数组中，然后输出这20个整数中大于 500的所有整数之和。程序运行后，单击命令按钮 (名称为Command1，标题为 “输出大于 500的整数之和 ”)，即可求出这些整数的和，并显示在窗体上 (如图所示 )。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjf4 vbp，相应的窗体文件为 sjt4 frm
19、，在窗体上有一个文本框和一一个命令按钮。程序运行后，单击命令按钮，即可计算出 0 100范围内不能被 7整除的所有整数的和，并显示在文本框中。在窗体的代码窗口中，已给出部分程序，其中在通用过程 Fun中实现计算不能被 7整除的整数的和的操作，请编写该过程代码。 要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function之间填人编写的若干语句。最后将修改后的文件按原文件名存盘。 四、综合应用题 43 在考生文件夹下有一个工程文件 sjt5 vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1中输入一个大于 2的偶数，并单击 “分解
20、为 ”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数 (一个偶数有时可以分解为多种素数的组合，例如 24可以分解为 5和 19，也可以分解为 11和 13，要求取含有最小素数的组合，如图所示 )。要求编写 “分解为 ”命令按钮事件过程中 “考生编写程序开始 ”和 “考生编写程序结束 ”之间的代码，以实现上述功能。过程 IsPrime用来判 断一个数是否为素数，如果是，返回值为 True，否则返回值为 False。 注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且程序运行时在文本框中输入 23456，单击 “分解为 ”按钮，将结果显示在标签中
21、，否则将没有成绩，最后将修改后的文件按原文件名存盘。 国家二级（ VB）机试模拟试卷 44答案与解析 一、选择题 1 【正确答案】 A 【试题解析】 For循环， i从 1开始，直到 20，步长为 3， i取值为 1， 4， 7，10， 13， 16， 19， a为所有 i对 5取整的加总。当 i为 1， 4时， i对 5取整为 0， i为 7时， i对 5取整为 1； i为 10， 13时， i对 5取整为 2；当 i为 16， 19时， i取整为 3。故 a=0+0+1+2+2+3+3=11，故选择 A项。 2 【正确答案】 D 【试题解析】 a从对话框得到输入字符串 “ABCD“， Le
22、n（ a）即 a的字符串长度为 4，在 For循环中， i从 4到 1，步长为 -1， Mid（ a， i， 2）从字符串变量 a的第i个字符开始截取 2个字符，故当 i为 4时，输出为 “D“，当 i为 3时，输出为“CD“，当 i为 2时，输出为 “BC“；当 i 为 1时，输出为 “AB“。故 4次循环合在一起，输出结果为 “DCDBCAB“，故选择 D项。 3 【正确答案】 C 【试题解析】 主要是利用 ASCII码中小写字母比对应的大写字母大 32，通过For循环（ i从 2到字符串的长度），将字符串中第 i位的字符取出，利用 Asc转换函数得到对应的 ASCII码值，将其加上 32
23、即为相应大写字母对应的 ASCII值，再利用 Chr转换函数，将 ASCII码转换成为大写字母，并赋值给对应位置第i位字符。在取出第 i位字符的语句错误，应改为 Mid(x， i， 1)，故选择 C项。 4 【正确答案】 D 【试题解析】 sa函数，两 个参数均是按地址传递，调用 Sa， x， y将地址分别传给形参 a、 b。在函数 sa 中， a=x=5， b=4， b=a=5， t=a/b=5/5=1； b=1 mod 5 =1，此时 x=a=5， y=b=1，故选择 D项。 5 【正确答案】 B 【试题解析】 通过 Do循环，当 S = 30时，退出循环。第一次执行循环体，s=1*2=2
24、， N=1；第二次循环， s=3*4=12， N=2；第三次循环， s=13*14=182，N=3，此时 S = 30，退出循环。故选 B项。 6 【正确答案】 C 【试题解析】 通过 For循环，对整型数组 a和 b 分别赋值， a=1， 2， 3， 4，5， b=2， 4， 6， k是在原值基础上再加 b 每个元素值得两倍，故k=1+2*2+4*2+6*2=25，故选 C项。 7 【正确答案】 A 【试题解析】 程序主要是将文本框中输入的数值，将其每位数累加起来。 Val是将文本框的文本转化为数值。当输入 2468时，第一次执行循环， n=0+8， a=246；第二次执行循环体， n=8+
25、6=14， a=24；第三次执行循环体， n=14+4=18， a=2；第四次执行循环体， n=18+2=20， a=0，此时不符合 循环条件，退出循环。 Str(n)将n=20，整数 20转换为字符串，故文本框 Text2的文本显示为 20。故选 A项。 8 【正确答案】 B 【试题解析】 Val是将字符串转化为数值。 A项是截取左边的 i个字符，利用Val，得到数值的左边前 i位数字； B 项是截取第 i个字符，利用 Val，得到数值的第 i位数字； C项是截取右边的 i个字符，利用 Val，得到数值的右边前 i位数字； D项是整个字符串，利用 Val，转换为数字。根据题意应该选择 B 项
26、，利用For循环，将输入二进制数的从首位到末位，转换为十进制数。 9 【正 确答案】 D 【试题解析】 当用 Static定义 k 时，如果没有退出程序，每次引用静态变量的数组后，其值将继续保留，作为下次引用时该变量的初始值。当 i=1时，调用 sum（ 1）， k=0+1+1=2， s=0+2=2；当 i=2时，调用 sum（ 2）， k=2+2+1=5，s=2+5=7；当 i=3时，调用 sum（ 3）， k=5+3+1=9， s=7+9=16。退出 For循环，输出 s为 16，故选 D项。 10 【正确答案】 B 【试题解析】 对象的基本特点是：标识唯一性、分类性、多态性、封装性、模块
27、独立性好。封装 是指隐藏对象的属性和实现细节，将数据和操作结合于统一体，仅对外提供访问方式， B 选项正确。 11 【正确答案】 B 12 【正确答案】 B 13 【正确答案】 B 【试题解析】 在树结构中，定义一棵树的根结点所在的层次为，其他结点所在的层次等于它的父结点所在的层次加，树的最大层次称为树的深度。完全二叉树指除最后一层外，每一层上的结点数均达到最大值，在最后一层上只缺少右边的若干结点。深度为 6的满二叉树，结点个数为 26-1=63，则第 7层共有 125-63=62个叶子结点，分别挂在第 6层的左边 62 个结点上，加上第 6层的最后 1个叶子结点，该完全二叉树共有 63个叶子
28、结点，故 B选项正确。 14 【正确答案】 C 【试题解析】 有序是特指元素按非递减排列，即从小到大排列，但允许相邻元素相等， A选项错误。有序表可以顺序存储也可以链式存储， B 选项错。能使用二分法查找的线性表必须满足两个条件：用顺序存储结构；线性表是有序表， D选项错误。故 C选项正确。 15 【正确答案】 D 【试题解析】 计算机软件由两部分组成：一是机器可执行的程序和数据；二是机器不可执行的，与软件开发、运行、维护、使用等 有关的文档。故 D选项正确。 16 【正确答案】 B 【试题解析】 需求分析阶段的工作可以分为个方面：需求获取、需求分析、编写需求规格说明书和需求评审。故 B 选项
29、正确。 17 【正确答案】 A 【试题解析】 数据独立性包括物理独立性和逻辑独立性，物理独立性指数据的物理结构的改变，不会影响数据库的逻辑结构，也不会引起应用程序的改动；逻辑独立性指数据库的总体逻辑结构的改变，不会导致相应的应用程序的改变。故 A选项正确。 18 【正确答案】 B 【试题解析】 在 VB中，变量名的第一个字符 必须是英文字母，最后一个字符可以是类型说明符，且变量名只能由字母、数字、下划线组成，故 A和 D选项错误； B选项最后一位是长整型类型说明符； C选项最后一位是定长字符串的类型说明符，结合题目要求是数值变量，知 C选项错误，故选 B。 19 【正确答案】 B 【试题解析】
30、 十进制的整型数 Integer存储空间为 2个字节，取值范围是 -3276832767，长整型 Long存储空间为 4个字节，取值范围是 -21474836482147483647，双精度浮点数 Double存储空间为 8个字节， Variant是一种特 殊的数据类型，能保存所有类型的数据，其存储空间会根据数据大小自动分配，所以， 33521397超出了 Integer数据类型的范围，空间不足，故选 B。 20 【正确答案】 A 【试题解析】 全局变量在声明中使用 Public或 Global 语句 ,故正确答案为 A选项。 21 【正确答案】 B 【试题解析】 注释语句是非执行语句，只起注
31、释作用，不被解释和编译，其作用是为了提高程序的可读性。注意，注释语句不能放在续行符 “-“的后面。故选 B。 22 【正确答案】 A 【试题解析】 选项 A中， Dim Arr(k)， k 要求是常量表达式，要动态设定数组长度用 ReDim k%=10，故选 A。 23 【正确答案】 B 【试题解析】 设计阶段，属性窗口的内容为被选中控件的属性，但不包括只能在运行期间才可以访问的属性。故 A、 C和 D选项均错误，正确答案为 B 选项。 24 【正确答案】 B 【试题解析】 TabStop 属性指定是否能使用 Tab 键将焦点移到控件上，为 True时可以获得焦点，为 False时不可获得焦点
32、，故 A选项错误。 Enabled 属性用来确定文本框或其他可获得焦点的控件，是否对用户 产生的事件作出反应，当为 False时，文本框被禁用，当为 True，可以获得焦点，故 C选项错误。 Locked 属性是用来设置本文框或其他可获得焦点的控件的内容是否可以被编辑，默认为 False，可编辑，取值为 True时，不可编辑，但仍可获得焦点，故 D选项错误，正确答案为 B 选项。 25 【正确答案】 A 【试题解析】 BorderStyle：该属性用来设置直线和形状的边界线的线型，有如下 7种值可选： 0-Transparent代表透明； 1-Solid 代表实线； 2-Dash代表虚线； 3
33、-Dot代表点线； 4-Dash-Dot代表点下划线； 5-Dash-Dot-Dot代表双点划线； 6-Inside Solid 代表内实线。故本题选 A。 26 【正确答案】 A 【试题解析】 列表框 List用来列出或设置列表项的内容，可以通过下标访问数组中的值（下标值从 0开始）。 ListIndex 表示在列表框控件中当前所选项的索引号。 List1.List用来列出表项内容，可以通过下标访问列表框中的内容，故选项 B错误；标签 Label1.Caption 用来显示在标签标题中显示的文本，故 C、 D选项错误。本题正确答案为 A。 27 【正确答案】 B 【试题解析】 文本框设置焦点
34、的方法，格式如下： 对象名 .SetFocus。故本题正确答案为 B。 28 【正确答案】 A 【试题解析】 AddItem方法：用来在列表框中插入一行文本（即项目）。RemoveItem方法：用来删除列表框中的指定项目。注意：列表框中项目从 0开始计数。第一个 For循环是在列表框中插入 1， 2， 3， 4， 5， 6项目。第二个 For循环，当 i=1时，执行 RemoveItem 1 操作后列表框还剩 1， 3， 4， 5， 6。当 i=2时，执行 RemoveItem 2 操作 后列表框还剩 1， 3， 5， 6。当 i=3 时，执行RemoveItem 3 操作后列表框还剩 1，
35、3， 5。故本题正确答案为 A选项。 29 【正确答案】 C 【试题解析】 Style属性设置单选按钮的显示方式， 0为默认值，控件按标准方式显示， 1为图形方式，控件用图形的样式显示； Value属性设置单选按钮的状态，True表示按钮被选中， False为默认值，表示单选按钮处于未选中状态； Caption属性设置单选按钮的标题文本。 Checked 表示复选框的状态为被选中。故正确答案为选项 C。 30 【正确答案】 A 【试题解析】 LoadPicture函数是将图形文件载入到窗体、图片框或图像框的Picture属性中，选项 A正确，选项 B、 C错误； AutoSize是图片框的属性
36、，图像框用 Stretch 属性设置是否可以根据图片的大小调整自己的大小，选项 D错误。故正确答案为选项 A。 31 【正确答案】 B 【试题解析】 Do 循环结构中 DoWhile|Until 循环条件 Loop 先判断条件后执行循环体； DoLoopWhile|Until 循环条件 先执行循环体后判断条件。其中 Do UntilLo op 循环中，当条件为假时继续执行循环体，当条件为真时退出循环，故正确答案为 B 选项。 32 【正确答案】 B 【试题解析】 Do 循环结构中 DoWhile|Until 循环条件 Loop 先判断循环条件后执行程序； DoLoopWhile|Until 循
37、环条件 先执行程序后判断循环条件。其中Do UntilLoop 循环中，当条件为假时继续执行循环体，当条件为真时退出循环，故正确答案为 B 选项。 33 【正确答案】 C 【试题解析】 设置菜单项不可见的语句是： menu1.Visible = False，选项 A错误；能在 menu1 菜单项的左面显示 “标记的语句是： menu1.Checked = True，选项 B错误；菜单项只能响应 Click事件，选项 D错误；故本题正确答案为 C选项。 34 【正确答案】 B 【试题解析】 在运行程序时只有调用相应的方法才能显示通用对话框，在运行时不可见，选项 A描述错误；通用对话框是以图标的形
38、式显示在窗体中，该图标的大小不能改变，选项 C描述错误；通用对话框是 ActiveX控件，不是标准控件，使用时需要添加到工具箱，选项 D描述错误。故正确答案为选项 B。 35 【正确答案】 B 【试题解析】 语句 Print “V“; “B“, 24 输出字符 V和 B及数据 24，即： VB 24。语句 Print： Print V； B 先输出换行符，再输出变量 V和 B 的值，即： 2 5。故正确答案为 B选项。 36 【正确答案】 A 【试题解析】 观察答案，数组的第一行数据均相同，数组的第二行数据均不同。直接进入第二行数据，当 i=2， j=1时， If条件 j1 And i1 为假
39、，执行 Else语句， a(2,1)= i*j=2*1=2；当 i=2， j=2时， If条件 j1 And i1 为真，执行 If内语句， a(2,2)=a(a(1,1),a(2,1)+1=a(1,2)+1=2+1=3；由此可知，只有答案 A符合条件。故本题正确答案为 A。 37 【正确答案】 A 【试题解析】 VB 默认的参数传递方式是按地址传递。第 1次调用函数 f（ x）时x=30，故 f（ 30） =10，此时 a的值为 10， x的值为 10，函数调用结束时， a被释放，第 2次调用函数 f（ x）时， x=10，故 f（ 10） =3，所以 f（ x） +f（ x） =f（ 30
40、） +f（ 10） =13。故正确答案为选项 A。 38 【正确答案】 C 【试题解析】 题目定义两个整型数组 a（ 100）和 b（ 100），数组 a（ 100）中元素在题中分别赋值 1到 100；数组 b（ 100）的值为数组 a（ 100）元素中相邻的奇数和偶数相加之和，结果为奇数。故正确答案为选项 C。 39 【正确答案】 B 【试题解析】 Array 函数为数组 a的元素赋值，使得 a（ 0） a（ 8）的值被分别赋值为 1 9； UBound(a)函数返回数组 可用的最大下标 8， DoLo op Until 循环先执行循环体，后判断终止条件 k 8是否成立，条件成立时， Do循
41、环共执行 4次，因此 s=a（ 1） +a（ 3） +a（ 5） +a（ 7） =2 4 6 8=20。故正确答案为选项 B。 40 【正确答案】 B 【试题解析】 MouseDown 是按下鼠标时触发的事件， MouseUp是松开鼠标时触发的事件。鼠标键参数中 Button=2 表示按下右键。单击命令按钮时，先用鼠标单击一下左键，在此过程中，鼠标会从按下转为松开。先触发 MouseDown 事件，因button!=2故输出 DDDD，再触发 MouseUp事件，输出 EFGH。故本题正确答案为选项 B。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：新建一个窗体，在窗体中添
42、加一个标签，名称设置为 L1，将标签的 Caption属性设置为 “请输入密码 “。然后再添加一个文本框，设置其名称为 Text1,然后设置其 Height属性为 300，设置其 Width属性为2000，设置其 PasswordChar属性为 “*“。最后将 Form1的 Caption属性设置为 “密码窗口 “。步骤 2：调试并运行程序。步骤 3：设置工程文件名为 sjt1.vbp,设置窗体文件名 为 sjt1.frm，最后保存工程。 (2)【操作步骤】步骤 1：新建一个窗体，然后在窗体上添加一个图片框。图片框的的属性见表 3.7。步骤 2：编写程序代码。 Private Sub Form
43、_Click() Form1.Print “单击窗体 “End SubPrivate Sub P1_Click() P1.Print “单击图片框 “End Sub步骤 3：调试并运行程序，然后设置工程文件名为 sjt2.vbp,设置窗体文件名为sjt2.frm，最后保存工程。 三、简单应用题 42 【正确答案】 (1)【操作 步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Command1_Click() Dim arrN(20) As Integer Dim Sum As Integer Randomi
44、ze For i = 1 To 20 arrN(i) = Int(Rnd * ？ ) Next i Sum = ? For i = 1 To 20 If ? Then Sum = ? End If Next i Print Sum End Sub 程序结束 参考答案 第 1个？处填入： 1000 第 2个？处填入： 0 第 3个？处填入： arrN(i) 500 或 500 0 Then s = s + i End If Next i Fun = s End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开
45、本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Function IsPrime(ByVal x As Integer) As Boolean Dim i As Integer IsPrime = False If x = 1 Then Exit Function For i = 2 To Sqr(x) If x Mod i = 0 Then Exit Function End If Next IsPrime = True End Function Private Sub Command1_Click() 考生编写程序开始 考生编写程序结束 Open App.Path & “out5.dat“ For Output As #1 Print #1, Text1.Text, Label1.Caption, Label2.Caption Close #1 End Sub 程序结束 参考答案 For i = 1 To Val(Text1.Text) If IsPrime(i) And IsPrime(Val(Text1.Text) - i) Then Label1 = i Label2 = Val(Text1.Text) - i Exit For End If Next i 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
