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

资源描述

1、二级 VISUAL+BASIC 笔试-143 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.以下定义数组或给数组元素赋值的语句中，正确的是（分数：2.00）A.Dim x%(2)x(1)=“等级考试“B.Dim x(3)， y(3)As Integerx(0)=1：y=xC.Dim xx=Array(0，1，2)D.Dim x(3)As Integerx=Array(0，1，2)2.阅读下面的程序：Private Sub Form_Click()Dim m，n As Integerm=InputBox(“请输入 M 的值“)m=Val(m

2、)m1=mn=InputBox(“请输入 N 的值“)n=Val(n)n1=nDo While n0remin=m Mod nm=nn=reminLoopPrint m1，n1，mEnd Sub程序运行后，单击窗体，在对话框中分别输入 16 和 24，则程序在窗体上的输出结果为（分数：2.00）A.16 24 4B.16 24 8C.24 16 6D.24 16 83.为了将窗体上的某个控件变为活动的，应执行的操作是（分数：2.00）A.单击窗体的边框B.单击该控件的内部C.双击该控件D.双击窗体4.使用链表来表示线性表的优点是（分数：2.00）A.便于插入和删除操作B.数据元素的物理顺序与逻

3、辑顺序相同C.花费的存储空间较顺序存储少D.便于随机存取5.在窗体上画一个名称为 Timet1 的计时器、一个名称为 Commandl 的命令按钮和一个名称为 Labell 的标签。编写程序如下：Private Sub Command1_Click()Timer1Enabled=TrueTimer1Interval=1000End SubPrivate Sub Timerl Timer()LabellLeft=LabellLeft + 10End Sub当运行程序后，单击命令按钮，将会产生（分数：2.00）A.每秒钟显示一次系统时间B.每 10 秒钟显示一次系统时间C.每秒钟标签向右移一段距离

4、D.每秒钟标签向左移一段距离6.对数据元素序列(49，72，68，13，38，50，97，27)进行排序，前 3 趟排序结束时的结果依次为，第 1趟：13，72，68，49，38，50，97，27：第 2 趟：13，27，68，49，38，50， 97，72；第 3 趟：13，27，38，49，68，50，97，72。该排序采用的方法是（分数：2.00）A.插入排序法B.选择排序法C.冒泡排序法D.快速排序法7.在软件生命周期中，所花费用最多的阶段是（分数：2.00）A.详细设计B.软件编码C.软件测试D.软件维护8.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指（分数：2.00）A

5、.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对9.用树形结构来表示实体之间联系的模型称为（分数：2.00）A.关系模型B.网状模型C.层次模型D.以上三个都是10.算法的空间复杂度是指（分数：2.00）A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间11.假定窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（分数：2.00）A.单击窗体上没有控件的地方B.单击任一个控件C.不执行任何操作D.双击窗体的标题栏12.在窗体上画一个名

6、称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim m(10)As IntegerDim b(3)As Integers = 0For i=1 To 10m(i)=iNext iFor i=1 To 3b(i)=m(i * i)Next iFor i=1 To 3s = s + b(i)*3Next iPrint sEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.78B.10C.33D.4213.为了使图像(Image)控件中的图像自动适宜控件的大小，下列叙述正确的是（分数：2.00）A.将

7、控件的 AutoSize 属性设为 TrueB.将控件的 AutoSize 属性设为 FalseC.将控件的 Stretch 属性设为 TrueD.将控件的 Stretch 属性设为 False14.设有如下通用过程：Public Function f(x As Integer)Dim y As Integerx = 10： y = 5f = x * yEnd Function在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As Integerx = 2：y = 6y = f(x)Print x

8、； yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.2 6B.10 5C.10 50D.6 1015.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static x As IntegerStatic y As IntegerClsy = 1y = x+2x = 4 + yPrint x， yEnd Sub程序运行时，三次单击命令按钮 Command1 后，窗体上显示的结果为（分数：2.00）A.3 4B.18 14C.15 14D.7 1216.下列成员中不属于主窗口的是（

9、分数：2.00）A.最大化按钮B.状态栏C.系统菜单D.工具栏17.编写如下事件过程：Option Base 1Private Sub Form Click()Dim x1()As IntegerDim i As IntegerDim s As IntegerReDim x1(3)For i = 1 To UBound(x1)x1(i)=i + 1Next iCall sub1(x1)For i = 1 To UBound(x1)s = s + x1(i)Next iPrint sEnd SubPrivate Sub sub1(n()As Integer)Dim i As IntegerReD

