【计算机类职业资格】二级VISUAL+BASIC-98及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC-98及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC-98及答案解析.doc（19页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC-98 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列数据结构中，能用二分法进行查找的是_。（分数：2.50）A.无序线性表B.线性链表C.二叉链表D.顺序存储的有序表2.下列叙述中，不属于设计准则的是_。（分数：2.50）A.提高模块独立性B.使模块的作用域在该模块的控制域中C.设计成多入口、多出口模块D.设计功能可预测的模块3.下列队列的描述中，正确的是_。（分数：2.50）A.队列属于非线性表B.队列在队尾删除数据C.队列按“先进后出”进行数据操作D.队列按“先进先出”进行数据操作4.对下列二叉树

2、进行前序遍历的结果为_。 （分数：2.50）A.ABCDEFGHB.ABDGEHCFC.GDBEHACFD.GDHEBFCA5.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是_。（分数：2.50）A.冒泡排序为 n(n-1)/2B.简单插入排序为 nC.希尔排序为 nD.快速排序为 n/26.为了使模块尽可能独立，要求_。（分数：2.50）A.内聚程度要尽量高，耦合程度要尽量强B.内聚程度要尽量高，耦合程度要尽量弱C.内聚程度要尽量低，耦合程度要尽量弱D.内聚程度要尽量低，耦合程度要尽量强7.下列选项中不属于软件生命周期开发阶段任务的是_。（分数：2.50）A.

3、软件测试B.概要设计C.软件维护D.详细设计8.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指_。（分数：2.50）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对9.在学校中，“班级”与“学生”两个实体集之间的联系属于_关系。（分数：2.50）A.一对一B.一对多C.多对一D.多对多10.软件调试的目的是_。（分数：2.50）A.发现错误B.改善软件的性能C.改正错误D.验证软件的正确性11.下列不能打开菜单编辑器的操作是_。（分数：2.50）A.按 Ctrl+E 键B.单击工具栏中的“菜单编辑器”按钮C.执行“

4、工具”菜单中的“菜单编辑器”命令D.按 Shift+Alt+M 键12.以下_对象不能作为容器。（分数：2.50）A.FrameB.FromC.PictureBoxD.Image13.关于自定义数据类型，下面叙述中不正确的是_。（分数：2.50）A.自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明B.在窗体模块中定义自定义数据类型时必须使用 Private 关键字C.自定义数据类型只能在窗体模块的通用声明段进行声明D.自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型14.8.6787E+8 写成普通的十进制数是_。（分数：2.50）A.867870

5、00B.867870000C.8678700D.867870000015.设 x=4，y=8，z=7，则以下表达式的运算结果是_。 xy And(Not yz) Or zx（分数：2.50）A.1B.-1C.TrueD.False16.将文本框的_属性设置为 True 时，文本框可以输入或显示多行文本，且会自动换行。（分数：2.50）A.TextB.ScrollBarsC.MultiLineD.Enabled17.在窗体 Form1 上放一个名为 Text1 的文本框和一个名为 Command1 的命令按钮，然后编写一个事件过程。要求程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设

6、置为“VB 等级考试二级”。以下能正确实现上述操作的事件过程是_。（分数：2.50）A.Private Sub Text1_Change()Command1.Caption=“VB 等级考试二级“End SubB.Private Sub Command1_Click()Caption=“VB 等级考试二级“End SubC.Private Sub Form1_Click()Text1.Caption=“VB 等级考试二级“End SubD.Private Sub Command1_Click()Text1.Text=“VB 等级考试二级“End Sub18.设 a 是整型变量，与函数 IIf(

7、a0, -a, a)有相同结果的代数式是_。（分数：2.50）A.|a|B.-|a|CaD.-a19.在窗体上画一个名称为 Text1 的文本框，然后画一个名称为 Hscroll1 的滚动条，其 Min 和 Max 属性分别为 0 和 1000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是_。（分数：2.50）A.Private Sub Hscroll1_Change()Text1.Text=HScroll1.ValueEnd SubB.Private Sub Hscroll1_Click()Text1.Text=HScroll1.ValueEnd Su

8、bC.Private Sub Hscroll1_Change()Text1.Text=Hscroll1.CaptionEnd SubD.Private Sub Hscroll1_Click()Text1.Text=Hscroll1.CaptionEnd Sub20.下列可以打开立即窗口的操作是_。（分数：2.50）A.Ctrl+DB.Ctrl+EC.Ctrl+FD.Ctrl+G21.下列程序段的执行结果为_。 x=Int(Rnd+3) Select Case x Case 5 Print “A Row“ Case 4 Print “B Row“ Case 3 Print “C Row“ Cas

