[计算机类试卷]国家二级（VB）机试模拟试卷140及答案与解析.doc

《[计算机类试卷]国家二级（VB）机试模拟试卷140及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]国家二级（VB）机试模拟试卷140及答案与解析.doc（32页珍藏版）》请在麦多课文档分享上搜索。

1、国家二级（ VB）机试模拟试卷 140及答案与解析 一、选择题 1 下列数据结构中，属于非线性结构的是 ( )。 （ A）循环队列 （ B）带链队列 （ C）二叉树 （ D）带链栈 2 下列数据结构中，能够按照 “先进后出 ”原则存取数据的是 ( )。 （ A）循环队列 （ B）栈 （ C）队列 （ D）二叉树 3 对于循环队列，下列叙述中正确的是 ( )。 （ A）队头指针是固定不变的 （ B）队头指针一定大于队尾指针 （ C）队头指针一定小于队尾指针 （ D）队头指针可以大于队尾指针， 也可以小于队尾指针 4 算法的空间复杂度是指 ( )。 （ A）算法在执行过程中所需要的计算机存储空间

2、（ B）算法所处理的数据量 （ C）算法程序中的语句或指令条数 （ D）算法在执行过程中所需要的临时工作单元数 5 软件设计中划分模块的一个准则是 ( )。 （ A）低内聚低耦合 （ B）高内聚低耦合 （ C）低内聚高耦合 （ D）高内聚高耦合 6 下列选项中不属于结构化程序设计原则的是 ( )。 （ A）可封装 （ B）自顶向下 （ C）模块化 （ D）逐步求精 7 软件详细设 计产生的图如下： 该图是 ( )。 （ A） N-S图 （ B） PAD图 （ C）程序流程图 （ D） ER图 8 数据库管理系统是 ( )。 （ A）操作系统的一部分 （ B）在操作系统支持下的系统软件 （ C）

3、一种编译系统 （ D）一种操作系统 9 在 E-R图中，用来表示实体联系的图形是 ( )。 （ A）椭圆形 （ B）矩形 （ C）菱形 （ D）三角形 10 有三个关系 R、 S和 T如下：其中关系 T由关系 R和 S通过某种操作得到，该操作为 ( )。 （ A）选择 （ B）投影 （ C）交 （ D）并 11 在 VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是 ( )。12 设 x是整型变量，与函数 IIf(x 0，一 x， x)有相同结果的代数式是 ( )。 （ A） |x| （ B）一 |x| （ C） x （ D） -x 13 设窗体文件中有下面的事件过程

4、： Private Sub Command1_Click() Dim s a =100 Print a End Sub 其中变量 a和 s的数据类型分别是 ( )。 （ A）整型，整型 （ B）变体型，变体型 （ C）整型，变体型 （ D）变体型，整型 14 下面不能在信息框中输出 “VB”的是 ( )。 （ A） MsgBox”VB” （ B） x=MsgBox(”VB”) （ C） MsgBox(”VB”) （ D） Call MsgBox“VB” 15 下面关于标准模块的叙述中，错误的是 ( )。 （ A）标准模块中可以声明全局变量 （ B）标准模块中可以包含一个 Sub Main过程，

