1、国家二级（VB）机试模拟试卷 171 及答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列数据结构中，属于非线性结构的是( )。（分数：2.00）A.循环队列B.带链队列C.二叉树D.带链栈2.下列数据结构中，能够按照“先进后出”原则存取数据的是( )。（分数：2.00）A.循环队列B.栈C.队列D.二叉树3.对于循环队列，下列叙述中正确的是( )。（分数：2.00）A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针4.算法的空间复杂度是指( )。（分数：2.00）
2、A.算法在执行过程中所需要的计算机存储空间B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数5.软件设计中划分模块的一个准则是( )。（分数：2.00）A.低内聚低耦合B.高内聚低耦合C.低内聚高耦合D.高内聚高耦合6.下列选项中不属于结构化程序设计原则的是( )。（分数：2.00）A.可封装B.自顶向下C.模块化D.逐步求精7.软件详细设计产生的图如下： （分数：2.00）A.N-S 图B.PAD 图C.程序流程图D.E-R 图8.数据库管理系统是( )。（分数：2.00）A.操作系统的一部分B.在操作系统支持下的系统软件C.一种编译系统D.一种操
3、作系统9.在 E-R 图中，用来表示实体联系的图形是( )。（分数：2.00）A.椭圆形B.矩形C.菱形D.三角形10.有三个关系 R、S 和 T 如下： （分数：2.00）A.选择B.投影C.交D.并11.在 VB 集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是( )。（分数：2.00）A.B.C.D.12.设 x 是整型变量，与函数 IIf(x0，一 x，x)有相同结果的代数式是( )。（分数：2.00）A.|x|B.一|x|C.xD.一 x13.设窗体文件中有下面的事件过程： Private Sub Command1_Click() Dim s a=100 Pr
4、int a End Sub 其中变量 a 和 s 的数据类型分别是( )。（分数：2.00）A.整型，整型B.变体型，变体型C.整型，变体型D.变体型，整型14.下面不能在信息框中输出“VB”的是( )。（分数：2.00）A.MsgBox“VB“B.x=MsgBox(“VB“)C.MsgBox(“VB“)D.Call MsgBox“VB“15.下面关于标准模块的叙述中，错误的是( )。（分数：2.00）A.标准模块中可以声明全局变量B.标准模块中可以包含一个 Sub Main 过程，但此过程不能被设置为启动过程C.标准模块中可以包含一些 Public 过程D.一个工程中可以含有多个标准模块16
5、.下面正确使用动态数组的是( )。（分数：2.00）A.Dim arr()As Integer ReDim arr(3，5)B.Dim arr()As Integer ReDim arr(50)As StringC.Dim arr() ReDim arr(50)As IntegerD.Dim arr(50)As Integer ReDim arr(20)17.下面是求最大公约数的函数的首部： Function gcd(ByVal x As Integer，ByVal y As Integer)As Integer 若要输出 8、12、16 这 3 个数的最大公约数，下面正确的语句是( )。（分
6、数：2.00）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)18.若在窗体模块的声明部分声明了如下自定义类型和数组： Private Type rec Code As Integer Caption As String End Type Dim arr(5)As rec 则下面的输出语句中正确的是( )。（分数：2.00）A.Print arrCode(2)，arrCaption(2)B.Print arrCode，a
7、rrCaptionC.Print arr(2)Code，arr(2)CaptionD.Print Code(2)，Caption(2)19.下面程序运行时，若输入 395，则输出结果是( )。 Private Sub Command1_Click() Dim x x=InputBox(“请输入一个 3 位整数“) Print x Mod 10，x100，(x Mod 100)10 End Sub（分数：2.00）A.3 9 5B.5 3 9C.5 9 3D.3 5 920.某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 outtxt 文件中： Private Sub Comma
8、nd1_Click() Open“outtxt“For Output As #2 Print“Text1“ Close #2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是( )。（分数：2.00）A.把 Print“Text1“改为 Print #2，Text1B.把 Print“Text1“改为 Print Text1C.把 Print“Text1“改为 Write“Text1“D.把所有#2 改为#121.VB 中有 3 个键盘事件：KeyPress、KeyDown、KeyUp，若光标在 Text1 文本框中，则每输入一个字母( )。（分数：2.00）A.这 3 个
9、事件都会触发B.只触发 KeyPress 事件C.只触发 KeyDown、KeyUp 事件D.不触发其中任何一个事件22.设窗体的名称为 Form1，标题为 Win，则窗体的 MouseDown 事件过程的过程名是( )。（分数：2.00）A.Form1_MouseDownB.Win_MouseDownC.Form_MouseDownD.MouseDown_Form123.要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是( )。（分数：2.00）A.Private Sub P1_MouseMove(Button As Integer，Sh
10、ift As Integer，X As Single，Y As Single) Print X，Y End SubB.Private Sub P1_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) PicturePrint X，Y End SubC.Private Sub P1_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) P1Print X，Y End SubD.Private Sub Form_MouseMo
11、ve(Button As Integer，Shift As Integer，X As Single，Y As Single) P1Print X，Y End Sub24.为了使窗体的大小可以改变，必须把它的 BorderStyle 属性设置为( )。（分数：2.00）A.1B.2C.3D.425.为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是( )。（分数：2.00）A.按住 Alt 键，不要松开，然后单击每个要选中的控件B.按住 Shift 键，不要松开，然后单击每个要选中的控件C.按住 Ctrl 键，不要松开，然后单击每个要选中的控件D.拖动鼠标画出一个虚线矩形，使
12、所选中的控件位于这个矩形内26.在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为( )。（分数：2.00）A.Text1ClearB.Text1Visible=FalseC.Text1HideD.Text1Enabled=False27.以下能够触发文本框 Change 事件的操作是( )。（分数：2.00）A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容28.假定在图片框 Picture1 中装入了一个图片，在程序运行中，为了清除该图片(注意，清除图片，而不是删除图片框)，应采用的正确方法是( )。（分数：2.00）A.单击
13、图片框，然后按 Del 键B.执行语句 Picture1Picture=LoadPicture(“)C.执行语句 Picture1Picture=“D.执行语句：Picture1Cls29.要想使列表框只允许单选列表项，应设置的属性为( )。（分数：2.00）A.StyleB.SelectedC.MuhiSelectD.Enabled30.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮然后编写如下事件讨程， Private Sub Command1_Click() Dim i As Integer，n As Integer For i=0 To 50 i=
14、i+3 n=n+1 If i10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。（分数：2.00）A.2B.3C.4D.531.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_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 E
15、nd Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是( )。（分数：2.00）A.Do 循环执行的次数为 1000 次B.在 For 循环中产生的随机数小于或等于 100C.当所产生的随机数为 12 时结束所有循环D.当所产生的随机数为 65、68 或 92 时窗体关闭、程序结束32.在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=4 To 1 Step1 s=s+a(i)*j
16、 j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是( )。（分数：2.00）A.1234B.12C.34D.432l33.设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As StringstrL As Integer tStr=“ strL=Len(xStr) i=1 Do While i=strL2 tStr=tStr&Mid(xStr，i，1)&Mid(xStr，strLi+l，1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为
17、 Command1 的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1=“abcdef“ Print UCase(Fun(S1) End Sub 程序运行后，单击命令按钮，输出结果是( )。（分数：2.00）A.ABCDEFB.abcdefC.AFBECDD.DEFABC34.某人为计算 n!(00) Print n Mod 10； n=n10 Wend Print End Sub 此程序功能是：输入 2 个正整数，反序输出这 2 个数的每一位数字，再反序输出这 2 个数之和的每一位数字。例如：若输入 123
18、和 234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2 行(即 2 个数的反序)，而未输出第 3 行(即 2 个数之和的反序)，程序需要修改。下面的修改方案中正确的是( )。（分数：2.00）A.把过程 pro 的形式参数 n As Integer 改为 ByVal n As IntegerB.把 Call pro(a+b)改为 pro a+bC.把 n=n10 改为 n=n10D.在 pro b 语句之后增加语句 c=a+b，再把 Call pro(a+b)改为 pro c38.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Pr
19、ivate Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在横线处应填入的内容为( )。（分数：2.00）A.Right(c1，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 Step1 Print i*j Next j Next i 则语句 Print i*j 的执行次数是( )。（分数：2.00）
20、A.15B.16C.17D.1840.在窗体上画两个文本框(名称分别为 Text1 和 Text2)和一个命令按钮(名称为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do While xA.1 和 0B.2 和 72C.3 和 50D.4 和 168二、基本操作题(总题数：1，分数：2.00)41.(1)在名称为 Form1 的窗体上添加三个单选按钮，其名称分别为 Option1、Option2 和 Option3(如图 1所示)，然后通过属性窗口设置窗体和单选按钮的属性，实现如下功能： 窗体标题为“设置单选按钮属性”； 三个
21、单选按钮的标题分别为“按钮 1”、“按钮 2”和“按钮 3”； 初始状态为，第一个单选按钮为“选中”； 程序运行后，第二个单选按钮“不可用”； 程序运行后，第三个单选按钮不可见。 程序的运行情况如图 2 所示。 要求：不编写任何代码。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 Sjtlfrm。 (2)在名称为 Form1 的窗体上画一个垂直滚动条和一个命令按钮，其名称分别为 VScroll1 和 Command1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max=窗体高度 Min=0 LargeChange=50
22、 SmallChange=10 如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的刻度值。 程序的运行情况如图所示。 （分数：2.00）_三、简单应用题(总题数：1，分数：2.00)42.(1)在考生文件夹下有工程文件 sjt3vbp，其窗体上有 1 个标题为“计算”的命令按钮，1 个标题为“无理数 e 的近似值”的标签。请再画 1 个初始内容为空的文本框textl，如下左图所示。程序功能为：单击“计算”命令按钮，则计算无理数 e 的近似值，并将结果显示在 Text1 文本框中。近似公式如下：e=1+11!+12!+13!+1n!+请将程序代码中的注释符去掉，把?改为正确内容，以实现上述程序功
23、能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp。其窗体中有 1 个名称为 Command1，标题为“查找”的命令按钮；3 个初始内容为空的文本框 Text1、Text2 和 Text3，其中 Text1 允许显示多行内容，且有垂直滚动条，如下右图所示。程序功能为：首先在 Text1 中输入原始字符串，在 Text2 中输入要查找的单个字符，然后单击“查找”按钮，则在 Text3 中显示查找的结果。图示为某一次的运行效果。 请将“查找”命令按钮Click 事件过程中的注释符去掉，把?改为正确内容，以实现上述程
24、序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。 （分数：2.00）_四、综合应用题(总题数：1，分数：2.00)43.在考生文件夹下有一个工程文件 sjt5vbp，其窗体上有一个名称为 Text1 的文本框；还有两个名称分别为 C1、C2 的命令按钮，标题分别为“计算”、“存盘”。有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。 请编写适当的事件过程，使得程序运行时，单击“计算”按钮，找出小于 18000 的最大素数，并显示在 Text1 中；单击“存盘”按钮
25、，则将 Text1 中的计算结果存入考生文件夹下的 out5txt 文件中。 注意：考生不得修改 isprime 函数过程和控件的属性，必须把计算结果通过“存盘”按钮存入 out5txt 文件中，否则将没有成绩。（分数：2.00）_国家二级（VB）机试模拟试卷 171 答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列数据结构中，属于非线性结构的是( )。（分数：2.00）A.循环队列B.带链队列C.二叉树 D.带链栈解析：解析：树是简单的非线性结构，所以二叉树作为树的一种也是一种非线性结构。2.下列数据结构中，能够按照“先进后出”原则存取数
26、据的是( )。（分数：2.00）A.循环队列B.栈 C.队列D.二叉树解析：解析：栈是按先进后出的原则组织数据的。队列是先进先出的原则组织数据。3.对于循环队列，下列叙述中正确的是( )。（分数：2.00）A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针 解析：解析：循环队列的队头指针与队尾指针都不是固定的，随着人队与出队操作要进行变化。因为是循环利用的队列结构所以队头指针有时可能大于队尾指针有时也可能小于队尾指针。4.算法的空间复杂度是指( )。（分数：2.00）A.算法在执行过程中所需要的计算机存储空间 B.算
27、法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数解析：解析：算法的空间复杂度是指算法在执行过程中所需要的内存空间。所以选择 A。5.软件设计中划分模块的一个准则是( )。（分数：2.00）A.低内聚低耦合B.高内聚低耦合 C.低内聚高耦合D.高内聚高耦合解析：解析：一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。6.下列选项中不属于结构化程序设计原则的是( )。（分数：2.00）A.可封装 B.自顶向下C.模块化D.逐步求精解析：解析：结构化程序设计的思想包括：自顶向下、逐步求精、模块化
28、、限制使用 goto 语句，所以选择 A。7.软件详细设计产生的图如下： （分数：2.00）A.N-S 图B.PAD 图C.程序流程图 D.E-R 图解析：解析：NS 图提出了用方框图来代替传统的程序流程图，所以 A 不对。PAD 图是问题分析图，它是继承程序流程图和方框图之后提出的又一种主要用于描述软件详细设计的图形表示工具，所以 B 不对。ER 图是数据库中的用于表示 ER 模型的图示工具，所以 D 不对。根据图中所示表示方法是进行软件详细设计时使用的程序流程图。8.数据库管理系统是( )。（分数：2.00）A.操作系统的一部分B.在操作系统支持下的系统软件 C.一种编译系统D.一种操作系
29、统解析：解析：数据库管理系统是数据库的机构，它是一种系统软件，负责数据库中数据组织、数据操纵、数据维护、控制及保护和数据服务等。是一种在操作系统之上的系统软件。9.在 E-R 图中，用来表示实体联系的图形是( )。（分数：2.00）A.椭圆形B.矩形C.菱形 D.三角形解析：解析：在 ER 图中实体集用矩形，属性用椭圆，联系用菱形。10.有三个关系 R、S 和 T 如下： （分数：2.00）A.选择B.投影C.交D.并 解析：解析：并关系 T 中包含了关系 R 与 S 中的所有元组，所以进行的是并的运算。11.在 VB 集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是(
30、 )。（分数：2.00）A.B.C.D. 解析：解析：A 是无法重复，B 是运行，C 是添加标准，D 是结束运行。D 选项正确12.设 x 是整型变量，与函数 IIf(x0，一 x，x)有相同结果的代数式是( )。（分数：2.00）A.|x|B.一|x| C.xD.一 x解析：解析：IIF 函数是条件函数，本题的含义是如果 x0 条件成立，即 x 为正数，就返回一 x，即 x 的负数，否则返回 x(它本身)，两种情况都是返回负数。根据这一点，选项 B 符合要求。故 B 选项正确。13.设窗体文件中有下面的事件过程： Private Sub Command1_Click() Dim s a=10
31、0 Print a End Sub 其中变量 a 和 s 的数据类型分别是( )。（分数：2.00）A.整型，整型B.变体型，变体型C.整型，变体型 D.变体型，整型解析：解析：变量 s 定义时没有指明数据类型，默认为 Variant 变体型。变量 a 是用整型的类型符号声明，并同时赋值 100，所以变量 a 的数据类型为整型：故 C 选项正确。14.下面不能在信息框中输出“VB”的是( )。（分数：2.00）A.MsgBox“VB“B.x=MsgBox(“VB“)C.MsgBox(“VB“)D.Call MsgBox“VB“ 解析：解析：Msgbox 的功能：显示消息提示框，在对话框中显示提
32、示消息，等待用户单击按钮，单击不同的按钮返回不同的整数。 MsgBox 函数格式：变量=MsgBox(提示内容，样式，标题)，注意MsgBox 函数带括号，有返回值； MsgBox 语句格式：MsgBox(提示内容，样式，标题)，有无括号都可以，无返回值。 选项 D 中用 Call 语句调用 MsgBox 函数，要符合 Call 语句的语法规则：Call 函数名(实参表)，缺少括号，应该为 Call MsgBox(“VB“)，语法才正确。故 D 选项不能输出“VB“，会出错。15.下面关于标准模块的叙述中，错误的是( )。（分数：2.00）A.标准模块中可以声明全局变量B.标准模块中可以包含一
33、个 Sub Main 过程，但此过程不能被设置为启动过程 C.标准模块中可以包含一些 Public 过程D.一个工程中可以含有多个标准模块解析：解析：标准模块中可以包含一个 Sub Main 过程，可以通过“工程属性”对话框中将 Sub Main 过程没置启动对象。故 B 选项错误。16.下面正确使用动态数组的是( )。（分数：2.00）A.Dim arr()As Integer ReDim arr(3，5) B.Dim arr()As Integer ReDim arr(50)As StringC.Dim arr() ReDim arr(50)As IntegerD.Dim arr(50)A
34、s Integer ReDim arr(20)解析：解析：动态数组的使用时，先在窗体层、标准模块或过程中声明一个没有下标的数组(括号不能省略)。不指定维数。然后，在过程中用 ReDim 语句定义带下标的数组，给出数组的维数。注意：用 ReDim定义的数组，只能改变数组元素的个数，不能改变数组的维数和数据类型。 本题选项 B、c 中 ReDim 语句改变了数组的数据类型，故错误。选项 D 中声明数组时有下标，应该没有下标，故也错误。选项 A 正确。17.下面是求最大公约数的函数的首部： Function gcd(ByVal x As Integer，ByVal y As Integer)As I
35、nteger 若要输出 8、12、16 这 3 个数的最大公约数，下面正确的语句是( )。（分数：2.00）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 个，调用时实参也要是 2 个，故排除选项 B 和 C。 选项 A 虽然语法没错误，但不符合题意。 选项 D 是正确的。调用函数过程时可以嵌套调用。18.若在窗体
36、模块的声明部分声明了如下自定义类型和数组： Private Type rec Code As Integer Caption As String End Type Dim arr(5)As rec 则下面的输出语句中正确的是( )。（分数：2.00）A.Print arrCode(2)，arrCaption(2)B.Print arrCode，arrCaptionC.Print arr(2)Code，arr(2)Caption D.Print Code(2)，Caption(2)解析：解析：定义一个自定义类型的数组，数组元素表示为：数组名(下标)成员名，故选 C。19.下面程序运行时，若输入
37、395，则输出结果是( )。 Private Sub Command1_Click() Dim x x=InputBox(“请输入一个 3 位整数“) Print x Mod 10，x100，(x Mod 100)10 End Sub（分数：2.00）A.3 9 5B.5 3 9 C.5 9 3D.3 5 9解析：解析：本题中 x 定义为整型变量，通过输入对话框输入 395，按“确定”按钮后，InputBox 函数把返回值 395 赋给变量 x。表达式 395 Mod 10，结果是 5，395100 结果为 3，(395 Mod 100)10 的结果为 9。故 B 选项正确。20.某人编写了下
38、面的程序，希望能把 Text1 文本框中的内容写到 outtxt 文件中： Private Sub Command1_Click() Open“outtxt“For Output As #2 Print“Text1“ Close #2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是( )。（分数：2.00）A.把 Print“Text1“改为 Print #2，Text1 B.把 Print“Text1“改为 Print Text1C.把 Print“Text1“改为 Write“Text1“D.把所有#2 改为#1解析：解析：要把文本框中的内容写入文本文件中，首先要用
39、Open 语句的 For Output 模式打开文本文件并为文件制定一个文件号，然后，用 Print 语句将文本写入文本文件，最后关闭文件。 本题中Click 事件过程中第 1、3 条语句正确。 第 2 条语句 Print 语句的格式是：Print #文件号，要写入的内容，原语句错误。 根据格式按选项 A 修改正确，故 A 选项正确。21.VB 中有 3 个键盘事件：KeyPress、KeyDown、KeyUp，若光标在 Text1 文本框中，则每输入一个字母( )。（分数：2.00）A.这 3 个事件都会触发 B.只触发 KeyPress 事件C.只触发 KeyDown、KeyUp 事件D.
40、不触发其中任何一个事件解析：解析：当用户按下某键时触发 KeyDown 和 KeyPress 事件，放开某键时触发 Key Up 事件。故每输入一个字符，这 3 个事件都会触发。故 A 选项正确。22.设窗体的名称为 Form1，标题为 Win，则窗体的 MouseDown 事件过程的过程名是( )。（分数：2.00）A.Form1_MouseDownB.Win_MouseDownC.Form_MouseDown D.MouseDown_Form1解析：解析：事件过程名格式是：控件名一事件过程名。Foml 是窗体控件的名称，Win 是窗体的标题，所以窗体的。MouseDown 事件过程名是：F
41、orm_MouseDown，故选 A。23.要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是( )。（分数：2.00）A.Private Sub P1_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) Print X，Y End SubB.Private Sub P1_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) PicturePrint X，Y End S
42、ubC.Private Sub P1_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) P1Print X，Y End Sub D.Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) P1Print X，Y End Sub解析：解析：当鼠标在图片框 P1 中移动时，就会触发 P1 的鼠标移动事件，即 P1_MouseMove 事件，故排陈 B 选项；鼠标在图片框 Pl 中移动时，立即在
43、图片框中显示鼠标的位置坐标，说明是在图片框上输出数据，所以用 P1 的 Print 语句实现。故 C 选项正确。24.为了使窗体的大小可以改变，必须把它的 BorderStyle 属性设置为( )。（分数：2.00）A.1B.2 C.3D.4解析：解析：窗体的 BorderStyle 属性是用来设置窗体的边框样式的。属性值 1 为 Fixed Single，3 为Fixed Dialog，4 为 Fixed Toolwindow，设置为这 3 个属性值都不能改变窗口大小。2 是 Sizable，表示窗体大小可以改变。故选 B。25.为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件
44、的操作是( )。（分数：2.00）A.按住 Alt 键，不要松开，然后单击每个要选中的控件 B.按住 Shift 键，不要松开，然后单击每个要选中的控件C.按住 Ctrl 键，不要松开，然后单击每个要选中的控件D.拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内解析：解析：按住 Alf 键只能选中单个控件，不能同时选中多个控件。故选 A。26.在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为( )。（分数：2.00）A.Text1ClearB.Text1Visible=False C.Text1HideD.Text1Enabled=False解析：
45、解析：文本框没有 Clear 和 Hide 方法，故 A、C 选项错误；Enabled 属性设置文本框可用不可用，属性值为 True 时可在文本框中输入数据，为 False 时文本框为灰色，内容不能修改，故 D 选项错误；Visible 属性用来设置文本框显示或隐藏，当属性值为 True 时文本框显示，为 False 时文本框隐藏，故B 选项正确。27.以下能够触发文本框 Change 事件的操作是( )。（分数：2.00）A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容 解析：解析：改变文本框中的内容时就会触发它的 Change 事件，故选 D。28.假定在图片框
46、 Picture1 中装入了一个图片，在程序运行中，为了清除该图片(注意，清除图片，而不是删除图片框)，应采用的正确方法是( )。（分数：2.00）A.单击图片框，然后按 Del 键B.执行语句 Picture1Picture=LoadPicture(“) C.执行语句 Picture1Picture=“D.执行语句：Picture1Cls解析：解析：A 选项按 Del 键不能删除图片；C 选项中 Pictue 属性值不能为空字符串，语法错误；D 选项中 Cls 方法只能清除图片上显示的内窬，不能清除图片。要将图片框中的图片清除，用 B 选项方法可以。故 B 选项正确。29.要想使列表框只允许
47、单选列表项，应设置的属性为( )。（分数：2.00）A.StyleB.SelectedC.MuhiSelect D.Enabled解析：解析：列表框的 Style 属性是设置列表框的外形； Selected 属性在程序运行中设置或返回列表项的选中状态； Enabled 属性设置列表框可用不可用； MuhSelect 用来设置选择列表项的方式。0 为默认，只允许单选列表项；1 为复选，叮同时选中一个或多个列表项，但要一个一个选中；2 也为复选，可一个一个选中歹 0 表项，也呵连续选中。故选 C。30.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮然后编写如下
48、事件讨程， 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 Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。（分数：2.00）A.2B.3 C.4D.5解析：解析：程序中 For 循环的结束有两种情况，一种是循环完指定的次数，一种是达剑一定的条件后直接退出循环，由于在循环体中循环变量 i 的值被修改：i=i+3，因此，每次循环开始时 i 的取值为0，4，8，i 为 8 时执行 i+3=11，n=n+1=3，这时 i 的值大于 10，退出 For 循环，因此 For 循环执行了 3次，即 n 的值为 3。所以在文本框中会显示 3。31.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim I，Num Randomize Do For I=1 To 1000 Num=Int(Rnd*100) P