9、e Else Print “D Row“ End Select（分数：2.50）A.A RowB.B RowC.C RowD.D Row22.以下能够正确退出循环的是_。（分数：2.50）A.i=10Doi=i+1Loop Until i10B.i=1Doi=i+1Loop Until i=10C.i=10Doi=i+1Loop Until i0D.i=1Doi=i-3Loop Until i=023.下列程序执行后，其输出结果为_。 Dim a(5) For i=0 To 4 a(i)=i+1:m=i+1 If m=3 Then a(m-1)=a(i-2) Else a(m)=a(i) If

10、 i=2 Then a(i-1)=a(m-3) a(4)=i Print a(i); Next i（分数：2.50）A.1 1 1 4 4B.1 2 3 4 1C.1 1 1 4 4D.1 1 1 4 124.编写如下事件过程： Private Sub Form_Activate() Dim score(1 To 3)As Integer Dim i As Integer, t As Variant For i=3 To 1 Step-1 score(i)=2 * i Next i For Each t In score Print t; Next End Sub 程序运行后窗体上显示_。（分

11、数：2.50）A.6 4 2B.2 4 6C.2D.625.设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a=Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是_。（分数：2.50）A.4 3 2 1B.5 4 3 2C.6 5 4 3D.7 6 5 426.表达式 4+5/6*7/8 Mod 9 的值是_。（分数：2.50）A.4B.5C.6D.727.在窗体上有一

12、个名为 Text1 的文本框和一个名为 Command1 的命令按钮，并编写有如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的是_。（分数：2.50）A.2B.3C.4D.528.在窗体上画一个名称为 Text1 的文本框，然后画 3 个单选按钮，并用这 3 个单选按钮建立一个名为Option1 的控件数组，程序

13、运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图所示。请选择适合空白处的语句_。 （分数：2.50）A.Option TextB.Index TextC.Index FontD.Option Font29.设有如下通用过程： Public Sub Fun(a()As Integer, x As Integer) For i=1 To 4 x=x*a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(5)

14、 As Integer, n As Integer n=1 For i=1 To 4 arr(i)=i+i Next Fun arr, n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是_。（分数：2.50）A.30B.25C.20D.1530.在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char) Text1.Text=Stri