5、但此过程不能被设置为启动过程 （ C）标准模块中可以包含一些 Public过 程 （ D）一个工程中可以含有多个标准模块 16 下面正确使用动态数组的是 ( )。 （ A） Dim art()As Integer ReDim arr(3， 5) （ B） Dim arr()As Integer ReDim arr(50)As String （ C） Dim arr() ReDim arr(50)As Integer （ D） Dim arr(50)As Integer ReDim arr(20) 17 下面是求最大公约数的函数的首部： Function gcd(ByVal x As Integ

6、er， ByVal y As Integer)As Integer 若要输出 8、 12、 16这 3个数的最大公约数，下面正确的语句是 ( )。 （ A） Print god(8， 12)， god(12， 16)， gcd(16， 8) （ B） Print gcd(8， 12， 16) （ C） Print gcd(8)， gcd(12)， gcd(16) （ D） Print god(8， god(12， 16) 18 若在窗体模块的声明部分声明了如下自定义类型和数组： Private Type rec Code As Integer Caption As String End Typ

7、e Dim art(5)As rec 则下面的输出语句中正确的是 ( )。 （ A） Print arr Code(2)， arr Caption(2) （ B） Print arr Code， arr Caption （ C） Print arr(2) Code， arr(2) Caption （ D） Print Code(2)， Caption(2) 19 下面程序运行时，若输入 395，则输出结果是 ( )。 Private Sub Commandl_Click() Dim x x=InputBox(”请输入 个 3位整数 ”) Print x Mod 10， x 100， (x Mo

8、d 100) 10 End Sub （ A） 3 9 5 （ B） 5 3 9 （ C） 5 9 3 （ D） 3 5 9 20 某人编写了下面的程序，希望能 把 Text1文本框中的内容写到 out txt文件中： Private Sub Command1_Click() Open“out txt”For Output As #2 Print“Text1” Close #2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是 ( )。 （ A）把 Print“Text1”改为 Print #2， Text1 （ B）把 Print”Text1”改为 Print Text1

9、（ C）把 Print”Text1”改 为 Write”Text1” （ D）把所有 #2改为 #1 21 VB中有 3个键盘事件： KeyPress、 KeyDown、 KeyUp，若光标在 Text1文本框中，则每输入一个字母 ( )。 （ A）这 3个事件都会触发 （ B）只触发 KeyPress事件 （ C）只触发 KeyDown、 KeyUp事件 （ D）不触发其中任何一个事件 22 设窗体的名称为 Form1，标题为 Win，则窗体的 MouseDown事件过程的过程名是 ( )。 （ A） Form1MouseDown （ B） Win_MouseDown （ C） Form_M

10、ouseDown （ D） MouseDown_Form1 23 要求当鼠标在图片框 P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是 ( )。 （ A） Private Sub P1_MouseMove(Button As Integer， Shift As Integer， X As Single，Y As Single) Print X， Y End SUb （ B） Private Sub P1_MouseDown(Button As Integer， Shift As Integer,X As Single,Y As Single) Picture

11、Print X， Y End Sub （ C） Private SUb P1_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single) P1 Print X， Y End Sub （ D） Private Sub Form_MouseMove(Button、 As Integer， Shift As Integer， X As Single， Y As single) P1 Print X， Y End Sub 24 为了使窗体的大小可以改变，必须把它的 BorderStyle属性设置为 ( )。 （ A）

12、 1 （ B） 2 （ C） 3 （ D） 4 25 为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是 ( )。 （ A）按住 Ah键，不要松开，然后单击每个要选中的控件 （ B）按住 Shift键，不要松开，然后单击每个要选中的控件 （ C）按住 Ctd键，不要松开，然后单击每个要选中的控件 （ D）拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内 26 在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为 ( )。 （ A） Text1 Clear （ B） Text1 Visible=False （ C） Text1 Hid

13、e （ D） Text1 Enabled=False 27 以下能够触发文本框 Change事件的操作是 ( )。 （ A）文本框失去焦点 （ B）文本框获得焦点 （ C）设置文本 框的焦点 （ D）改变文本框的内容 28 假定在图片框 Pieture1中装入了一个图片，在程序运行中，为了清除该图片 (注意，清除图片，而不是删除图片框 )，应采用的正确方法是 ( )。 （ A）单击图片框，然后按 Del键 （ B）执行语句 Picture1 Picture=LoadPieture(“”) （ C）执行语句 Picture1 Hcture=” （ D）执行语句： Picturel Cls 29

14、要想使列表框只允许单选列表项，应设置的属性为 ( )。 （ A） Style （ B） Selected （ C） MuhiSelect （ D） Enabled 30 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim i As Integer， n As Integer For i=0 To 50 i=i+3 n=n+1 If i 10 Then Exit For Next Text1 Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是

15、 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 31 在窗体上画一个命令按钮，然后编写如下事件过程： Private SUb Commandl_Click() Dim I， Num Randomize Do For I=1 To 1000 Num=Int(Rnd * 100) Print Num： Select Case Num Case 12 Exit For Case 58 Exit Do Case 65,68， 92 End End Seleet Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是 ( )。 （ A） Do循环执行的次数为

