1、国家二级（VB）机试-试卷 23 及答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.若要使文本框能够输入多行文本，应该设置的属性是( )。（分数：2.00）A.MultiLineB.WordWrapC.ScrollBarsD.AutoSize2.以下关于命令按钮的叙述中正确的是( )。（分数：2.00）A.命令按钮上可以显示图片B.命令按钮能够分别响应单击、双击事件C.程序运行时，不能改变命令按钮上的文字D.若命令按钮的 Cancel 属性设为 True，焦点在其他控件上时，按下回车键与单击该按钮的效果相同3.窗体上有一个名称为 VScroll
2、1 的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1.Value 的值等于( )。（分数：2.00）A.VScroll1.LargeChangeB.VScroll1.SmallChangeC.VScroll1.MaxD.VScroll1.Min4.设运行程序时弹出的菜单如图所示.关于该菜单，以下叙述中错误的是( )。 （分数：2.00）A.菜单中能够显示分隔线是因为该菜单项的标题为“B.分隔线对应的菜单项的 Name 属性可以为空C.退出菜单项的有效性属性被设为 FalseD.使用 PopupMenu 方法能够显示如图所示的菜单5.窗体上有一个列表框控件 List
3、1。以下叙述中错误的是( )。（分数：2.00）A.List1 中有 ListCount1 个列表项B.当 List1.Selected(i)True，表明第 i 项被选中C.设置某些属性，可以使列表框显示多列数据D.List1.Text 的值是最后一次被选中的列表项文本6.以下关于单选按钮和复选框的叙述中，正确的是( )。（分数：2.00）A.单选按钮和复选框都能从多个选项中选择一项B.单选按钮和复选框被选中时，选中控件的 Value 属性值为 TrueC.是否使用框架控件将单选按钮分组，对选项没有影响D.是否使用框架控件将复选框分组，对选项没有影响7.窗体的 MouseUp 事件过程如下：
4、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 是鼠标向上移动时触发的事件8.窗体上有一个名称为 CD1 的通用对话框，一个名称为 Command1 的命令按钮，相应的事件过程如下：Private S
5、ub Command1_Click() CD1.Filter“All File|*.*|Text File|*.txt|Word|*.Doc“ CD1.FilterIndex2 CD1.FileName“E：/Test.ppt“ CD1.InitDir“E：“ CD1.ShowOpenEnd Sub 关于上述程序，以下叙述中正确的是( )。（分数：2.00）A.初始过滤器为“*.*“B.指定的初始目录为“E：“C.以上程序代码实现打开文件的操作D.由于指定文件类型是.ppt，所以导致打开文件的操作失败9.编写如下程序：Private Sub Command1_Click() Dim i As
6、Integer， j As Integer nInputBox(“输入一个大于 1 的正整数“) For i2 To n For j2 To Sqr(i) If i Mod j0 Then Exit For Next j If jSqr(i)Then Print i Next iEnd Sub 该程序的功能是( )。（分数：2.00）A.判断 n 是否为素数B.输出 n 以内所有的奇数C.输出 n 以内所有的偶数D.输出 n 以内所有的素数10.以下程序的功能是随机产生 10 个两位的整数：Option Base 1Private Sub Command1_Click() Dim a(10)A
7、s Integer Dim i As Integer Randomize For i1 To 10 a(i)Int(Rnd * 100)1 Print a(i) Next iEnd Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是( )。（分数：2.00）A.a(i)Int(Rnd * 100)B.a(i)Int(Rnd * 90)10C.a(i)Int(Rnd * 100)10D.a(i)Int(Rnd * 101)11.在窗体上画一个名称为 Command1 的命令按钮，编写如下事件过程：Private Sub Command1_Click() n0 Fo
8、r i0 To 10 X2 * i1 If X Mod 30 Then nn1 Next i Print nEnd Sub 运行程序，单击命令按钮，则窗体上显示的是( )。（分数：2.00）A.1B.3C.5D.712.窗体上有名称为 Command1 的命令按钮，名称分别为 Label1、Label2、Label3 的标签。编写如下程序：Private x As IntegerPrivate Sub Command1_Click() Static y As Integer Dim z As Integer n5 zzn yyn xxy Label1x Label2y Label3zEnd S
9、ub 运行程序，连续 3 次单击命令按钮后，3 个标签中分别显示的是( )。（分数：2.00）A.5 5 5B.15 10 5C.15 15 15D.30 15 513.命令按钮 Command1 的事件过程如下：Private Sub Command1_Click() Dim arr(5， 5)As Integer Dim i As Integer， j As Integer For i1 To 4 For j2 To 4 arr(i， j)ij Next j Next i Print arr(1， 3)arr(3， 4)End Sub 执行上述过程，输出结果是( )。（分数：2.00）A.
10、6B.7C.11D.1214.现有程序如下：Option Base 1Private Sub Form_Click() Dim x(5， 6)As Integer， y(5)As Integer For i1 To 5 For j1 To 6 x(i， j)Int(Rnd * 91) Next j Next i Call f(5， 6， x， y) For i1 To 5 Print y(i)； Next iEnd SubSub f(m As Integer， n As Integer， a()As Integer， b()As Integer) For i1 To m b(i)0 For j
11、1 To n b(i)b(i)a(i， j) Next j Next iEnd Sub 关于上述程序，以下叙述中正确的是( )。（分数：2.00）A.调用过程语句有错，参数不匹配B.程序有错，数组下标越界C.y 数组中保存的是 x 数组每行数据之和D.x 数组中数据的取值范围是 11015.窗体上有一个名称为 Label1 的标签；一个名称为 Timer1 的计时器，其 Enabled 和 Interval 属性分别为 True 和 1000。编写如下程序：Dim n As IntegerPrivate Sub Timer1_Timer() chChr(nAsc(“A“) Label1.Cap
12、tionch nn1 nn Mod 4End Sub 运行程序，将在标签中( )。（分数：2.00）A.不停地依次显示字符“A“、“B“、“C“、“D“，直至窗体被关闭B.依次显示字符“A“、“B“、“C“、“D“各一次C.每隔 1 秒显示字符“A“一次D.每隔 1 秒依次显示 26 个英文字母中的一个16.窗体上有一个名称为 Command1 的命令按钮，一个名称为 Text1 的文本框。编写如下程序：Private Sub Command1_Click() Dim x As Integer xVal(InputBox(“输入数据“) Text1Str(xfun(x)fun(x)End Su
13、bPrivate Function fun(ByRef n As Integer) If n Mod 30 Then nnn Else nn * n End If funnEnd Function 对于上述程序，以下叙述中错误的是( )。（分数：2.00）A.语句 funn 有错，因为 n 是整型，fun 没有定义类型B.运行程序，输入值为 5 时，文本框中显示 655C.运行程序，输入值为 6 时，文本框中显示 42D.ByRef 表示参数按址传递17.设工程文件中包名称分别为 Form1、Form2 的两个窗体，且 Form1 的菜单属性设置如下： （分数：2.00）A.Index 属性的
14、值可以用来区分控件数组元素B.Index 为 1 的菜单项的标题可能会改变C.两个名称均为 Mnu1 的菜单项构成一个控件数组D.语句 Form2.Hide 将 Form2 卸载18.有如下程序：Private Sub Command1_Click() Dim i As Integer， j As Integer Dim sum As Integer n1 Do j1 Do sumsumj jj1 Print j； Loop Until j3 nn2 Loop Until n10 Print sumEnd Sub 运行上述程序，外层 Do 循环执行的次数为( )。（分数：2.00）A.4B.5
15、C.7D.1019.以下过程的功能是从数组中寻找最大值：Private Sub FindMax(a()As Integer， ByRef Max As Integer) Dim s As Integer， f As Integer Dim i As Integer sLBound(a) fUBound(a) Maxa(s) For is To f If a(i)Max Then Maxa(i) NextEnd Sub以下关于上述过程的叙述中，错误的是( )。（分数：2.00）A.语句 Call FindMax(a，m)可以调用该过程，其中的 a 是数组，m 是 Integer 类型变量B.Fo
16、r 循环次数等于 a 数组的元素数C.过程末尾应该增加一条返回最大值的语句 FindMaxMaxD.参数 Max 用于存放找到的最大值20.下列叙述中正确的是（分数：2.00）A.算法的效率只与问题的规模有关，而与数据的存储结构无关B.算法的时间复杂度是指执行算法所需要的计算工作量C.数据的逻辑结构与存储结构是一一对应的D.算法的时间复杂度与空间复杂度一定相关21.下列叙述中正确的是（分数：2.00）A.线性表链式存储结构的存储空间一般要少于顺序存储结构B.线性表链式存储结构与顺序存储结构的存储空间都是连续的C.线性表链式存储结构的存储空间可以是连续的，也可以是不连续的D.以上说法均错误22.
17、某二叉树共有 12 个结点，其中叶子结点只有 1 个。则该二叉树的深度为（根结点在第 1 层）（分数：2.00）A.3B.6C.8D.1223.对长度为 n 的线性表作快速排序，在最坏情况下，比较次数为（分数：2.00）A.nB.n-1C.n(n-1)D.n(n-1)/224.结构化程序设计中，下面对 goto 语句使用描述正确的是（分数：2.00）A.禁止使用 goto 语句B.使用 goto 语句程序效率高C.应避免滥用 goto 语句D.以上说法均错误25.下面不属于软件测试实施步骤的是（分数：2.00）A.集成测试B.回归测试C.确认测试D.单元测试26.下面不属于软件需求分析阶段主要
18、工作的是（分数：2.00）A.需求变更申请B.需求分析C.需求评审D.需求获取27.一般情况下，当对关系 R 和 S 进行自然连接时，要求 R 和 S 含有一个或者多个共有的（分数：2.00）A.记录B.行C.属性D.元组28.有表示公司和职员及工作的三张表，职员可在多家公司兼职。其中公司 C（公司号，公司名，地址，注册资本，法人代表，员工数），职员 S（职员号，姓名，性别，年龄，学历），工作 W（公司号，职员号，工资），则表 W 的键（码）为（分数：2.00）A.公司号，职员号B.职员号，工资C.职员号D.公司号，职员号，工资29.设计窗体时，双击窗体上没有控件的地方，打开的窗口是( )。（
19、分数：2.00）A.代码窗口B.属性窗口C.工具箱窗口D.工程窗口30.要计算 x 的平方根并放入变量 y，正确的语句是( )。（分数：2.00）A.yExp(x)B.ySgn(x)C.yInt(x)D.ySqr(x)31.Print Format(1234.56， “#.#“)语句的输出结果是( )。（分数：2.00）A.123.4B.1234.6C.1234.5D.1234.5632.Print Right(“VB Programming“， 2)语句的输出结果是( )。（分数：2.00）A.VBB.ProgrammingC.ngD.233.表达式 12 / 2/4 的值是( )。（分数：
20、2.00）A.1.5B.2C.4D.134.下列数组定义中错误的是( )。（分数：2.00）A.Dim a(5 To3)B.Dim a(3 To 5)C.Dim a(3 To5)D.Dim a(3 To 3)35.在某个事件过程中定义的变量是( )。（分数：2.00）A.局部变量B.窗体级变量C.全局变量D.模块变量36.以下过程定义中正确的过程首行是( )。（分数：2.00）A.Private Sub Proc(Optional a as Integer，b as Integer)B.Private Sub Proc(a as Integer)as IntegerC.Private Sub
21、Proc(a()As Integer)D.Private Sub Proc(ByVal a()As Integer)37.如果一个菜单项的 Enabled 属性被设置为 False，则程序运行时，该菜单项( )。（分数：2.00）A.不显示B.显示但无效C.有效可用D.不显示但有效可用38.顺序文件在一次打开期间( )。（分数：2.00）A.只能读，不能写B.只能写，不能读C.既可读，又可写D.或者只读，或者只写39.要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是( )。（分数：2.00）A.AutoSize 值为 TrueB.AutoRedraw 值为 True
22、C.Stretch 值为 TrueD.BorderStyle 值为 040.如果在框架中画了 2 个复选框，且框架的 Enabled 属性被设置为 False,2 个复选框的 Enabled 属性被设置为 True，则下面叙述中正确的是( )。（分数：2.00）A.2 个复选框可用B.2 个复选框不可用C.2 个复选框不显示D.上述都不对二、基本操作题(总题数：1，分数：2.00)41.(1)在名称为 Form1，标题为“框架”的窗体上添加一个名称为 Frame1，且标题为空的框架。框架内含有两个单选按钮，名称分别为 Opt1 和 Opt2，其标题分别为“字体”、“大小”。 注意：存盘时必须存
23、放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)考生文件夹下的工程文件 sjt2vbp 中有一个由直线 Line1、Line2 和 Line3 组成的三角形，直线 Line1、Line2 和Line3 的坐标值如下所示： 名称 X1 Y1 X2 Y2 Line1 600 1200 1600 300 Line2 600 1200 2600 1200 Line3 1600 300 2600 1200 要求添加一条直线 Line4 以构成三角形的高，且该直线的初始状态为不可见。再添加两个命令按钮，名称分别为 Cmd1、Cmd2，标题分别为“显示高”、“隐
24、藏高”，如图所示。（分数：2.00）_三、简单应用题(总题数：1，分数：2.00)42.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是通过键盘向文本框中输人大、小写字母和数字。单击标题为“统计”的命令按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别在标签控件数组 x 中显示，如图所示。 在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 （分数：2.00）_四、综合应用题(总题数：1，分数：2.00)43.在考生
25、文件夹下有一个工程文件 sjt5vbp，其功能是： 单击“读数据”按钮，则将考生文件夹下in5dat 文件中的 100 个正整数读入数组 a 中，同时在 Text1 文本框中显示。 单击“分组”按钮，则将数组 a 中所有是 3 的倍数的元素存人数组 b 中，并对数组 b 中的元素按升序排序后显示在文本框 Text2中。 在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。 要求：编写适当的程序部分使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结果程序运行之前，必须先执行“分组”操作，然后再用窗体右上角的关闭按钮结束程序，否则将没有成绩。最后，程序按原文件名进
26、行存盘。 （分数：2.00）_国家二级（VB）机试-试卷 23 答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.若要使文本框能够输入多行文本，应该设置的属性是( )。（分数：2.00）A.MultiLine B.WordWrapC.ScrollBarsD.AutoSize解析：解析：文本框控件的 MultiLine 属性如果设置为 False，则在文本框中只能输入单行文本；当设置为 True 时，可以使用多行文本，即在文本框中输入或输出文本时可以换行，并在下一行接着输入或输出。2.以下关于命令按钮的叙述中正确的是( )。（分数：2.00）A.命
27、令按钮上可以显示图片 B.命令按钮能够分别响应单击、双击事件C.程序运行时，不能改变命令按钮上的文字D.若命令按钮的 Cancel 属性设为 True，焦点在其他控件上时，按下回车键与单击该按钮的效果相同解析：解析：按钮控件的 Picture 属性可以给命令按钮指定一个图形。按钮的标题由属性 Caption 设置，可以在程序中动态指定。当一个命令按钮的 Cancel 属性被设置为 True 时，按 ESC 键与单击该命令按钮的作用相同。命令按钮能够响应单击事件，但不能响应双击事件。3.窗体上有一个名称为 VScroll1 的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScro
28、ll1.Value 的值等于( )。（分数：2.00）A.VScroll1.LargeChangeB.VScroll1.SmallChangeC.VScroll1.Max D.VScroll1.Min解析：解析：滚动条的 Value 属性表示滚动框在滚动条上的当前位置，默认值为 0，即在滚动条的左端或顶端，如果 Value 的值等于 Max 属性的值时，则滚动框在滚动条的最右端或底端。4.设运行程序时弹出的菜单如图所示.关于该菜单，以下叙述中错误的是( )。 （分数：2.00）A.菜单中能够显示分隔线是因为该菜单项的标题为“B.分隔线对应的菜单项的 Name 属性可以为空C.退出菜单项的有效性
29、属性被设为 FalseD.使用 PopupMenu 方法能够显示如图所示的菜单 解析：解析：在设计菜单时，如果在菜单标题栏输入“，则可以在菜单中加入一条分隔线，菜单中每一个菜单项，包括分隔线，都要有一个名称，即 Name 属性不能为空。菜单项有效性属性设为 Flase 时，则该项显示为灰色不可用状态。可以使用 PopupMenu 的方法显示弹出式菜单，格式为：PopupMenu 菜单名。5.窗体上有一个列表框控件 List1。以下叙述中错误的是( )。（分数：2.00）A.List1 中有 ListCount1 个列表项B.当 List1.Selected(i)True，表明第 i 项被选中
30、C.设置某些属性，可以使列表框显示多列数据D.List1.Text 的值是最后一次被选中的列表项文本解析：解析：列表框控件的列表项个数即为 ListCount 属性值。如果列表项的某项被选中，则该项的Selected 属性值为 True。列表框控件的 Columns 属性用来确定列表框的列数。Text 属性的值为最后一次选中的表项的文本，不能直接修改 Text 属性。6.以下关于单选按钮和复选框的叙述中，正确的是( )。（分数：2.00）A.单选按钮和复选框都能从多个选项中选择一项 B.单选按钮和复选框被选中时，选中控件的 Value 属性值为 TrueC.是否使用框架控件将单选按钮分组，对选
31、项没有影响D.是否使用框架控件将复选框分组，对选项没有影响解析：解析：复选框按钮可以同时选择多个，而在一组单选按钮中，只能选择其中的一个。单选按钮被选中时，其 Value 属性值为 True，如果没有被选中其 Value 值为 False，复选框的 Value 属性可以设置为0、1 和 2，分别代表没选中、选中和禁用。单选按钮一般用框架进行分组，每个框架内的单选按钮的操作不影响其他组的按钮，而复选框是否分组对选项没有影响。7.窗体的 MouseUp 事件过程如下：Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As
32、 Single， Y As Single) End Sub 关于以上定义，以下叙述中错误的是( )。（分数：2.00）A.根据 Shift 参数，能够确定使用转换键的情况B.根据 X、Y 参数可以确定触发此事件时鼠标的位置C.Button 参数的值是在 MouseUp 事件发生时，系统自动产生的D.MouseUp 是鼠标向上移动时触发的事件 解析：解析：MouseUp 事件是鼠标松开时触发的事件过程，事件过程的 Button 参数值由系统产生，为被按下的键，Shift 参数表示 Shift、Ctrl 和 Alt 键的状态，X、Y 参数表示光标的当前位置。8.窗体上有一个名称为 CD1 的通用对
33、话框，一个名称为 Command1 的命令按钮，相应的事件过程如下：Private Sub Command1_Click() CD1.Filter“All File|*.*|Text File|*.txt|Word|*.Doc“ CD1.FilterIndex2 CD1.FileName“E：/Test.ppt“ CD1.InitDir“E：“ CD1.ShowOpenEnd Sub 关于上述程序，以下叙述中正确的是( )。（分数：2.00）A.初始过滤器为“*.*“B.指定的初始目录为“E：“ C.以上程序代码实现打开文件的操作D.由于指定文件类型是.ppt，所以导致打开文件的操作失败解析：
34、解析：通用对话框的 FilterIndex 属性值表示默认的过滤器，值为 2 表示初始过滤器为过滤器中的第 2 个，即“*.txt“。InitDir 属性表示打开对话框时的初始目录。ShowOpen 方法表示显示打开文件对话框。打开文件通用对话框只是返回选中的文件，具体如何操作文件需要另行编程决定，因此不会导致文件打开失败。9.编写如下程序：Private Sub Command1_Click() Dim i As Integer， j As Integer nInputBox(“输入一个大于 1 的正整数“) For i2 To n For j2 To Sqr(i) If i Mod j0
35、Then Exit For Next j If jSqr(i)Then Print i Next iEnd Sub 该程序的功能是( )。（分数：2.00）A.判断 n 是否为素数B.输出 n 以内所有的奇数C.输出 n 以内所有的偶数D.输出 n 以内所有的素数 解析：解析：假设输入 2、4、9 进行验证，输入 2 时程序会输出 2，输入 4 时，程序会输出 2、3，可见程序不是判断 n 是否为素数，所以 A 不对。由前面验证可知，程序也不是输出 n 以内的所以奇数或偶数，所以 B、C 也不对。如果输入 9 时，程序会输出 2、3、5、7，说明程序是输出 n 以内的所有素数，所以 D 正确。
36、10.以下程序的功能是随机产生 10 个两位的整数：Option Base 1Private Sub Command1_Click() Dim a(10)As Integer Dim i As Integer Randomize For i1 To 10 a(i)Int(Rnd * 100)1 Print a(i) Next iEnd Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是( )。（分数：2.00）A.a(i)Int(Rnd * 100)B.a(i)Int(Rnd * 90)10 C.a(i)Int(Rnd * 100)10D.a(i)Int(Rnd
37、 * 101)解析：解析：由 Rnd 函数生成的随机数在 01 之间，包括 0 但不包括 1，所以有可能产生 0，与题目要求的两位的整数不符。所以语句 a(i)Int(Rnd * 100)1 需要修改为 a(i)Int(Rnd * 90)10，这样就能正确产生两位的整数了。11.在窗体上画一个名称为 Command1 的命令按钮，编写如下事件过程：Private Sub Command1_Click() n0 For i0 To 10 X2 * i1 If X Mod 30 Then nn1 Next i Print nEnd Sub 运行程序，单击命令按钮，则窗体上显示的是( )。（分数：2
38、.00）A.1B.3 C.5D.7解析：解析：Mod 是取模运算符，即求运算两数相除的余数。每次循环中 X 的值分别是1,1,3,5,7,9,11,13,15,17,19，其中与 3 求模为 0 的数有 3、9、15 共 3 个，因此 nn1 会执行 3 次，最终 n3。12.窗体上有名称为 Command1 的命令按钮，名称分别为 Label1、Label2、Label3 的标签。编写如下程序：Private x As IntegerPrivate Sub Command1_Click() Static y As Integer Dim z As Integer n5 zzn yyn xxy
39、 Label1x Label2y Label3zEnd Sub 运行程序，连续 3 次单击命令按钮后，3 个标签中分别显示的是( )。（分数：2.00）A.5 5 5B.15 10 5C.15 15 15D.30 15 5 解析：解析：变量 x 被定义为窗体模块变量，它在整个窗体模块中有效。Click 事件中变量 y 定义为Static，即静态变量，它的值在每调用过程时都会保留上次的值。每次单击按钮标签中显示的值即x、y、z 的值是： 第一次，n5，zzn055，yyn055，xxy055； 第二次，n5，zzn055，yyn5510，xxy51015； 第三次，n5，zzn055，yyn10
40、515，xxy151530； 因此 3 次单击命令按钮后，3个标签中分别显示的是 30 15 5。13.命令按钮 Command1 的事件过程如下：Private Sub Command1_Click() Dim arr(5， 5)As Integer Dim i As Integer， j As Integer For i1 To 4 For j2 To 4 arr(i， j)ij Next j Next i Print arr(1， 3)arr(3， 4)End Sub 执行上述过程，输出结果是( )。（分数：2.00）A.6B.7C.11 D.12解析：解析：当用 Dim 语句定义数组时
41、，该语句把数组中的全部元素都初始化为 0，而把字符串数组中的全部元素都初始化为空字符串。程序中利用 For 循环为数组 arr 的部分元素赋值这些元素的第一维范围是14，第二维的范围是 24，值为两维下标的和。程序要输出 arr(1， 3)arr(3， 4)的值，arr(1， 3)值为 134，arr(3， 4)值为 347。4711，因此程序输出结果为 11。14.现有程序如下：Option Base 1Private Sub Form_Click() Dim x(5， 6)As Integer， y(5)As Integer For i1 To 5 For j1 To 6 x(i， j)I
42、nt(Rnd * 91) Next j Next i Call f(5， 6， x， y) For i1 To 5 Print y(i)； Next iEnd SubSub f(m As Integer， n As Integer， a()As Integer， b()As Integer) For i1 To m b(i)0 For j1 To n b(i)b(i)a(i， j) Next j Next iEnd Sub 关于上述程序，以下叙述中正确的是( )。（分数：2.00）A.调用过程语句有错，参数不匹配B.程序有错，数组下标越界C.y 数组中保存的是 x 数组每行数据之和 D.x 数
43、组中数据的取值范围是 110解析：解析：程序利用 For 循环为数组 x 的 5 行 6 列元素以随机整数赋值，随机数的范围是从 1 到 9。过程 f 的功能是计算二维数组 a()的每一行中元素值的和，每一行的和存放在另一个数组 b()中，最后程序输出这些和值。因此 C 正确。15.窗体上有一个名称为 Label1 的标签；一个名称为 Timer1 的计时器，其 Enabled 和 Interval 属性分别为 True 和 1000。编写如下程序：Dim n As IntegerPrivate Sub Timer1_Timer() chChr(nAsc(“A“) Label1.Caption
44、ch nn1 nn Mod 4End Sub 运行程序，将在标签中( )。（分数：2.00）A.不停地依次显示字符“A“、“B“、“C“、“D“，直至窗体被关闭 B.依次显示字符“A“、“B“、“C“、“D“各一次C.每隔 1 秒显示字符“A“一次D.每隔 1 秒依次显示 26 个英文字母中的一个解析：解析：Asc 函数返回字符的 ASCII，Chr 函数将数值转换成相应的 ASCII 码字符。计时器间隔Interval 属性设置为 1000，则计时器事件每 1 秒钟发生一次。n 的值每次调用计时器事件过程都会加1，nn Mod 4 又会使 n 值只能为 0、1、2、3，因此程序运行后每 1
45、秒 Label1 标签将依次显示“A“、“B“、“C“、“D“。16.窗体上有一个名称为 Command1 的命令按钮，一个名称为 Text1 的文本框。编写如下程序：Private Sub Command1_Click() Dim x As Integer xVal(InputBox(“输入数据“) Text1Str(xfun(x)fun(x)End SubPrivate Function fun(ByRef n As Integer) If n Mod 30 Then nnn Else nn * n End If funnEnd Function 对于上述程序，以下叙述中错误的是( )。（
46、分数：2.00）A.语句 funn 有错，因为 n 是整型，fun 没有定义类型 B.运行程序，输入值为 5 时，文本框中显示 655C.运行程序，输入值为 6 时，文本框中显示 42D.ByRef 表示参数按址传递解析：解析：过程 fun 的功能是将传入的值运算后返回，当传入数值为 3 的整数倍时返回该值的 2 倍，否则返回该值的平方。过程 Fun 的参数指定为 ByRef 方式，即按址传递，因此会影响实参的值。Str 函数是将数值转换为字符串。过程 fun 定义时没有指明返回类型因此默认为 Variant 类型，它可以表示任何值，因此 A 选项的说法不正确。17.设工程文件中包名称分别为
47、Form1、Form2 的两个窗体，且 Form1 的菜单属性设置如下： （分数：2.00）A.Index 属性的值可以用来区分控件数组元素B.Index 为 1 的菜单项的标题可能会改变C.两个名称均为 Mnu1 的菜单项构成一个控件数组D.语句 Form2.Hide 将 Form2 卸载 解析：解析：程序中菜单 Mnu1 是一个控件数组，它们以 Index 属性值作为数组下标来区分各元素。在菜单单击事件中，Flag 值为真时，显示 Form2，同时把索引为 1 的菜单项标题改为“隐藏窗体 2“，然后把Flag 标志设为假；当 Flag 值为假时，隐藏 Form2，同时把索引为 1 的菜单项标题改为“显示窗体 2“，然后把 Flag 标志设为真。窗体 Hide 方法，只是将窗体隐藏，并没有从内容中卸载。因此 D 选项错。18.有如下程序：Private Sub Command1_Click() Dim i As Integer， j As Integer Dim sum As Integer n1 Do j1 Do sumsumj jj1 Print j； Loop Until j3 nn2 Loop Until n10 Print sumEnd Sub 运行上述程序，外层 Do 循环执行的次数为( )。（分数：2.00）A.4B.5 C.7D.1