15、ng(6, KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为_。（分数：2.50）AaBAC.aaaaaaD.AAAAAA31.以下对文件分类的划分不正确的是_。（分数：2.50）A.文件分为程序文件和数据文件B.文件分为有结构文件和无结构文件C.文件分为 ASCII 文件和二进制文件D.文件分为顺序文件和随机文件32.在窗体上有一个名称为 Command1 的命令按钮，并编写有如下事件过程： Private Sub Command1_Click() Dim rec As animal Open“c:/vbTest.dat“ For Rando

16、m As #1 Len=Len(rec) rec.animalName=“cat“ rec.aColor=“White“ Put #1,rec Close #1 End Sub 记录类型定义如下： Private Type animal animalName As String*20 aColor As String*10 End Type 下列叙述中正确的是_。（分数：2.50）A.记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义B.如果文件 c:/vbTest.dat 不存在，则 Open 命令执行失败C.由于 Put 命令中没有指明记录号，因此每次都把记录写到文件

17、的末尾D.语句“Put#1,rec”将 animal 类型的两个数据元素写到文件中33.文本框接受的最长字符数由文本框的_属性确定。（分数：2.50）A.MaxLengthB.MultiLineC.WidthD.Text34.以下事件过程的功能是：从已存在于磁盘上的顺序文件 Num1.txt 中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件 Num2.txt 中。则在以下横线处合适的语句是_。 Private Sub Form_Click() Dim x As Single, y As Single Open“Num1.txt“For Input As #1 Open“Nu

18、m2.txt“For Output As #2 Do While Not EOF(1) _ Print x y=x2 _ Print y Loop Close #1, #2 End Sub（分数：2.50）A.Input #1, y Print #2, x, yB.Input #2, x Print #1, x, yC.Print #1, x Input #2, x, yD.Input #1, x Print #2, x, y35.下列程序的执行结果为_。 n=0 j=1 Do Until n2 n=n+1:j=j+n*(n+1) Loop Print n; j（分数：2.50）A.0 1B.

19、3 7C.3 21D.3 1336.下列程序在运行时输出的结果是_。 Option Base 1 Private Sub Form_Click() Dim x(10) For i=1 To 10 x(i)=10-i+1 Next i For i=10 To 1 Step-2 Print x(i) Next i End Sub（分数：2.50）A.1 3 5 7 9B.9 7 5 3 1C.1 2 3 4 5 6 7 8 9 10D.10 9 8 7 6 5 4 3 2 137.运行下列程序时，输出的结果是_。 Private Sub Form_Click() Dim x x=Array(“So

20、ftware“, “and“, “Hardware“, “System“) For i=LBound(x, 1) To UBound(x, 1) If Left(x(i), 1)=“S“ Then Print x(i); Next i End Sub（分数：2.50）A.SoftwareB.SoftwareSystemC.出错信息D.SoftwareandHardwareSystem38.窗体上命令按钮 Command1 的事件过程如下： Option Base 1 Private Sub Command1_Click() Dim a(4, 4)As Variant For i=1 To 4

21、For j=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(i, j) Next j Next i End Sub 该程序执行后，输出结果是_。（分数：2.50）A.9101213B.7101213C.9121013D.81191239.用 Line Input 语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到_分隔符，即认为一行的结束。（分数：2.50）A.文件结束符B.回车符C.空格D.Tab 字符40.有以下程序段，当在消息框中输入 8 后，y 的值为_。 x=InputBox(

22、“Enter an Integer“) x=CInt(x) Select Case x Case Is=0 y=0 Case Is=10 y=5+2*x Case Is=15 y=x-5 Case Is15 y=0 End Select（分数：2.50）A.18B.19C.20D.21二级 VISUAL+BASIC-98 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列数据结构中，能用二分法进行查找的是_。（分数：2.50）A.无序线性表B.线性链表C.二叉链表D.顺序存储的有序表 解析：解析 二分法查找只适用于顺序存储的有序表，表中的

23、元素按值从小到大排列。2.下列叙述中，不属于设计准则的是_。（分数：2.50）A.提高模块独立性B.使模块的作用域在该模块的控制域中C.设计成多入口、多出口模块 D.设计功能可预测的模块解析：解析 大量软件设计表明，以下的设计准则是可以借鉴为设计的指导和对软件结构图进行优化，这些准则是：提高模块独立性；模块规模适中；深度、宽度、扇出和扇入适当；使模块的作用域在该模块的控制域中；应减少模块的接口和界面的复杂性；设计成单入口、单出口的模块；设计功能可预测的模块。3.下列队列的描述中，正确的是_。（分数：2.50）A.队列属于非线性表B.队列在队尾删除数据C.队列按“先进后出”进行数据操作D.队列按

24、“先进先出”进行数据操作 解析：解析 队列是只允许在一端删除，在另一端插入的顺序表，允许删除的一端叫做队头，允许插入的一端叫做队尾。队列的操作数是依据先进先出的原则进行的。因此队列亦称作先进先出的线性表，或后进后出的线性表。4.对下列二叉树进行前序遍历的结果为_。 （分数：2.50）A.ABCDEFGHB.ABDGEHCF C.GDBEHACFD.GDHEBFCA解析：解析 遍历就是不重复地访问二叉树的所有结点。二叉树遍历的方法有 3 种：前序遍历、中序遍历和后序遍历。记住 3 种遍历的顺序：前序，访问根按前序遍历左子树按前序遍历右子树；中序，按中序遍历左子树访问根按中序遍历右子树；后序，按后

25、序遍历左子树按后序遍历右子树访问根。 所以对该二叉树的中序遍历结果为 ABDGEHCF。5.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是_。（分数：2.50）A.冒泡排序为 n(n-1)/2 B.简单插入排序为 nC.希尔排序为 nD.快速排序为 n/2解析：解析 在最坏情况下，冒泡排序所需要的比较次数为 n(n-1)/2；简单插入排序所需要的比较次数为 n(n-1)/2；希尔排序所需要的比较次数为 O(n 1.5 )；堆排序所需要的比较次数为 O(nlog 2 n)。6.为了使模块尽可能独立，要求_。（分数：2.50）A.内聚程度要尽量高，耦合程度要尽量强B

26、.内聚程度要尽量高，耦合程度要尽量弱 C.内聚程度要尽量低，耦合程度要尽量弱D.内聚程度要尽量低，耦合程度要尽量强解析：解析 模块独立性是指每个模块只完成系统要求的独立的子功能，并且与其他模块的联系最少且接口简单。耦合性与内聚性是模块独立性的两个定性标准，耦合与内聚是相互关联的。在程序结构中，各模块的内聚性越强，则耦合性越弱。一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。7.下列选项中不属于软件生命周期开发阶段任务的是_。（分数：2.50）A.软件测试B.概要设计C.软件维护 D.详细设计解析：解析 软件生命周期分为软件定义

27、、软件开发及软件运行维护三个阶段，其中开发阶段包括概要设计、详细设计、实现和测试。8.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指_。（分数：2.50）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对 解析：解析 数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。所以选项 A，选项 B 和选项 C 都不正确。9.在学校中，“班级”与“学生”两个实体集之间的联系属于_关系。（分数：2.50）A.一对一B.一对多 C.多对一D.多对多解析：解析 一个班可以有多名学生，而一名学生只能

28、属于一个班级，所以“班级”与“学生”两个实体集之间的联系属于一对多关系。10.软件调试的目的是_。（分数：2.50）A.发现错误B.改善软件的性能C.改正错误 D.验证软件的正确性解析：解析 在对程序进行了成功的测试之后将进入程序调试，程序调试的任务是诊断和改正程序中的错误。11.下列不能打开菜单编辑器的操作是_。（分数：2.50）A.按 Ctrl+E 键B.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按 Shift+Alt+M 键 解析：解析 在 VB 中打开菜单编辑器有 4 种方式：执行“工具”菜单中的“菜单编辑器”命令；使用热键 Ctrl+E；单击工具栏

29、中的“菜单编辑器”按钮；在要建立菜单的窗体上单击鼠标右键，将弹出一个菜单，然后单击“菜单编辑器”命令。12.以下_对象不能作为容器。（分数：2.50）A.FrameB.FromC.PictureBoxD.Image 解析：解析 本题考查容器。容器是指可以容纳其他控件的控件。VB 中常用来作为容器的有框架、窗体和图片框(PictureBox)。13.关于自定义数据类型，下面叙述中不正确的是_。（分数：2.50）A.自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明B.在窗体模块中定义自定义数据类型时必须使用 Private 关键字C.自定义数据类型只能在窗体模块的通用声明段进行声明 D.

30、自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型解析：解析 本题考查自定义数据类型。Type 语句用于定义自定义数据类型，可以声明在窗体的通用部分或者标准模块中，窗体自定义必须说明为 Private 属性。自定义数据类型含有一个或一个以上的成员，每个成员可以被定义为不同的已经存在的数据类型。14.8.6787E+8 写成普通的十进制数是_。（分数：2.50）A.86787000B.867870000 C.8678700D.8678700000解析：解析 本题考查浮点数的表示。E 表示 10，后面的整数为 10 的幂。也就是数学中的 8.678710 8 形式

31、。15.设 x=4，y=8，z=7，则以下表达式的运算结果是_。 xy And(Not yz) Or zx（分数：2.50）A.1B.-1C.TrueD.False 解析：解析 本题考查逻辑运算。将操作数进行逻辑运算，结果是逻辑值。常见的逻辑运算有逻辑与和逻辑或，格式分别为：“条件表达式 1 And 条件表达式 2”，条件表达式均为 T 时结果为 T；“条件表达式 1 Or 条件表达式 2”，有一个条件表达式为 T 时结果为 T。Not 为取反运算，若 xy 为 True，则 Not yz 为 False，因此 And 运算结果为 False；又因为 zx 为 False，所以 Or 运算为

32、False。16.将文本框的_属性设置为 True 时，文本框可以输入或显示多行文本，且会自动换行。（分数：2.50）A.TextB.ScrollBarsC.MultiLine D.Enabled解析：解析 本题考查文本框的常见属性。文本框的 Text 属性存放输入的数据，而 MultiLine 属性的作用为设置是否为多行，默认为 False，此时不能显示多行；当设置为 True 时，允许显示多行文本。当MultiLine 属性为 True 时，可以通过设置 ScrollBars 属性来显示滚动条。17.在窗体 Form1 上放一个名为 Text1 的文本框和一个名为 Command1 的命令

33、按钮，然后编写一个事件过程。要求程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“VB 等级考试二级”。以下能正确实现上述操作的事件过程是_。（分数：2.50）A.Private Sub Text1_Change()Command1.Caption=“VB 等级考试二级“End Sub B.Private Sub Command1_Click()Caption=“VB 等级考试二级“End SubC.Private Sub Form1_Click()Text1.Caption=“VB 等级考试二级“End SubD.Private Sub Command1_Click()Tex

34、t1.Text=“VB 等级考试二级“End Sub解析：解析 本题考查文本框的事件。文本框的 Click 事件是单击文本框时触发的，Change 事件是每次文本框中文本发生改变时都触发的事件。题中要求当文本框的字符改变以后实现要求，因此应通过文本框的 Change 事件更改 Command1 的 Caption 属性。18.设 a 是整型变量，与函数 IIf(a0, -a, a)有相同结果的代数式是_。（分数：2.50）A.|a|B.-|a| CaD.-a解析：解析 IIf 函数可以用来执行简单的条件判断操作，它是“IfThenElse“结构的简写版本，其格式为：result=IIf(条件，

35、True 部分，False 部分)。其中“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf 函数返回“True 部分”，否则返回“False 部分”。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题中 IIf 函数的作用是如果 a0 则返回-a，否则返回 a，等价于-|a|。19.在窗体上画一个名称为 Text1 的文本框，然后画一个名称为 Hscroll1 的滚动条，其 Min 和 Max 属性分别为 0 和 1000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是_。（分数：2.50）A.Pri

36、vate Sub Hscroll1_Change()Text1.Text=HScroll1.ValueEnd Sub B.Private Sub Hscroll1_Click()Text1.Text=HScroll1.ValueEnd SubC.Private Sub Hscroll1_Change()Text1.Text=Hscroll1.CaptionEnd SubD.Private Sub Hscroll1_Click()Text1.Text=Hscroll1.CaptionEnd Sub解析：解析 本题考查滚动条的事件和属性。滚动条上滑块的位置决定了其 Value 属性的值，当滑块的位

37、置发生改变时，将触发滚动条的 Change 事件。因此，要想在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的 Change 事件中将滚动条的 Value 属性值赋值给文本框的 Text 属性来实现。20.下列可以打开立即窗口的操作是_。（分数：2.50）A.Ctrl+DB.Ctrl+EC.Ctrl+FD.Ctrl+G 解析：解析 Ctrl+D快捷键打开的是添加文件对话框；Ctrl+E快捷键打开的是菜单编辑器对话框；Ctrl+F快捷键不打开任何对话框；Ctrl+G快捷键打开的是立即窗口。21.下列程序段的执行结果为_。 x=Int(Rnd+3) Select Case x Case

38、5 Print “A Row“ Case 4 Print “B Row“ Case 3 Print “C Row“ Case Else Print “D Row“ End Select（分数：2.50）A.A RowB.B RowC.C Row D.D Row解析：解析 本题考查 Select 语句的执行。Rnd 产生0，1)范围内的数，Int()函数取不大于参数的最小整数，因此 x 的值总为 4。Select Case 语句的功能是在各个 Case 分支中寻找 x 的位置，找到则执行该分支的语句，执行完毕退出 Select Case 语句。22.以下能够正确退出循环的是_。（分数：2.50）