16、1000次 （ B）在 For循环中产生的随机数小于或等于 100 （ C）当所产生的随机数为 12时结束所有循环 （ D）当所产生的随机数为 65、 68或 92时窗体关闭、程序结束 32 在窗体上面一个 名为 Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1 , 2， 3， 4) j=1 For i=4 To 1 Step一 1 s=s+a(i)* j j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是 ( )。 （ A） 1234 （

17、B） 12 （ C） 34 （ D） 4321 33 设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String， strL As Integer tStr=” strL=Len(xStr) i=1 Do While i =strL 2 tStr=tStr&Mid(xStr， i， 1)&Mid(xStr， strLi+1， 1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Commandl的命令按钮。然后编写如下的事件过程： Private Sub Comman

18、dl_Click() Dim S1 As String S1=“8bcdef“ Print UCase(Fun(S1) End Sub 程序运行后，单击命令按钮，输出结果是 ( )。 （ A） ABCDEF （ B） abedef （ C） AFBECD （ D） DEFABC 34 某人为计算 n!(0 n =12)编写了下面的函数过 程： Private Function fun(n As Integer)As Long Dim P As Long P=1 For k=n一 1 To 2 Step一 1 P=P*k Next k fun=P End Funotion 在调试时发现该函数过程

19、产生的结果是错误的，程序需要修改。下面的修改方案中有 3种是正确的，错误的方案是 ( )。 （ A）把 P=1改为 P=n （ B）把 For k=n一 1 To 2 Step1改为 For k=1 To n1 （ C）把 For k=n一 1 To 2 Step一 1改为 For k=1 To n （ D）把 For k=n一 1 To 2 Step一 1改为 For k=2 To n 35 假定有以下函数过程： Function Fun(S As String)As String Dim sl As String For i=1 To Len(S) sl=LCase(Mid(S， i， 1

20、)+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim Strl As String， Str2 As String Strl=InputBox(”请输入一个字符串 ”) Str2=Fun(Strl) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串 “abcdefg”，则单击“确定 ”按钮后在窗体上的输出结果为 ( )。 （ A） ABCDEFG （ B） abedefg （ C） GFEDCBA （ D） gfedeba 36

21、 为计算 a“的值，某人编写了函数 power如下： Private Function power(a As Integer， n As Integer)As Long Dim s As Long P=a For k=1 To n P=P*a Next k power=P End Function 在调试时发现是错误的，例如 Print power(5， 4)的输出应该是 625，但实际输出是 3125。程序需要修改。 下面的修改方案中有 3个是正确的，错误的一个是 ( )。 （ A）把 For k=1 To n改为 For k=2 To n （ B）把 P=P*a改为 P=Pn （ C）把

22、For k=1 To n改为 For k=1 To n一 1 （ D）把 P=a改为 P=1 37 某人编写了下面的程序： Private Sub Commandl_Click() Dim a As Integer， b As Integer a=InputBox(”请输 入整数 ”) b=InputBox(”请输入整数 ”) pro a pro b Call pro(a+b) End Sub Private Sub pro(n As Integer) While(n 0) Print n Mod 10； n=n 10 Wend Print End Sub 此程序功能是：输入 2个正整数，反序

23、输出这 2个数的每一位数字，再反序输出这 2个数之和的每一位数字。例如：若输入 123和 234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2行 (即 2个数的反序 )，而未输出第 3行 (即 2个数之和的反序 )，程序需要修改。下面的修改方案中正确的是 ( )。 （ A）把过程 pro的形式参数 n As Integer改为 ByVal n As Integer （ B）把 Call pro(a+b)改为 pro a+b （ C）把 n=n 10改为 n=n 10 （ D）在 pro b语句之后增加语句 c =a+b，再把 Call pro(a+b)改为 pr

24、o c 38 在窗体上画一个名称为 Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() c=1234 el=Trim(Str(c) For i=1 To 4 Print_ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在横线处应填入的内容为 ( )。 （ A） Right(cl， i) （ B） Left(c1， i) （ C） Mid(c1， i， 1) （ D） Mid(c1， i， i) 39 假定有以下程序段： For i=1 To 3 For j=5 To 1 S

25、tep一 1 Print i*j Next j Next i 则语句 Print i* j的执行次数是 ( )。 （ A） 15 （ B） 16 （ C） 17 （ D） 18 40 在窗体上画两个文本框 (名称分别为 Text1和 Text2)和一个命令按钮 (名称为Command1)，然后编写如 下事件过程： Private Sub Commandl_Crick() x=0 Do While x 50 x=(x+2)*(x+3) n=n+1 Loop Text1 Text=Str(n) Text2 Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别

26、为 ( )。 （ A） 1和 0 （ B） 2和 72 （ C） 3和 50 （ D） 4和 168 二、基本操作题 41 在名称为 Form1的窗体上添加一个标签 (名称为 Label1，标题为空白，BorderStyle属性为 1， Visible属性为 False)、一个文本框 (名称为 Text1， Text属性初始内容为空 )和一个命令按钮 (名称为 Command1，标题为 “显示 ”)，如图 1所示。然后编写命令按钮的 Click事件过程。程序运行后，在文本框中输入 “计算机等级考试 ”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。程序运行后的窗体如图 2所示。

27、要求程序中不得使用任何变量。注意：存盘时必须放在考生文件夹下，工程文 件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 42 在名称为 Form1的窗体上添加一个文本框 (名称为 Text1)和一个水平滚动条 (名称为 HScroll1)，如图 1所示。在属性窗口中对滚动设置如下属性：编写适当的事件过程。程序运行后，通过改变滚动条上的刻度值，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的 1 2倍。程序运行后的窗体如图 2所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2.vbp，窗体文件名保存为sjt2 frm。

28、 三、简单应用题 43 在考生文件夹下有一个工程文件 sjt3 vbp。 程序的功能是： 1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为 jpg的文件。 2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息 (包括路径及文件名 )显示到标签中。 3)“下一张 ”命令按钮的功能：选中并显示上次选中文件的下一个图片文件 (如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名，则从第 1个图片文件开始 )。 在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时 窗体如图所示。 在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程

29、中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 44 在考生文件夹下有一个工程文件 Sjt4 vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击 “查找 ”按钮时可输入查找内容，如图 1所示。若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示 (即呈选中状态 )，每找到一次都给出提示，并在左下角文本框中显示累 计的次数，如图 2所示，若单击提示对话框的 “是 ”按钮，则继续向后查找；若单击 “否 ”按钮，则终止查找。在给出的窗体文件中已经有了全部控件，但程序不完整。

30、请将事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 四、综合应用题 45 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有一个名称为 Text1的文本框；还有两个名称分别为 C1、 C2的命令按钮，标题分别为 “计算 ”、 “存盘 ”。有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数 a是否为素数，如果是素数，则返回 True，否则返回 False。 请编写适当的事件过程，使得程序运行时，单击 “计算 ”按钮，找出小于 18000的最大素数，并显示在 Text1

31、中；单击 “存盘 ”按钮，则将 Text1中的计算结果存入考生文件夹下的 out5 txt文件中。 注意：考 生不得修改 isprime函数过程和控件的属性，必须把计算结果通过 “存盘 ”按钮存入 out5 txt文件中，否则将没有成绩。 国家二级（ VB）机试模拟试卷 140答案与解析 一、选择题 1 【正确答案】 C 【试题解析】 树是简单的非线性结构，所以二叉树作为树的一种也是一种非线性结构。 2 【正确答案】 B 【试题解析】 栈是按先进后出的原则组织数据的。队列是先进先出的原则组织数据。 3 【正确答案】 D 【试题解析】 循环队列的队头指针与队尾指针都不是固定的，随着入队与出队操作

32、 要进行变化。因为是循环利用的队列结构所以队头指针有时可能大于队尾指针有时也可能小于队尾指针。 4 【正确答案】 A 【试题解析】 算法的空间复杂度是指算法在执行过程中所需要的内存空间。所以选择 A。 5 【正确答案】 B 【试题解析】 一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。 6 【正确答案】 A 【试题解析】 结构化程序设计的思想包括：自顶向下、逐步求精、模块化、限制使用 goto语句，所以选择 A。 7 【正确答案】 C 【试题解析】 NS图提出了用方框图来代替传统的程序流程图，所以 A不对。PAD图是问题分析图

33、，它是继承程序流程图和方框图之后提出的又一种主要用于描述软件详细设计的图形表示工具，所以 B不对。 ER图是数据库中的用于表示ER模型的图示工具，所以 D不对。根据图中所示表示方法是进行软件详细设计时使用的程序流程图。 8 【正确答案】 B 【试题解析】 数据库管理系统是数据库的机构，它是一种系统软件，负责数据库中数据组织、数据操纵、数据维护、控制及保护和数据服务等。是一种在操作系统之上的系统软件。 9 【正确答案】 C 【试题解析】 在 ER图中实体集用矩形，属性用椭圆，联系用菱形。 10 【正确答案】 D 【试题解析】 并关系 T中包含了关系 R与 s中的所有元组，所以进行的是并的运算。

34、11 【正确答案】 D 12 【正确答案】 B 【试题解析】 IIF函数是条件函数，本题的含义是如果 x 0条件成立，即 x为正数，就返回一 x，即 x的负数，否则返回 x(它本身 )，两种情况都是返回负数。根据这一点。选项 B符合要求。故 B选项正确。 13 【正确答案】 C 【试题解析】 变量 s定义时没有指明数据类型，默认为 Variant变体型。变量 a是用整型的类型符号声明，并同时赋值 100，所以变量 a的数据类型为整型。故C选项正确。 14 【正确答案】 D 【试题解析】 Msgbox的功能：显示消息提示框，在对话框中显示提示消息，等待用户单击按钮，单击不同的按钮返回不同的整数。

35、 MsgBox函数格式：变量 =MsgBox(提示内容 ，样式 ，标题 )，注意MsgBox函数带括号，有返回值； MsgBox语句格式： MsgBox(提示内容 ，样式 ，标题 )，有无括号都可以，无返回值。 选项 D中用 Call语句调用 MsgBox函数，要符合 Call语句的语法规则： Call函数名 (实参表 )，缺少括号，应该为 Call Ms gBox(”VB”)，语法才正确。故 D选项不能输出 “VB”，会出错。 15 【正确答案】 B 【试题解析】 标准模块中可以包含一个 Sub Main过程，可以通过 “工程属性 ”对话框中将 Sub Main过程设置启动对象。故 B选项错

36、误。 16 【正确答案】 A 【试题解析】 动态数组的使用时，先在窗体层、 标准模块或过程中声明一个没有下标的数组 (括号不能省略 )，不指定维数。然后，在过程中用 ReDim语句定义带下标的数组，给出数组的维数。注意：用 ReDim定义的数组，只能改变数组元素的个数，不能改变数组的维数和数据类型。 本题选项 B、 C中 ReDim语句改变了数组的数据类型，故错误。选项 D中声明数组时有下标，应该没有下标，故也错误。选项 A正确。 17 【正确答案】 D 【试题解析】 调用函数过程时的实参与函数过程的形参必须是类型、顺序、个数相同。 本题中函数过程的形参有 2个，调用时实参也 要是 2个，故排

37、除选项 B和 C。 选项 A虽然语法没错误，但不符合题意。 选项 D是正确的。调用函数过程时可以嵌套调用。 18 【正确答案】 C 【试题解析】 定义一个自定义类型的数组，数组元素表示为：数组名 (下标 )成员名，故选 c。 19 【正确答案】 B 【试题解析】 本题中 x定义为整型变量，通过输人对话框输入 395，按 “确定 ”按钮后， InputBox函数把返回值 395赋给变量 x。表达式 395 Mod 10，结果是 5，395100结果为 3， (395 Mod 100)10的 结果为 9。故 B选项正确。 20 【正确答案】 A 【试题解析】 要把文本框中的内容写人文本文件中，首先

38、要用 Open语句的 For Output模式打开文本文件，并为文件制定一个文件号，然后，用 Print语句将文本写入文本文件，最后关闭文件。 本题中 Click事件过程中第 1、 3条语句正确。 第 2条语句 Print语句的格式是： Print#文件号，要写入的内容，原语句错误。 根据格式按选项 A修改正确，故 A选项正确。 21 【正确答案】 A 【试题解析】 当用户按下某键时触 发 KeyDown和 KeyPress事件，放开某键时触发 KeyUp事件。故每输入一个字符，这 3个事件都会触发。故 A选项正确。 22 【正确答案】 C 【试题解析】 事件过程名格式是：控件名一事件过程名。

39、 Form1是窗体控件的名称， Win是窗体的标题，所以窗体的 MouseDown事件过程名是：Forml_MouseDown，故选 A。 23 【正确答案】 C 【试题解析】 当鼠标在图片框 P1中移动时，就会触发 P1的鼠标移动事件，即P1_MouseMove事件，故排除 B选项；鼠标在图片框 P1中移 动时，立即在图片框中显示鼠标的位置坐标，说明是在图片框上输出数据，所以用 P1的 Print语句实现。故 C选项正确。 24 【正确答案】 B 【试题解析】 窗体的 BorderStyle属性是用来设置窗体的边框样式的。属性值 1为 Fixed Single， 3为 Fixed Dialo

40、g， 4为 Fixed ToolWindow，设置为这 3个属性值都不能改变窗口大小。 2是 Sizable，表示窗体大小可以改变。故选 B。 25 【正确答案】 A 【试题解析】 按住 Ah键只能选中单个控件，不能同时选中多个控件 。故选 A。 26 【正确答案】 B 【试题解析】 文本框没有 Clear和 Hide方法，故 A、 C选项错误； Enabled属性设置文本框可用不可用，属性值为 True时可在文本框中输人数据，为 False时文本框为灰色，内容不能修改，故 D选项错误； Visible属性用来设置文本框显示或隐藏，当属性值为 True时文本框显示，为 False时文本框隐藏，

41、故 B选项正确。 27 【正确答案】 D 【试题解析】 改变文本框中的内容时就会触发它的 Change事件，故选 D。 28 【正确答案】 B 【 试题解析】 A选项按 Del键不能删除图片； c选项中 Pietue属性值不能为空字符串，语法错误； D选项中 Cls方法只能清除图片上显示的内容，不能清除图片。要将图片框中的图片清除，用 B选项方法可以。故 B选项正确。 29 【正确答案】 C 【试题解析】 列表框的 Style属性是设置列表框的外形； Selected属性在程序运行中设置或返回列表项的选中状态； Enabled属性设置列表框可用不可用； Multseleet用来设置选择列表项的

42、方式。 0为默认，只允许单选列表项； 1为复选 ，可同时选中一个或多个列表项，但要一个一个选中； 2也为复选，可一个一个选中列表项，也可连续选中。故选 C。 30 【正确答案】 B 【试题解析】 程序中 For循环的结束有两种情况，一种是循环完指定的次数，一种是达到一定的条件后直接退出循环。由于在循环体中循环变量 i的值被修改：i=i+3，因此，每次循环开始时 i的取值为 0， 4， 8， i为 8时执行 i=i+3=11，n=n+1=3，这时 i的值大于 10，退出 For循环，因此 For循环执行了 3次，即 n的值为 3。所以在文本框中会显示 3。 31 【正确答案】 D 【试题解析】

43、程序 Do循环中嵌套了 For循环， Do循环没有设置结束条件，而是在 For循环体中的 Select语句中设置了退出 Do循环和 For循环及结束程序的分支，因此 Do循环的次数无法确定。随机函数 Rnd产生 0， 1)之问的一个数，包括0但不包含 1，因此 Rnd*100的范围是大于等于 0小于 100。随机数为 65、 68或92时结束程序关闭窗体，为 58时退出 Do循环，为 12时退出 For循环进入下一次Do循环。 32 【正确答案】 A 【试题解析】 Array函数用来为数组元素赋值，即把一个数据集读 入某个数组。其格式为：数组变量名： Array(数组元素值 )。 Dim a语

44、句没有变量类犁名则 a默认为 Variant类型，这里它作为数组变量使用。现在已知数组 a中元素的值依次为 1、 2、 3、 4，则 F0r循环中各变量值变化如下： i=4时， s=s+a(4)*j=0+4*1=4， j=1*10=10 i=3时， s=s+a(3)*j=4+3*10=4+30=34， j=10*10=100 i=2时， s=s+a(2)*j=34+2*100=34+200=234， j=100*10=1000 i=1时， s=s+a(1)*j=234+1*1000=234+1000=1234。循环结束。 s的值为 1234。 33 【正确答案】 C 【试题解析】 通用过程。

45、Fun的主要功能在于 tStr=tStr Mid(xStr， i， 1)Mid(xStr， strL一 i+1， 1) 这一句。其中 Mid(xStr， i， 1)的意思是从字符串的左边开始依次取一个字符， Mid(xStr， strL一 i+1， 1)的意思是从串的右边开始依次取一个字符。整个这条一语句的用意就是从一个字符串两端依次各取一对字符连成一个字符串。 因此当 Fun过程的参数为 “abcdef”时，返回值为 “afbecd”，Ucase(“afbecd”)结果为 “AFBECD”，这就是输出结果。 34 【正确答案】 B 【试题解析】 原程序的错误在于没有把 n的值乘进去。而 B选

46、项中把 For k=n1 To 2 Step一 1改为 For k=1 Ton1，依然没有把 n乘进去。 35 【正确答案】 D 【试题解析】 程序中过程 Fun的 For循环的功能是从参数字符串中依次取出一个字符经 Lcase函数转为小写字母后存人另一个字符串变量的首部，即将输 入的字符串转为小写并倒序排列。函数 Len用于返回字符串的长度，过程中字符串的长度做为 For循环的终值。 Mid是字符串中部截取函数，用来从指定位置开始截取指定个数的字符。过程中使用 Mid(s,i， 1)，通过循环依次取出字符串的字符，然后使本次取出的字符连接到之前取出的字符前面，实现了字符串倒序排列。程序中输入

47、字符串为 “abcdefg”，倒序并转为小写后为 “gfedcba”。 36 【正确答案】 B 【试题解析】 程序中计算 a“的算法有误，由于已经将 a的值赋给了 p，在后边的For循环中再乘 n次 a显然就 多乘了一次 a，因此，要改正此程序或者将 p=a改为p=l，或者将 fork=1 to n改成 for k=1 to n一 1或 for k=2 to n。而 B)选项将 p=p*a改为 p=pn将会导致 p=pn执行 n次，得不到正确结果。 37 【正确答案】 A 【试题解析】 在过程定义中过程的形式参数定义时如果没有 ByVal指明参数的传递方式，那么默认为地址传递，这样过程中对形参

48、的改变将影响到实参的值。本程序中过程定义语句 Private sub pm(n As Integer)说明形参 n为按地址传递的，而在过 程内语句 n=n 10改变了形参的值，因此， a、 b的值就不再是最初输入的值了，表达式 a+b就不是期望的两个输入数的和。因此得不到正确结果。 只要把 Private Sub pro(n As Integer)改为 Private Sub pro(ByVal n As Integer)，程序即可得到正确结果，因此 A选项正确。 38 【正确答案】 B 【试题解析】 程序中使用 Str(c)将数值 1234转换成为一个字符串 “1234”，又使用 Trim函

49、数去除了字符串首尾可能存在的空格，保证了字符串中只有 1、 2、 3、4这 4个字符。在 For循环中从左边递次输出这些字符就需要使用 Left()函数，Left是左部截取函数，可以截取字符串左边指定个数的字符串，以 Left(cl， i)的形式即可每次循环取出期望的字符串。因此答案为 B。 39 【正确答案】 A 【试题解析】 外层 For循环从 1到 3是 3次，内层循环从 5到 1，是 5次。因此循环体执行的次数是 3*5=15次。 40 【正确答案】 B 【试题解析】 在文本框中显示的值即 n， x的值。 x初始值已设为 0， n的初值没有定义，默认为 0。各次循环 x， n的值如 下： x=(x+2)*(x+3)=(0+2)*(0+3)=2*3=6， n=n+1=0+1=1 x=6，满足 x 50，循环继续： X=(X+2)*(x+3)=(6+2)*(6+3)=8*9=72， n=n+1=1+1=2 x=72，不满足 x 50，循环结束。此时 n的值为 2