10、im Preserve n(5)For i = 3 To 5n(i)=n(i-1)*2Next iEnd Sub程序运行后，单击窗体，则窗体上显示的内容是（分数：2.00）A.6B.12C.24D.4718.软件调试的目的是（分数：2.00）A.发现错误B.改正错误C.改善软件的性能D.挖掘软件的潜能19.下面 4 个选项中，不是窗体属性的是（分数：2.00）A.MinButtonB.MaxButtonC.CaptionD.Load20.设已经在窗体上添加了一个通用对话框控件 CommonDialog1，以下正确的语句是（分数：2.00）A.CommonDialog1Filter=AllFil

12、o 4Arr(i，j)=(i-1)*2+jNext jNext iFor i=3 To 4For j=3 To 4Print Arr(j，i)；Next jPrintNext iEnd Sub程序运行后，单击窗体，输出的结果为（分数：2.00）A.5 7 6 8B.6 8 7 9C.7 9 8 10D.8 10 8 1123.在显示菜单时，菜单项的下列哪个属性为 True 时将用浅灰色显示该菜单项标题（分数：2.00）A.CaptionB.CheckedC.EnabledD.Visible24.假定程序中有如下语句：answer=MsgBox(“第一个字符串“，vbAbortRetryIgno

13、re Or vbCritical_ Or vbDefaultButton3，“第二个字符串“)执行该语句后，将显示一个信息框，此时如果按回车键，则 answer 的值为（分数：2.00）A.“第二个字符串“B.5C.3D.725.编写如下事件过程：Option ExplicitPrivate Sub Form_Click()Dim Str As String， I As IntegerOpen “examp“ For Output As 1For I=1 To 5Str=Chr(I+64)Print #1，Str；Next IClose 1Open”examp，For lnput AS 2St