39、A.i=10Doi=i+1Loop Until i10B.i=1Doi=i+1Loop Until i=10 C.i=10Doi=i+1Loop Until i0D.i=1Doi=i-3Loop Until i=0解析：解析 本题考查 Do 型循环，对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件是否成立，至少执行一次循环体。由 Until 引出的循环条件为 False 时执行循环体，条件为 True 时退出循环；选项 A 中循环变量在 10 的基础上逐渐增加，不可能小于 10；选项 B 中循环变量的步长为 1，

40、初值为 1，可能到达 10，然后退出循环。而选项 C 和 A 相似。选项 D 中循环变量的步长为-3，不可能等于 0。23.下列程序执行后，其输出结果为_。 Dim a(5) For i=0 To 4 a(i)=i+1:m=i+1 If m=3 Then a(m-1)=a(i-2) Else a(m)=a(i) If i=2 Then a(i-1)=a(m-3) a(4)=i Print a(i); Next i（分数：2.50）A.1 1 1 4 4B.1 2 3 4 1C.1 1 1 4 4 D.1 1 1 4 1解析：解析 本题考查数组元素的赋值。数组 a 在循环中为数据赋值，循环变量

41、i 从 0 到 4，步长为 1。如果 i 等于 2，则将 a(0)的值赋给 a(2)；如果 m 等于 3，则将 a(0)的值赋给 a(1)。因此数组元素的值为：1 2 1 4 4。24.编写如下事件过程： Private Sub Form_Activate() Dim score(1 To 3)As Integer Dim i As Integer, t As Variant For i=3 To 1 Step-1 score(i)=2 * i Next i For Each t In score Print t; Next End Sub 程序运行后窗体上显示_。（分数：2.50）A.6 4

