1、二级 VISUAL+BASIC-49 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：40，分数：100.00)1.下列数据结构中，属于非线性结构的是_。 A.循环队列 B.带链队列 C.二叉树 D.带链栈（分数：3.00）A.B.C.D.2.下列数据结构中，能够按照“先进后出”原则存取数据的是_。 A.循环队列 B.栈 C.队列 D.二叉树（分数：3.00）A.B.C.D.3.对于循环队列，下列叙述中正确的是_。 A.队头指针是固定不变的 B.队头指针一定大于队尾指针 C.队头指针一定小于队尾指针 D.队头指针可以大于队尾指针，也可以小于队尾指针（分数：
2、3.00）A.B.C.D.4.算法的空间复杂度是指_。 A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量 C.算法程序中的语句或指令条数 D.算法在执行过程中所需要的临时工作单元数（分数：3.00）A.B.C.D.5.软件设计中划分模块的一个准则是_。 A.低内聚低耦合 B.高内聚低耦合 C.低内聚高耦合 D.高内聚高耦合（分数：3.00）A.B.C.D.6.下列选项中不属于结构化程序设计原则的是_。 A.可封装 B.自顶向下 C.模块化 D.逐步求精（分数：3.00）A.B.C.D.7.软件详细设计生产的图如下：该图是_（分数：3.00）A.B.C.D.8.数据库管理系统是
3、_。 A.操作系统的一部分 B.在操作系统支持下的系统软件 C.一种编译系统 D.一种操作系统（分数：3.00）A.B.C.D.9.在 E-R 图中，用来表示实体联系的图形是_。 A.椭圆形 B.矩形 C.菱形 D.三角形（分数：3.00）A.B.C.D.10.有三个关系 R、S 和 T 如下：则关系 T 是由关系 R 和 S 通过某种操作得到，该操作为_。（分数：3.00）A.B.C.D.11.在 VB 集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是_。 AB C D （分数：3.00）A.B.C.D.12.设 x 是整型变量，与函数 IIf(x0，-x，x)有相同
4、结果的代数式是_。 A.|x| B.-|x| C.X D.-x（分数：3.00）A.B.C.D.13.设窗体文件中有下面的事件过程：Private Sub Commandl_Click()Dim sa%=100Print aEnd Sub其中变量 a 和 s 的数据类型分别是_。 A.整型，整型 B.变体型，变体型 C.整型，变体型 D.变体型，整型（分数：3.00）A.B.C.D.14.下面不能在信息框中输出“VB”的是_， A.MsgBox“VB“ B.x=MsgBox(“VB“) C.MsgBox(“VB“) D.CallMsgBox“VB“（分数：3.00）A.B.C.D.15.下面关
5、于标准模块的叙述中错误的是_。 A.标准模块中可以声明全局变量 B.标准模块中可以包含一个 Sub Main 过程，但此过程不能被设置为启动过程 C.标准模块中可以包含一些 Public 过程 D.一个工程中可以含有多个标准模块（分数：3.00）A.B.C.D.16.下面正确使用动态数组的是_。 A.Dim arr()As lnteger ReDim arr(3,5) Dim arr()As lnteger B.ReDim arr(50)As String Dim arr() C.ReDim arr(50)As String Dim arr(50)As String D.ReDim arr(2
6、0)（分数：2.00）A.B.C.D.17.下面是求最大公约数的函数的首部：Function gcd(ByVal x As Integer,ByVal y As Integer)As Integer 若要输出 8、12、16 这 3 个数的最大公约数，下面正确的语句是_。 A.Print gcd(8,12),gcd(12,16),gcd(16,8) B.Print gcd(8,12,16) C.Print gcd(8),gcd(12),gcd(16) D.Print gcd(8,gcd(12,16)（分数：2.00）A.B.C.D.18.若在窗体模块的声明部分声明了如下自定义类型和数组：Pri
7、vate Type recCode As IntegerCaption As StringEnd TypeDim arr(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)（分数：2.00）A.B.C.D.19.下面程序运行时，若输入 395，则输出结果是_。Private Sub Commandl_Click()Dim X%x=InputBox(“
8、请输入一个 3 位整数“)Print x Mod 10, x/100,(x Mod 100)/10End Sub A.3 9 5 B.5 3 9 C.5 9 3 D.3 5 9（分数：2.00）A.B.C.D.20.某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 out.txt 文件中：Private Sub Commandl_Click()Open“out.txt“For Output As #2Print “Text1“Close #2End Sub调试时发现没有达到目的，为实现上述目的，应做的修改是_。 A.把 Print“Text1“改为 Print2， Text1 B
9、.把 Print“Text1“改为 Print Text1 C.把 Print“Text1“改为 Write“Text1“ D.把所有#2 改为#1（分数：2.00）A.B.C.D.21.VB 中有 3 个键盘事件：KeyPress、KeyDown、KeyUp，若光标在 Text1 文本框中，则每输入一个字母_。 A.这 3 个事件都会触发 B.只触发 KeyPress 事件 C.只触发 KeyDown、KeyUp 事件 D.不触发其中任何一个事件（分数：2.00）A.B.C.D.22.设窗体的名称为 Form1，标题为 Win，则窗体的 MouseDown 事件过程的过程名是_。 A.For
10、m1_MouseDown B.Win_MouseDown C.Form_MouseDown D.MouseDown_Form1（分数：2.00）A.B.C.D.23.要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是_。 A.Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle) Print X,Y End Sub B.Private Sub P1_MouseDown(Button As Integer,Shift As Inte
11、ger,X As Single,Y AsSingle) Picture.Print X,Y End Sub C.Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle) P1.Print X,Y End Sub D.Private Sub Form_MouseMove(Button As Integer,ShiftAs Integer,X As Single,YAsSingle) P1.Print X,Y End Sub（分数：2.00）A.B.C.D.24.为了使窗体的大小可以改变，
12、必须把它的 BorderStyle 属性设置为_。 A.1 B.2 C.3 D.4（分数：2.00）A.B.C.D.25.为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是_。 A.按住 Alt 键，不要松开，然后单击每个要选中的控件 B.按住 Shift 键，不要松开，然后单击每个要选中的控件 C.按住 Ctrl 键，不要松开，然后单击每个要选中的控件 D.拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内（分数：2.00）A.B.C.D.26.在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为_。 A.Text1.Clear B
13、.Text1.Visible=False C.Text1.Hide D.Text1.Enabled=False（分数：2.00）A.B.C.D.27.以下能够触发文本框 Change 事件的操作是_。 A.文本框失去焦点 B.文本框获得焦点 C.设置文本框的焦点 D.改变文本框的内容（分数：2.00）A.B.C.D.28.假定在图片框 Picture1 中装入了一个图片，在程序运行中，为了清除该图片 f 注意，清除图片，而不是删除图片框)，应采用的正确方法是_。 A.单击图片框，然后按 Del 键 B.执行语句 Picturel.Picture=LoadPicture(“) C.执行语句 Pi
14、cture1.Picture=“ D.执行语句：Picture1.Cls（分数：2.00）A.B.C.D.29.要想使列表框只允许单选列表项，应设置的属性为_。 A.Style B.Selected C.MultiSelect D.Enabled（分数：2.00）A.B.C.D.30.在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i10 Then Exit ForNex
15、tText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是( 1。 A.2 B.3 C.4 D.5（分数：2.00）A.B.C.D.31.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Diml,NumRandomizeDoFor I=1 To 1000Num=lnt(Rnd*100)Print Num;Select Case NumCase 12Exit ForCase 58Exit DoCase 65,68,92EndEnd SelectNext1LoopEnd Sub上述事件过程执行后，下列描述中
16、正确的是_。 A.Do 循环执行的次数为 1000 次 B.在 For 循环中产生的随机数小于或等于 100 C.当所产生的随机数为 12 时结束所有循环 D.当所产生的随机数为 65、68 或 92 时窗体关闭、程序结束（分数：2.00）A.B.C.D.32.在窗体上画一个名为 Commandl 的命令按钮，然后编写如下代码：Option Base 1Private Sub Commandl_Click()Dim aa=Array(1,2,3,4)j=1For i=4 To 1 Step-1s=s+a(i)*jj=j*10NextiPrint sEnd Sub运行上面的程序，其输出结果是_。
17、 A.1234 B.12 C.34 D.4321（分数：2.00）A.B.C.D.33.设有如下通用过程：Public Function Fun(xStr As String)As StringDim tStr As String,strL As IntegertStr=“strL=Len(xStr)i=1Do While i=strL/2tStr=tStrn=n/10WendPrintEnd Sub此程序功能是：输入 2 个正整数，反序输出这 2 个数的每一位数字，再反序输出这 2 个数之和的每一位数字。例如：若输入 123 和 234，则应该输出：3 2 14 3 27 5 3但调试时发现
18、只输出了前 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)改为 pro c（分数：3.00）A.B.C.D.38.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click(
19、)c=1234c1=Trim(Str(c)For i=1 To 4Print_NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为_。 A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)（分数：3.00）A.B.C.D.39.假定有以下程序段：For i=1 To 3Forj=5 To 1 Step-1Print i*jNextjNext i则语句 Printi*j 的执行次数是_。 A.15 B.16 C.17 D.18（分数：3.00）A.B.C.D.40.在窗体上画
20、两个文本框(名称分别为 Text1 和 Text2)和一个命令按钮(名称为 Commandl)，然后编写如下事件过程：Private Sub Commandl_Click()x=0Do While x50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为_。 A.1 和 0 B.2 和 72 C.3 和 50 D.4 和 168（分数：3.00）A.B.C.D.二级 VISUAL+BASIC-49 (1)答案解析(总分：100.00，做题时间：90 分钟)一、B选择
21、题/B(总题数：40，分数：100.00)1.下列数据结构中，属于非线性结构的是_。 A.循环队列 B.带链队列 C.二叉树 D.带链栈（分数：3.00）A.B.C. D.解析：解析 树是简单的非线性结构，所以二叉树作为树的一种也是一种非线性结构。2.下列数据结构中，能够按照“先进后出”原则存取数据的是_。 A.循环队列 B.栈 C.队列 D.二叉树（分数：3.00）A.B. C.D.解析：解析 栈是按先进后出的原则组织数据的。队列是先进先出的原则组织数据。3.对于循环队列，下列叙述中正确的是_。 A.队头指针是固定不变的 B.队头指针一定大于队尾指针 C.队头指针一定小于队尾指针 D.队头指
22、针可以大于队尾指针，也可以小于队尾指针（分数：3.00）A.B.C.D. 解析：解析 循环队列的队头指针与队尾指针都不是固定的，随着入队与出队操作要进行变化。因为是循环利用的队列结构所以对头指针有时可能大于队尾指针有时也可能小于队尾指针。4.算法的空间复杂度是指_。 A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量 C.算法程序中的语句或指令条数 D.算法在执行过程中所需要的临时工作单元数（分数：3.00）A. B.C.D.解析：解析 算法的空间复杂度是指算法在执行过程中所需要的内存空间。所以选择 A。5.软件设计中划分模块的一个准则是_。 A.低内聚低耦合 B.高内聚低耦合
23、 C.低内聚高耦合 D.高内聚高耦合（分数：3.00）A.B. C.D.解析：解析 一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。6.下列选项中不属于结构化程序设计原则的是_。 A.可封装 B.自顶向下 C.模块化 D.逐步求精（分数：3.00）A. B.C.D.解析：解析 结构化程序设计的思想包括：自顶向下、逐步求精、模块化、限制使用 goto 语句，所以选择 A。7.软件详细设计生产的图如下：该图是_（分数：3.00）A.B.C. D.解析：解析 N-S 图提出了用方框图来代替传统的程序流程图，所以 A 不对。PAD 图
24、是问题分析图，它是继承程序流程图和方框图之后提出的又一种主要用于描述软件详细设计的图形表示工具，所以 B 不对。E-R 图是数据库中的用于表示 E-R 模型的图示工具，所以 D 不对。根据图中所示表示方法是进行软件详细设计时使用的程序流程图。8.数据库管理系统是_。 A.操作系统的一部分 B.在操作系统支持下的系统软件 C.一种编译系统 D.一种操作系统（分数：3.00）A.B. C.D.解析：解析 数据库管理系统是数据库的机构，它是一种系统软件，负责数据库中数据组织、数据操纵、数据维护、控制及保护和数据服务等。是一种在操作系统之上的系统软件。9.在 E-R 图中，用来表示实体联系的图形是_。
25、 A.椭圆形 B.矩形 C.菱形 D.三角形（分数：3.00）A.B.C. D.解析：解析 在 E-R 图中实体集用矩形，属性用椭圆，联系用菱形。10.有三个关系 R、S 和 T 如下：则关系 T 是由关系 R 和 S 通过某种操作得到，该操作为_。（分数：3.00）A.B.C.D. 解析：解析 在关系 T 中包含了关系 R 与 S 中的所有元组，所以进行的是并的运算。11.在 VB 集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是_。 AB C D （分数：3.00）A.B.C.D. 解析：解析 *无法重复，*运行，*添加标准 EXE 工程，*结束运行。D 选项正确。
26、12.设 x 是整型变量，与函数 IIf(x0，-x，x)有相同结果的代数式是_。 A.|x| B.-|x| C.X D.-x（分数：3.00）A.B. C.D.解析：解析 IIF 函数是条件函数，本题的含义是如果 x0 条件成立，即 x 为正数，就返回-x，即 x 的负数，否则返回 x(它本身)，两种情况都是返回负数。根据这一点，选项 B 符合要求。故 B 选项正确。13.设窗体文件中有下面的事件过程：Private Sub Commandl_Click()Dim sa%=100Print aEnd Sub其中变量 a 和 s 的数据类型分别是_。 A.整型，整型 B.变体型，变体型 C.整
27、型，变体型 D.变体型，整型（分数：3.00）A.B.C. D.解析：解析 变量 s 定义时没有指明数据类型，默认为 Variant 变体型。变量 a 是用整型的类型符号%声明，并同时赋值 100，所以变量 a 的数据类型为整型。故 C 选项正确。14.下面不能在信息框中输出“VB”的是_， A.MsgBox“VB“ B.x=MsgBox(“VB“) C.MsgBox(“VB“) D.CallMsgBox“VB“（分数：3.00）A.B.C.D. 解析：解析 Msgbox 的功能：显示消息提示框，在对话框中显示提示消息，等待用户单击按钮，单击不同的按钮返回不同的整数。 MsgBox 函数格式：
28、变量=MsgBox(提示内容，样式，标题)，注意MsgBox 函数带括号，有返回值； MsgBox 语句格式：MsgBox(提示内容，样式，标题)，有无括号都可以，无返回值。 选项 D 中用 Call 语句调用 MsgBox 函数，要符合 Call 语句的语法规则：Call 函数名(实参表)，缺少括号，应该为 Call MsgBox(”VB”)，语法才正确。故 D 选项不能输出“VB”，会出错。15.下面关于标准模块的叙述中错误的是_。 A.标准模块中可以声明全局变量 B.标准模块中可以包含一个 Sub Main 过程，但此过程不能被设置为启动过程 C.标准模块中可以包含一些 Public 过
29、程 D.一个工程中可以含有多个标准模块（分数：3.00）A.B. C.D.解析：解析 标准模块中可以包含一个 Sub Main 过程，可以通过“工程属性”对话框中将 Sub Main 过程设置启动对象。故 B 选项错误。16.下面正确使用动态数组的是_。 A.Dim arr()As lnteger ReDim arr(3,5) Dim arr()As lnteger B.ReDim arr(50)As String Dim arr() C.ReDim arr(50)As String Dim arr(50)As String D.ReDim arr(20)（分数：2.00）A. B.C.D.解
30、析：解析 动态数组的使用时，先在窗体层、标准模块或过程中声明一个没有下标的数组 f 括号不能省略)，不指定维数。然后，在过程中用 ReDim 语句定义带下标的数组，给出数组的维数。注意：用ReDim 定义的数组，只能改变数组元素的个数，不能改变数组的维数和数据类型。 本题选项 B、C 中ReDim 语句改变了数组的数据类型，故错误。选项 D 中声明数组时有下标，应该没有下标，故也错误。选项 A 正确。17.下面是求最大公约数的函数的首部：Function gcd(ByVal x As Integer,ByVal y As Integer)As Integer 若要输出 8、12、16 这 3
31、个数的最大公约数，下面正确的语句是_。 A.Print gcd(8,12),gcd(12,16),gcd(16,8) B.Print gcd(8,12,16) C.Print gcd(8),gcd(12),gcd(16) D.Print gcd(8,gcd(12,16)（分数：2.00）A.B.C.D. 解析：解析 调用函数过程时的实参与函数过程的形参必须是类型、顺序、个数相同。本题中函数过程的形参有 2 个，调用时实参也要是 2 个，故排除选项 B 和 C。 选项 A 虽然语法没错误，但不符合题意。 选项 D 是正确的。调用函数过程时可以嵌套调用。18.若在窗体模块的声明部分声明了如下自定义
32、类型和数组：Private Type recCode As IntegerCaption As StringEnd TypeDim arr(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)（分数：2.00）A.B.C. D.解析：解析 定义一个自定义类型的数组，数组元素表示为：数组名(下标).成员名，故选 C。19.下面程序运行时，若输入 395，
33、则输出结果是_。Private Sub Commandl_Click()Dim X%x=InputBox(“请输入一个 3 位整数“)Print x Mod 10, x/100,(x Mod 100)/10End Sub A.3 9 5 B.5 3 9 C.5 9 3 D.3 5 9（分数：2.00）A.B. C.D.解析：解析 本题中 x 定义为整型变量，通过输入对话框输入 395，按“确定”按钮后，InputBox 函数把返回值 395 赋给变量 x。表达式 395 Mod 10，结果是 5，395/100 结果为 3，(395 Mod 100)/10 的结果为 9。故 B 选项正确。20
34、.某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 out.txt 文件中：Private Sub Commandl_Click()Open“out.txt“For Output As #2Print “Text1“Close #2End Sub调试时发现没有达到目的，为实现上述目的，应做的修改是_。 A.把 Print“Text1“改为 Print2， Text1 B.把 Print“Text1“改为 Print Text1 C.把 Print“Text1“改为 Write“Text1“ D.把所有#2 改为#1（分数：2.00）A. B.C.D.解析：解析 要把文本框中的内容
35、写入文本文件中，首先要用 Open 语句的 For Output 模式打开文本文件，并为文件制定一个文件号，然后，用 Print 语句将文本写入文本文件，最后关闭文件。 本题中Click 事件过程中第 1、3 条语句正确。 第 2 条语句 Print 语句的格式是：Print#文件号，要写入的内容，原语句错误。 根据格式按选项 A 修改正确，故 A 选项正确。21.VB 中有 3 个键盘事件：KeyPress、KeyDown、KeyUp，若光标在 Text1 文本框中，则每输入一个字母_。 A.这 3 个事件都会触发 B.只触发 KeyPress 事件 C.只触发 KeyDown、KeyUp
36、事件 D.不触发其中任何一个事件（分数：2.00）A. B.C.D.解析：解析 当用户按下某键时触发 KeyDown 和 KeyPress 事件，放开某键时触发 KeyUp 事件。故每输入一个字符，这 3 个事件都会触发。故 A 选项正确。22.设窗体的名称为 Form1，标题为 Win，则窗体的 MouseDown 事件过程的过程名是_。 A.Form1_MouseDown B.Win_MouseDown C.Form_MouseDown D.MouseDown_Form1（分数：2.00）A.B.C. D.解析：解析 事件过程名格式是：控件名事伴过程名。Form1 是窗体控件的名称，Win
37、 是窗体的标题，所以窗体的 MouseDown 事件过程名是：Form1_MouseDown，故选 A。23.要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是_。 A.Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle) Print X,Y End Sub B.Private Sub P1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y AsSingle)
38、Picture.Print X,Y End Sub C.Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle) P1.Print X,Y End Sub D.Private Sub Form_MouseMove(Button As Integer,ShiftAs Integer,X As Single,YAsSingle) P1.Print X,Y End Sub（分数：2.00）A.B.C. D.解析：解析 当鼠标在图片框 P1 中移动时，就会触发 P1 的鼠标移动事件，即 P1
39、MouseMove 事件，故排除 B 选项；鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标，说明是在图片框上输出数据，所以用 P1 的 Print 语句实现。故 C 选项正确。24.为了使窗体的大小可以改变，必须把它的 BorderStyle 属性设置为_。 A.1 B.2 C.3 D.4（分数：2.00）A.B. C.D.解析：解析 窗体的 BorderStyle 属性是用来设置窗体的边框样式的。属性值 1 为 Fixed Single，3 为Fixed Dialog，4 为 Fixed ToolWindow，设置为这 3 个属性值都不能改变窗口大小。2 是 Sizable，
40、表示窗体大小可以改变。故选 B。25.为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是_。 A.按住 Alt 键，不要松开，然后单击每个要选中的控件 B.按住 Shift 键，不要松开，然后单击每个要选中的控件 C.按住 Ctrl 键，不要松开，然后单击每个要选中的控件 D.拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内（分数：2.00）A. B.C.D.解析：解析 按住 Alt 键只能选中单个控件，不能同时选中多个控件。故选 A。26.在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为_。 A.Text1.Clear B.T
41、ext1.Visible=False C.Text1.Hide D.Text1.Enabled=False（分数：2.00）A.B. C.D.解析：解析 文本框没有 Clear 和 Hide 方法，故 A、C 选项错误；Enabled 属性设置文本框可用不可用，属性值为 True 时可在文本框中输入数据，为 False 时文本框为灰色，内容不能修改，故 D 选项错误；Visible 属性用来设置文本框显示或隐藏，当属性值为 True 时文本框显示，为 False 时文本框隐藏，故B 选项正确。27.以下能够触发文本框 Change 事件的操作是_。 A.文本框失去焦点 B.文本框获得焦点 C.
42、设置文本框的焦点 D.改变文本框的内容（分数：2.00）A.B.C.D. 解析：解析 改变文本框中的内容时就会触发它的 Change 事件，故选 D。28.假定在图片框 Picture1 中装入了一个图片，在程序运行中，为了清除该图片 f 注意，清除图片，而不是删除图片框)，应采用的正确方法是_。 A.单击图片框，然后按 Del 键 B.执行语句 Picturel.Picture=LoadPicture(“) C.执行语句 Picture1.Picture=“ D.执行语句：Picture1.Cls（分数：2.00）A.B. C.D.解析：解析 A 选项按 Del 键不能删除图片；C 选项中
43、Pictue 属性值不能为空字符串，语法错误；D 选项中 Cls 方法只能清除图片上显示的内容，不能清除图片。要将图片框中的图片清除，用 B 选项方法可以。故 B 选项正确。29.要想使列表框只允许单选列表项，应设置的属性为_。 A.Style B.Selected C.MultiSelect D.Enabled（分数：2.00）A.B.C. D.解析：解析 列表框的 Style 属性是设置列表框的外形； Selected 属性在程序运行中设置或返回列表项的选中状态； Enabled 属性设置列表框可用不可用； MultSelect 用来设置选择列表项的方式。0 为默认，只允许单选列表项；1
44、为复选，可同时选中一个或多个列表项，但要一个一个选中；2 也为复选，可一个一个选中列表项，也可连续选中。故选 C。30.在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是( 1。 A.2 B.3 C.4 D.5（分数：2.00）A.B. C
45、.D.解析：解析 程序中 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.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Diml,NumRandomizeDoFor I=1 To 1000Num=lnt(Rnd*100)
46、Print Num;Select Case NumCase 12Exit ForCase 58Exit DoCase 65,68,92EndEnd SelectNext1LoopEnd Sub上述事件过程执行后，下列描述中正确的是_。 A.Do 循环执行的次数为 1000 次 B.在 For 循环中产生的随机数小于或等于 100 C.当所产生的随机数为 12 时结束所有循环 D.当所产生的随机数为 65、68 或 92 时窗体关闭、程序结束（分数：2.00）A.B.C.D. 解析：解析 程序 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.在窗体上画一个名为 Commandl 的命令按钮，然后编写如下