14、r=Input(10，#2)Print Str；Close 2End Sub程序运行后，单击窗体，则窗体上显示的内容是（分数：2.00）A.ABCDEB.96C.65D.abcde26.下面语句中错误的是（分数：2.00）A.ReDim Preserve x(10，Ubound(x，2)+1)B.ReDim Preserve x(Ubound(x，1)+1，10)C.ReDim Preserve y(Ubound(y)+1)D.ReDim y(Ubound(y)+1)27.设一棵树 T 的度为 4，其中度为 1，2，3，4 的结点个数分别为 4，2，1，1。则 T 中的叶子结点为（分数：2.0

15、0）A.8B.7C.6D.528.在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码：Private Sub Command1_Click()k=0Do While k 70k=k+2k=k*k+ka=a+kLoopText1Text=aEnd Sub程序运行后，文本框中显示的是（分数：2.00）A.20B.32C.44D.7829.为了在按下回车键时执行某个命令按钮的事件过程，需要将该命令按钮的一个属性设置为 True，这个属性是（分数：2.00）A.ValueB.DefaultC.CantelD.Enabled30.在窗体中画一个命令按钮，然后编写以下事件过程：Private Sub

16、 Command1_Click()For i=1 To 4x=4For j=1 To 3x = 3For k=1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是（分数：2.00）A.7B.15C.157D.53831.对长度为 n 的线性表进行顺序查找，在最坏的情况下所需要的比较次数为（分数：2.00）A.log2nB.n/2C.nD.n+132.编写如下事件过程：Private Sub Form KeyDown(KeyCode As Integer，Shift As Integer)If(Button And 3

17、)=3 ThenPrint “AAAA“End IfEnd Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为（分数：2.00）A.左B.右C.同时按下左、右D.按什么键都不显示33.在窗体上画一个文本框 Text1、一个标签 Label1 和一个命令按钮 Command1，然后编写如下两个事件过程：Private Sub Command1_Click()a=InputBox(“请输入一个字符串“)Text1Text=aEnd SubPrivate Sub Textl_Change()Label1Caption=UCase(Mid(Text1Text，8)End Sub程序运行后

18、，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic”，则在标签中显示的内容是（分数：2.00）A.visual basicB.VISUAL BASICC.basicD.BASIC34.源程序的文档化不包括（分数：2.00）A.符号名的命名要有实际意义B.正确的文档格式C.良好的视觉组织D.正确的程序注释35.下列语句正确的是（分数：2.00）A.If xy Then Print “x 不等于 y“B.If xy Then Print “x 不等于 y“C.If xy Then Print “x 不等于 y“D.If xy Print “x 不等于 y“二

19、、填空题(总题数：11，分数：30.00)36.在一个容量为 15 的循环队列中，若头指针 front=6，尾指针 rear=9，则该循环队列中共有【1】个元素。（分数：2.00）填空项 1:_37.具有 80 个结点的完全二叉树的深度为【2】。（分数：2.00）填空项 1:_38.使用已经存在的类作为基础建立新类的定义，这种技术叫做类的【3】。（分数：2.00）填空项 1:_39.数据流图的类型有【4】和事务型。（分数：2.00）填空项 1:_40.在关系模型中，表 A 中的某属性集是某表 B 的键，则称该属性集为 A 的【5】。（分数：2.00）填空项 1:_41.在用

20、sual Basic 开发应用程序时，一般需要建立可视用户界面、设置对象属性和【6】 3 步。（分数：2.00）填空项 1:_42.设有如下程序：Private Sub Form_Click()a=32548.56Print Format(Int(a*10+0.5)/10，“000，000.00“)End Sub程序运行后，单击窗体，输出结果为【7】。（分数：2.00）填空项 1:_43.在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Dhvel、 Dirl 和File1。为了使它们同步操作，必须触发 Drive1_Change()事件和 Dir1_Change

21、()事件，在这两个事件中执行的语句分别是【8】和【9】。（分数：4.00）填空项 1:_44.要想在文本框中显示垂直滚动条，必须将【10】属性设置为 2，同时还应将 MultiLine 属性设置为True。（分数：2.00）填空项 1:_45.组合框有 3 种不同的类型，这 3 种类型是下拉式组合框、简单组合框、下拉式列表框，分别通过将【11】属性设置为 0、1、2 宋实现。（分数：2.00）填空项 1:_46.要打印出 50 个在-100100 之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。Option Base 1Private Sub Com

22、mand1_Click()Dim b()Randomize【12】 Dox=RndIf x0.5 Then y=1 Else y=-1t=y*Int(Rnd*100)+1【13】 Do While kjIf t b(k)Thenk = k + 1ElseExit DoEnd IfLoopIf k=j ThenReDim Preserve b(k)b(k)=tPrint b(k)；j=j+1End IfLoop Until j50Print【14】 Max=b(1)For n=2 To 50If b(n)Max Then【15】 p = nEnd IfNext nPrint “最大数是：“；Ma

23、xPrint “位置在第“；p；“个“End Sub（分数：8.00）填空项 1:_二级 VISUAL+BASIC 笔试-143 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.以下定义数组或给数组元素赋值的语句中，正确的是（分数：2.00）A.Dim x%(2)x(1)=“等级考试“B.Dim x(3)， y(3)As Integerx(0)=1：y=xC.Dim xx=Array(0，1，2) D.Dim x(3)As Integerx=Array(0，1，2)解析：分析在选项 A 中，用类型说明符“%”放在变量名 x 的尾部来标识该变

24、量为整型数组，执行语句“x(1)=“等级考试“”会产生“类型不匹配”的错误。在选项 B 中，执行语句“y=x”，会产生“不能给数组赋值”的错误。在使用 Array 函数对数组进行初始化时，数组变量不能是具体的数据类型，只能是Variant(变体)类型。所以选项 C 是正确的，选项 D 是错误的。2.阅读下面的程序：Private Sub Form_Click()Dim m，n As Integerm=InputBox(“请输入 M 的值“)m=Val(m)m1=mn=InputBox(“请输入 N 的值“)n=Val(n)n1=nDo While n0remin=m Mod nm=nn=rem

25、inLoopPrint m1，n1，mEnd Sub程序运行后，单击窗体，在对话框中分别输入 16 和 24，则程序在窗体上的输出结果为（分数：2.00）A.16 24 4B.16 24 8 C.24 16 6D.24 16 8解析：分析本题捉供的是用“辗转相除法”求两个整数最大公约数的程序。一般来说，假定有两个整数 m 和 n(mn)，将 m 作为被除数， n 作为除数，相除后余数为 r。如果 r 不等于 0，则令 m=n，n=r，再进行一次除法运算(以新的 m 作为被除数，n 作为除数)，得到新的 r。如果 r 仍不等于 0，则重复上述过程，直到 r=0 为止，此时的 n 就是两个数的最

26、大公约数。在本题的 Do While-Loop 循环中，通过辗转相除求最大公约数，循环结束的条件是相除后余数为 0，如果不为 0，则一直“除”下去。这里用 Mod 运算符求余数，较大的整数作为被除数或者较小的整数作为被除数都可以得到正确结果，但整除的次数可能会不一样。在本题的输入中，先输入 16，再输入 24，求出的最大公约数仍为 8。3.为了将窗体上的某个控件变为活动的，应执行的操作是（分数：2.00）A.单击窗体的边框B.单击该控件的内部 C.双击该控件D.双击窗体解析：分析当窗体上有多个控件时，最多只有一个控件是活动的。只要单击一个不活动的控件 (光标位于该控件内部)，就可以将该控件变

27、为活动控件。4.使用链表来表示线性表的优点是（分数：2.00）A.便于插入和删除操作 B.数据元素的物理顺序与逻辑顺序相同C.花费的存储空间较顺序存储少D.便于随机存取解析：分析线性表的链式存储是用一组任意的存储空间来存放数据元素，链表结点空间是动态生成的，其特点是逻辑上相邻的元素在物理位置上不一定相邻，因此需要另外开辟空间来保存元素之间的关系，花费的存储空间较顺序存储多。访问只能沿指针方向顺序访问，不能随机存取。在链表中插入或删除结点，只需修改指针，不需要移动元素。5.在窗体上画一个名称为 Timet1 的计时器、一个名称为 Commandl 的命令按钮和一个名称为 Labell 的标签。

28、编写程序如下：Private Sub Command1_Click()Timer1Enabled=TrueTimer1Interval=1000End SubPrivate Sub Timerl Timer()LabellLeft=LabellLeft + 10End Sub当运行程序后，单击命令按钮，将会产生（分数：2.00）A.每秒钟显示一次系统时间B.每 10 秒钟显示一次系统时间C.每秒钟标签向右移一段距离 D.每秒钟标签向左移一段距离解析：分析由于计时器的 Interval 属性为 1000，标签的 Left 属性值每秒钟增加 10，使得标签向右移一段距离。6.对数据元素序列(49

29、，72，68，13，38，50，97，27)进行排序，前 3 趟排序结束时的结果依次为，第 1趟：13，72，68，49，38，50，97，27：第 2 趟：13，27，68，49，38，50， 97，72；第 3 趟：13，27，38，49，68，50，97，72。该排序采用的方法是（分数：2.00）A.插入排序法B.选择排序法 C.冒泡排序法D.快速排序法解析：分析简单选择排序法的思想是：扫描整个线性表，从中选出最小(或最大)的元素，将它交换到表的最前面；然后对剩下的子表采用同样的方法，直到子表空为止。从序列变化情况可以看出，第 1 趟是找出最小元素 13，第 2 趟是找出次小元素 27

30、，第 3 趟是找出第三小元素 38，这是典型的简单选择排序法。7.在软件生命周期中，所花费用最多的阶段是（分数：2.00）A.详细设计B.软件编码C.软件测试D.软件维护解析：分析软件生命周期可分为软件定义、软件开发及软件运行维护 3 个阶段。详细设计、软件编码和软件测试都属于软件开发阶段；软件维护是软件生命周期的最后一个阶段，也是持续时间最长，花费代价最大的一个阶段，软件工程学的一个目的就是提高软件的可维护性，降低维护的代价。8.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指（分数：2.00）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用

31、程序所使用D.以上三种说法都不对解析：分析数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。也就是说，数据的逻辑结构、存储结构与存取方式的改变不会影响应用程序。数据独立性一般分为物理独立性与逻辑独立性两种。所以选项 A、B、C 所描述的都不是数据独立的概念。9.用树形结构来表示实体之间联系的模型称为（分数：2.00）A.关系模型B.网状模型C.层次模型 D.以上三个都是解析：分析关系模型是用二维表来表示实体之间的联系；网状模型是用无向图来表示实体之间联系；层次模型是用树形结构来表示实体之间联系。所以，选项 C 是正确的。10.算法的空间复杂度是指（分数

32、：2.00）A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间解析：分析一个算法的空间复杂度是指执行这个算法所需的存储空间。一个算法所占用的存储空间包括算法程序所占的空间、输入的初始数据所占的空间以及算法执行过程中所需要的额外空间。11.假定窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（分数：2.00）A.单击窗体上没有控件的地方 B.单击任一个控件C.不执行任何操作D.双击窗体的标题栏解析：分析单击窗体上没有控件的地方，将窗体改变为当前控件，因属性窗口只能设置当前控件的属性。双击窗体标题

33、栏可以使窗体在最大化和还原状态之间变换。单击某控件是将控件变为当前控件。12.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim m(10)As IntegerDim b(3)As Integers = 0For i=1 To 10m(i)=iNext iFor i=1 To 3b(i)=m(i * i)Next iFor i=1 To 3s = s + b(i)*3Next iPrint sEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.78B.10C.33D.42 解析：

34、分析此题在于对数组下标的操作。第 1 个 For 对数组 m 进行初始化，其结果为 1、2、 3、10；第 2 个 For 对数组 n 进行初始化，其结果为 1、4、9：第 3 个 For 循环中变量 s 的计算过程为(11+22+33)3=42。13.为了使图像(Image)控件中的图像自动适宜控件的大小，下列叙述正确的是（分数：2.00）A.将控件的 AutoSize 属性设为 TrueB.将控件的 AutoSize 属性设为 FalseC.将控件的 Stretch 属性设为 True D.将控件的 Stretch 属性设为 False解析：分析 AutoSize 属性用于 Pictur

35、eBox(图片框)，Stretch 属性只用于 Image(图像框)。当 AutoSize 属性值为 True(真)时，图片框会根据装入的图形大小调整其大小，可以被认为“框随图片”；当 Stretch 属性值为 True(真)时，图像框内的图像大小随框的大小而变化，可以被认为“图片随框”。14.设有如下通用过程：Public Function f(x As Integer)Dim y As Integerx = 10： y = 5f = x * yEnd Function在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Clic

36、k()Static x As Integerx = 2：y = 6y = f(x)Print x； yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.2 6B.10 5C.10 50 D.6 10解析：分析虽然变量 x 被定义为静态变量，但并不改变传地址传送的关系。x 作为实参传给 f 子函数后，形参 x 的值先为 2，执行“x=10”后，由于传地址传送的关系，实参 x 的值也为 10。子函数返回之前，f 的值为 50，返回后变量 y 的值为 50。最后打印出 10 和 50。15.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：

37、Private Sub Command1_Click()Static x As IntegerStatic y As IntegerClsy = 1y = x+2x = 4 + yPrint x， yEnd Sub程序运行时，三次单击命令按钮 Command1 后，窗体上显示的结果为（分数：2.00）A.3 4B.18 14 C.15 14D.7 12解析：分析变量 x 和 y 都定义为静态变量，当每次单击命令按钮计算过后都应该保留上次计算的值。x 和 y 三次计算的过程为：6 和 2：12 和 8： 18 和 14。16.下列成员中不属于主窗口的是（分数：2.00）A.最大化按钮B.状态栏

38、 C.系统菜单D.工具栏解析：分析主窗口由标题栏、菜单栏和工具栏构成，其中标题栏上有系统菜单(左端)以及最小化、最大化和关闭按钮。因此，最大化按钮、系统菜单和工具栏都是主窗口中的成员，而主窗口中没有状态栏。17.编写如下事件过程：Option Base 1Private Sub Form Click()Dim x1()As IntegerDim i As IntegerDim s As IntegerReDim x1(3)For i = 1 To UBound(x1)x1(i)=i + 1Next iCall sub1(x1)For i = 1 To UBound(x1)s = s + x1

39、(i)Next iPrint sEnd SubPrivate Sub sub1(n()As Integer)Dim i As IntegerReDim Preserve n(5)For i = 3 To 5n(i)=n(i-1)*2Next iEnd Sub程序运行后，单击窗体，则窗体上显示的内容是（分数：2.00）A.6B.12C.24D.47 解析：分析在主过程中，数组 x1 的下标最大值为 3，赋初值分别为 2、3、4，通过实参和形参的调用，数组 x1 的值传给了数组 n。在子过程中，数组 n 的下标最大值被重新定义为 5，下标 35 的值计算的结果分别为 6、12、24。在主过程中，

40、将数组 x1 的各值相加得：2+3+6+12+24=47。18.软件调试的目的是（分数：2.00）A.发现错误B.改正错误 C.改善软件的性能D.挖掘软件的潜能解析：分析在对程序进行测试时会发现错误，这就要进行程序调试(排错)。程序调试活动由 3 部分组成：一是错误定位，根据错误的外部表现形式，确定程序中出错的位置，找出错误的内在原因。二是对程序进行修改，排除这个错误。三是进行回归测试，防止引进新的错误。所以程序调试的目的就是诊断和改正程序中的错误。软件调试不能改善软件的性能，也不能挖掘软件的潜能。19.下面 4 个选项中，不是窗体属性的是（分数：2.00）A.MinButtonB.MaxB

43、示。21.（分数：2.00）A. B.C.D.解析：分析该程序主要涉及到控件数组的使用和事件过程参数的传送与使用。通过本程序，读者可以理解控件数组节省系统资源和增加程序可读性的优点。参数 Index 有 3 个作用：判断用户单击哪个按钮；判断在对话框中显示哪个提示字符：确定对话框中的显示按钮形式。当单击中间的按钮后，Index 为1，选项 A 是正确答案。22.阅读如下程序：Option Base 1Private Sub Form Click()Dim Arr(4，4)As IntegerFor i=1 To 4For j=1 To 4Arr(i，j)=(i-1)*2+jNext jNex

44、t iFor i=3 To 4For j=3 To 4Print Arr(j，i)；Next jPrintNext iEnd Sub程序运行后，单击窗体，输出的结果为（分数：2.00）A.5 7 6 8B.6 8 7 9C.7 9 8 10 D.8 10 8 11解析：分析本题主要测试二维数组的输入输出操作。由于程序的开头有 Option Base1 的语句，因此所定义的 Arr 是一个 4 行 4 列的二维数组。在第 1 个二重 For 循环中，根据内层和外层循环变量的变化对数组的每个元素赋值，其计算公式为：(i-1)*2+j，其中 i 和 j 分别为外层和内层循环变量。用这个公式计算的数

45、组 Arr 各元素的值如下：Arr(1，1)=1 Arr(1，2)=2 Arr(1，3)=3Arr(1，4)=4Arr(2，1)=3 Arr(2，2)=4 Arr(2，3)=5Arr(2，4)=6Arr(3，1)=5 Arr(3，2)=6 Arr(3，3)=7Arr(3，4)=8Arr(4，1)=7 Arr(4，2)=8 Arr(4，3)=9Arr(4，4)=10在第 2 个二重循环中，用 Print 方法输出 Arr 数组 4 个元素的值，即 Arr(3，3)、Arr(4，3)、Arr(3， 4)和Arr(4，4)，从上面的赋值情况可以看出，这 4 个元素的值分别是 7、9、8、10。23.

46、在显示菜单时，菜单项的下列哪个属性为 True 时将用浅灰色显示该菜单项标题（分数：2.00）A.CaptionB.CheckedC.Enabled D.Visible解析：分析菜单项的“有效”属性就是通过 Enabled 属性来控制的。实际上，只要将一个菜单项的“有效”属性设置为 False，就可以使其失效，运行后该菜单项变为灰色，为了使一个失效的菜单项变为有效，只要将它的“有效”属性重新设置为 True 即可。24.假定程序中有如下语句：answer=MsgBox(“第一个字符串“，vbAbortRetryIgnore Or vbCritical_ Or vbDefaultButton3

47、，“第二个字符串“)执行该语句后，将显示一个信息框，此时如果按回车键，则 answer 的值为（分数：2.00）A.“第二个字符串“B.5 C.3D.7解析：分析 MsgBox 函数的返回值是一个整数，这个整数与所选择的按钮有关。该题的第 2 个参数由 3部分组成，其中 vbAbortRetryIgnore 用来在信息框中显示 3 个按钮，分别为“终止”、“重试”和“忽略”：vbCritical 用来在信息框中显示关键消息；而 vbDefaultButton3 将信息框的第 3 个按钮(即“忽略”)指定为默认按钮。执行该语句后，在信息框中显示 3 个按钮，并将第 3 个按钮作为默认按钮，此时如

48、果按回车键，则返回值是该按钮所对应的值。由于“忽略”按钮对应的值是 5，因此变量 answer 的值为 5。25.编写如下事件过程：Option ExplicitPrivate Sub Form_Click()Dim Str As String， I As IntegerOpen “examp“ For Output As 1For I=1 To 5Str=Chr(I+64)Print #1，Str；Next IClose 1Open”examp，For lnput AS 2Str=Input(10，#2)Print Str；Close 2End Sub程序运行后，单击窗体，则窗体上显示的内容是（分数：2.00）A.ABCDE B.96C.65D.abcde解析：分析利用 For 循环依次将字母 ABCDE 分别写到 examp 文件中，然后再用 Input 函数一次将 10 个字母读出，并显示在屏幕上。26.下面语句中错误的是（分数：2.00）A.ReDim Preserve x(10，Ubound(x，2)+1)B.ReDim Preserve x(Ubound(x，1)+1，10) C.ReDim Preserve y(Ubound(y)+1)D.ReDim y(Uboun

展开阅读全文