42、 2B.2 4 6 C.2D.6解析：解析 本题考查 For Each in 循环。For Each in 循环格式为：For Each 变体变量 in 数缀Next，For Each in 循环在本题中的功能是：依次从数组 score 中取出每一个元素放到变量 t 中并输出。数组 score 中的元素从 1 到 3 分别为：2 4 6。25.设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a=Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i=0 To 3 Print a(5

43、-i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是_。（分数：2.50）A.4 3 2 1B.5 4 3 2C.6 5 4 3 D.7 6 5 4解析：解析 本题考查交体数组。题中定义了一个下标从 0 开始的变体数组 a，然后利用 Array 函数初始化数组 a 中的数据，最后通过 For 循环输出数组中 a(5)、a(4)、4(3)、a(2)四个元素的值，分别为：6 5 4 3。26.表达式 4+5/6*7/8 Mod 9 的值是_。（分数：2.50）A.4B.5 C.6D.7解析：解析 一个表达式可能含有多种运算，计算机按一定的顺序对表达式求值。一般顺序如下：(1

44、)首先进行函数运算；(2)接着进行算术运算，其次序为：算术运算符，幂运算符()优先级最高，其次是取负运算(-)、乘(*)、浮点除(/)、整除(/)、取模(Mod)、加(+)、减(-)、字符串连接符( j（分数：2.50）A.0 1B.3 7C.3 21 D.3 13解析：解析 本题考查循环程序的分析。在 Do Until 循环中如果 n 小于等于 2，那么把 n*(n+1)的结果累加到 j 上。因此程序的功能为：循环变量 n 从 0 开始到 2 共执行了 3 次，目的为计算 1+1*2+2*3+3*4。36.下列程序在运行时输出的结果是_。 Option Base 1 Private Sub

45、Form_Click() Dim x(10) For i=1 To 10 x(i)=10-i+1 Next i For i=10 To 1 Step-2 Print x(i) Next i End Sub（分数：2.50）A.1 3 5 7 9 B.9 7 5 3 1C.1 2 3 4 5 6 7 8 9 10D.10 9 8 7 6 5 4 3 2 1解析：解析 本题考查数组元素的赋值。数组 x 元素的下标从 1 到 10，元素分别为：10-下标+1(也就是10 9 8 7 6 5 4 3 2 1)。循环结束后，从高下标端输出偶数下标的元素。37.运行下列程序时，输出的结果是_。 Priva

46、te Sub Form_Click() Dim x x=Array(“Software“, “and“, “Hardware“, “System“) For i=LBound(x, 1) To UBound(x, 1) If Left(x(i), 1)=“S“ Then Print x(i); Next i End Sub（分数：2.50）A.SoftwareB.SoftwareSystem C.出错信息D.SoftwareandHardwareSystem解析：解析 本题考查变体类型。变体类型变量可通过 Array 函数来存放多个元素，做为数组进行处理。要读取数组上界时，可使用 UBound

47、(x)来实现，要读取数组下界时，LBound(x)来实现。因为题中 x 存放了多个字符串，i 表示第一个字符串的行下标的下界，UBound(x，1)表示第一个字符串的行下标的上界。利用 Left 函数取得每一行数组元素的最左边的字符，然后判断是否为“S”，如果是，则输出该元素。38.窗体上命令按钮 Command1 的事件过程如下： Option Base 1 Private Sub Command1_Click() Dim a(4, 4)As Variant For i=1 To 4 For j=1 To 4 a(i, j)=(i-1)*3+j Next j Next i For i=3 T

48、o 4 For j=3 To 4 Print a(i, j) Next j Next i End Sub 该程序执行后，输出结果是_。（分数：2.50）A.9101213 B.7101213C.9121013D.811912解析：解析 本题考查二维数组元素的赋值。二维数组中 a 中第 i 行 j 列元素为(i-1)*3+j，i、j 分别从 3 变化到 4，因此，输出 a(3，3)、a(3，4)、a(4，3)、a(4，4)的元素为：9 10 12 13。39.用 Line Input 语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到_分隔符，即认为一行的结束。（分数：2.50）A.文件结束符B.回车符 C.空格D.Tab 字符解析：解析 本题考查行结束标志。文件中用 EOF 测试是否到达末尾；而用“回车符”确定是否结束一行。40.有以下程序段，当在消息框中输入 8 后