1、全国计算机等级考试二级 VISUAL+BASIC 真题 2013 年 3 月及答案解析(总分：45.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.下列数据结构中，能够按照“先进后”原则存取数据的是_。（分数：1.00）A.循环队列B.栈C.队列D.二叉树2.下列数据结构中，属于非线性结构的是_。（分数：1.00）A.循环队列B.带链队列C.二叉树D.带链栈3.软件设计中模块划分应遵循的准则是_。（分数：1.00）A.低内聚低耦合B.高内聚低耦合C.低内聚高耦合D.高内聚高耦合4.在软件开发中，需求分析阶段产生的主要文档是_。（分数：1.00）A.可行性分析报告B.
2、软件需求规格说明书C.概要设计说明书D.集成测试计划5.数据流图中带有箭头的线段表示的是_。（分数：1.00）A.控制流B.事件驱动C.模块调用D.数据流6.在软件开发中，需求分析阶段可以使用的工具是_。（分数：1.00）A.N-S 图B.DFD 图C.PAD 图D.程序流程图7.耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是_。（分数：1.00）A.提高耦合性降低内聚性有利于提高模块的独立性B.降低耦合性提高内聚性有利于提高模块的独立性C.耦合性是指一个模块内部各个元素间彼此结合的紧密程度D.内聚性是指模块间互相连接的紧密程度8.数据库应用系统中的核心问题是_。（分数：1.0
3、0）A.数据库设计B.数据库系统设计C.数据库维护D.数据库管理员培训9.在 E-R 图中，用来表示实体联系的图形是_。（分数：1.00）A.椭圆形B.矩形C.菱形D.三角形10.有三个关系 R、S 和 T 如下： 其中关系 T 由关系 R 和 S 通过某种操作得到，该操作为_。（分数：1.00）A.选择B.投影C.交D.并11.以下叙述中错误的是_。（分数：1.00）A.标准模块文件的扩展名是.basB.标准模块文件是纯代码文件C.在标准模块中声明的全局变量可以在整个工程中使用D.在标准模块中不能定义过程12.在 Visual Basic 中，表达式 3*2/5 Mod 3 的值是_。（分数
4、：1.00）A.1B.0C.3D.出现错误提示13.设 a=4，b=5，c=6，执行语句 Print ab And bc 后，窗体上显示的是_。（分数：1.00）A.TrueB.FalseC.出错信息D.014.执行下列语句： strInput=InputBox(“请输入字符串“，“字符串对话框“，“字符串“) 将显示输入对话框。此时如果直接单击“确定”按钮，则变量 strlnput 的内容是_。（分数：1.00）A.“请输入字符串“B.“字符串对话框“C.“字符串“D.空字符串15.以下变量名中合法的是_。（分数：1.00）A.x2-1B.printC.str_nD.2x16.把数学表达式
5、（分数：1.00）A.(5x+3)/(2y-6)B.x*5+3/2*y-6C.(5*x+3)(2*y-6)D.(x*5+3)/(y*2-6)17.下面是求最大公约数的函数的首部： Function gcd(ByVal x As Integer，ByVal y As Integer)As integer 若要输出 8、12、16 这 3 个数的最大公约数，下面正确的语句是_。（分数：1.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，g
6、cd(12，16)18.若在窗体模块的声明部分声明了如下自定义类型和数组： Private Type rec Code As Integer Caption As String End Type Dim arr(5)As rec 则下面的输出语句中正确的是_。（分数：1.00）A.Print air.Code(2), aft.Caption(2)B.Print arr.Code, air.CaptionC.Print arr(2).Code, air(2).CaptionD.Print Code(2), Caption(2)19.为把圆周率的近似值 3.14159 存放在变量 pi 中，应该把
7、变量 pi 定义为_。（分数：1.00）A.Dim pi As IntegerB.Dim pi(7)As IntegerC.Dim pi As SingleD.Dim pi As Long20.表达式 2*32+4*2/2+32 的值是_。（分数：1.00）A.30B.31C.49D.4821.设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是_。（分数：1.00）A.List1.ListB.List1.ListIndexC.List1.TextD.List1.Index22.在窗体上画一个文本框(名称为 Text1)和一个标签(名称为 Label1)，
8、程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是_。（分数：1.00）A.Private Sub Text1_Change( )Label1.Caption=Str(Len(Text1.Text)End SubB.Private Sub Text1_Click( )Label1.Caption=Str(Len(Text1.Text)End SubC.Private Sub Text1_Change( )Label1.Caption=Text1.TextEnd SubD.Private Sub Label1_Change( )Labe
9、l1.Caption=Str(Len(Text1.Text)End Sub23.设窗体上有名称为 Option1 的单选按钮，且程序中有语句： If Option1.Value=True Then 下面语句中与该语句不等价的是_。（分数：1.00）A.If Option1.Value ThenB.If Option1=True ThenC.If Value=True ThenD.If Option1 Then24.设窗体上有 1 个水平滚动条，已经通过属性窗口把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是_。（分数：1.00）A.程序运行时，若使滚动块向左移动，
10、滚动条的 Value 属性值就增加B.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少C.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错D.由于滚动条的 Max 属性值小于 Min 属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动25.为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是_。（分数：1.00）A.按住 Alt 键，不要松开，然后单击每个要选中的控件B.按住 Shift 键，不要松开，然后单击每个要选中的控件C.按住 Ctrl 键，不要松开，然后单击每个要选中的控件D.拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内
11、26.在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为_。（分数：1.00）A.Text1.ClearB.Text1.Visible=FalseC.Text1.HideD.Text1.Enabled=False27.设窗体上有一个标签 Label1 和一个计时器 Timer1，Timer1 的 Interva1 属性被设置为 1000，Eeabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是_。（分数：1.00）A.Private Sub Timer1_Timer( )Label1.CaDti
12、on=TrueEnd SubB.Private Sub Timer1_Timer( )Label1.Caption=Time$End SubC.Private Sub Timetd_Timer( ) Label1.Interval=1End SubD.Private Sub Timer1 Timer( )For k=1 To Timer1.IntervalLabel1.Caption=TimerNext kEnd Sub28.窗体上有一个名称为 CD1 的通用对话框控件和由 4 个命令按钮组成的控件数组 Commamd1，其下标从左到右 分别为 0、1、2、3，窗外外观如图所示。 （分数：1.
13、00）A.单击“打开”按钮，显示打开文件的对话框B.单击“保存”按钮，显示保存文件的对话框C.单击“打印”按钮，能够设置打印选项，并执行打印操作D.单击“退出”按钮，结束程序的运行29.用来设置文字字体是否斜体的属性是_。（分数：1.00）A.FontUnderlineB.FortaBoldC.FontSlopeD.FontItalic30.看体上有一个名称为 Timer1 的计时器控件，一个名称为 shape1 的形状控件，其 Shape 属性值为3(Cirele)。编写程序如下： Private Sub Form_Load() Shape1.Top=0 Timer1.Interval=10
14、0 End Sub Private Sub Timer1_Timer() Static x As Integer Shape1.Top=Shape1.Top+100 x=x+1 If x Mod 10=0 Then Shape1.Top=0 End If End Sub 以下关于上述程序的叙述中，错误的是_。（分数：1.00）A.每执行一次 Timer1_Timer 事件过程，x 的值都在原有基础上增加 1B.Shape1 每移动 10 次回到起点，重新开始C.窗体上的 Shape1 由下而上移动D.Shape1 每次移动 10031.现有如下程序： Private Sub Command1_
15、Click() S=0 For i=1 To 5 s=s+f(5+i) Next Print S End Sub Public Function f(x As Integer) If x=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是_。（分数：1.00）A.38B.49C.61D.7032.窗体上有一个名称为 Picture1 的图片框控件，一个名称为 Label1 的标签控件，如图所示。 （分数：1.00）A.程序运行时会出错B.单击图片框，在图片框中显示一幅图片C.过程中的 x 是控件变量D.单击标签，在标签中
16、显示一串文字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, strL-i+1，1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim S1
17、 As String S1=“abcdef“ Print UCase(Fun(S1) End Sub 程序运行后，单击命令按钮，输出结果是_。（分数：1.00）A.ABCDEFB.abcdefC.AFBECDD.DEFABC34.某人为计算 n!(0n=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 Function 在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有 3 种是正确
18、的，错误的方案是_。（分数：1.00）A.把 P=1 改为 P=nB.把 For k=n-1 To 2 Step-1 改为 For k=1 To n-1C.把 For k=n-1 To 2 Step-1 改为 For k=1 To nD.把 For k=n-1 To 2 Step-1 改为 For k=2 To n35.窗体上的 3 个命令按钮构成名称为 Command1 的控件数组，如图所示。 （分数：1.00）A.Print Command1(2).Caption 语句有错B.在窗体上显示“命令按钮 2”C.在窗体上显示“命令按钮 3”D.在窗体上显示“计算机等级考试”36.下面程序的执行
19、结果是_。 Private Sub Command1_Click() a=0 k=1 Do While k4 x=kka k=k+1 Print x； Loop End Sub（分数：1.00）A.1 4 27B.1 1 1C.1 4 9D.0 0 037.设有如图所示窗体和以下程序： （分数：1.00）A.文本框中无内容，焦点在文本框中B.文本框中为“Basic”，焦点在文本框中C.文本框中为“Basic”，焦点在按钮上D.文本框中为“Visual Basic”，焦点在按钮上38.窗体上有一个名称为 Command1 的命令按钮，其事件过程如下： Private Sub Command1_C
20、lick() x=“VisualBasieProgramming“ a=Right(x，11) b=Mid(x，7，5) c=MsgBox(a，b) End Sub 运行程序后单击命令按钮。以下叙述中错误的是_。（分数：1.00）A.信息框的标题是 BasicB.信息框中的提示信息是 ProgrammingC.c 的值是函数的返回值D.MsgBox 的使用格式有错39.在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click(
21、) X=5：Y=3 Call proc(X，Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer，ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是_。（分数：1.00）A.25 和 3B.5 和 3C.25 和 6D.5 和 640.在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim M(10)As Integer For k=1
22、To 10 M(k)=12-k Next k x=8 Print M(2+M(x) End Sub 运行程序，单击命令按钮，在窗体上显示的是_。（分数：1.00）A.6B.5C.7D.8二、基本操作题(总题数：2，分数：2.00)41.请在名称为 Form1 的窗体上添加一个名称为 H1 的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为 1，最大刻度值为 100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动 10 个刻度。再在滚动条下面画两个名称分别为 L1 和 L2 的标签，并分别显示 1 和 100，运行时的窗体如图所示。 （
23、分数：1.00）_42.在名称为 Form1 的窗体上添加两个名称分别为 Text1 和 Text2 的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为“操作”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Copy 和 Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把 Text1 中的内容复制到 Text2 中；单击“清除”选项菜单，则清除 Text2 中的内容(即在 Text2 中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。 （分数：1.00）_三、简单应用题(总题数
24、：2，分数：2.00)43.在考生文件夹下有一个工程文件 sjt3.vbp，窗体上已经有一个标签 Label1，请添加一个单选按钮数组，名称为 Op1，含 3 个单选按钮，它们的 Index 属性分别为 0、1、2，标题依次为“飞机”、“火车”、“汽车”。再添加一个名称为 Text1 的文本框。窗体文件中已经给出了 Op1 的 Click 事件过程，但不完整，要求去掉程序中的注释符，把程序中的问号改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在 Text1 中显示“我坐飞机去”或“我坐火车去”；单击“汽车”单选按钮时，在 Text1 中显示“我开汽车去”，如图所示。 注意：
25、不能修改程序中的其他部分。最后将修改的文件按原文件名存盘。 （分数：1.00）_44.在考生文件夹下有一个工程文件 sjt3.vbp，Form1 窗体中有一个文本框，名称为 Text1；请先在窗体上添加两个框架控件，名称分别为 F1、F2，标题分别为“性别”、“身份”；然后在 F1 中添加两个单选按钮控件 Op1、Op2，标题分别为“男”、“女”；其次在 F2 中添加丽个单选按钮控件 Op3、Op4，标题分别为“学生”、“教师”；最后再添加一个命令按钮，名称为 C1，标题为“确定”，如图所示。请编写适当的事件过程，使得运行时，在 F1、F2 中各选一个单选 最后把修改后的文件以原来的文件名存盘
26、。 （分数：1.00）_四、综合应用题(总题数：1，分数：1.00)45.以下数列：1，1，2，3，5，8，13，21的规律是从第 3 个数开始，每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件 sjt5.vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第 n 项的值，并在文本框中显示，n 是选中的单选按钮后面的数值(提示：因计算结果较大，应使用长整型变量)。 注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得一个结果；必须使用窗体右上角
27、的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：1.00）_全国计算机等级考试二级 VISUAL+BASIC 真题 2013 年 3 月答案解析(总分：45.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.下列数据结构中，能够按照“先进后”原则存取数据的是_。（分数：1.00）A.循环队列B.栈 C.队列D.二叉树解析：解析 栈是按先进后出的原则组织数据。队列是按先进先出的原则组织数据。2.下列数据结构中，属于非线性结构的是_。（分数：1.00）A.循环队列B.带链队列C.二叉树 D.带链栈解析：解析 树是简单的非线性结构，所以二叉树作为
28、树的一种也是一种非线性结构。3.软件设计中模块划分应遵循的准则是_。（分数：1.00）A.低内聚低耦合B.高内聚低耦合 C.低内聚高耦合D.高内聚高耦合解析：解析 软件设计中模块划分应遵循的准则是高内聚低耦合、模块大小规模适当、模块的依赖关系适当等。模块的划分应遵循一定的要求，以保证模块划分合理，并进一步保证以此为依据开发出的软件系统可靠性强，易于理解和维护。模块之间的耦合应尽可能的低，模块的内聚度应尽可能的高。4.在软件开发中，需求分析阶段产生的主要文档是_。（分数：1.00）A.可行性分析报告B.软件需求规格说明书 C.概要设计说明书D.集成测试计划解析：解析 A 选项错误，可行性分析阶段
29、产生可行性分析报告。C 选项错误，概要设计说明书是总体设计阶段产生的文档。D 选项错误，集成测试计划是在概要设计阶段编写的文档。B 选项正确，软件需求规格说明书是后续工作如设计、编码等需要的重要参考文档。5.数据流图中带有箭头的线段表示的是_。（分数：1.00）A.控制流B.事件驱动C.模块调用D.数据流 解析：解析 数据流图中带箭头的线段表示的是数据流，即沿箭头方向传送数据的通道，一般在旁边标注数据流名。6.在软件开发中，需求分析阶段可以使用的工具是_。（分数：1.00）A.N-S 图B.DFD 图 C.PAD 图D.程序流程图解析：解析 在需求分析阶段可以使用的工具有数据流图(DFD)，数
30、据字典(DD)，判定树与判定表，所以选择 B。7.耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是_。（分数：1.00）A.提高耦合性降低内聚性有利于提高模块的独立性B.降低耦合性提高内聚性有利于提高模块的独立性 C.耦合性是指一个模块内部各个元素间彼此结合的紧密程度D.内聚性是指模块间互相连接的紧密程度解析：解析 模块独立性是指每个模块只完成系统要求的独立的子功能，并且与其他模块的联系最少且接口简单。一般较优秀的软件设计，应尽量做到高内聚、低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性，所以 A 选项错误，B 选项正确。耦合性是模块间互相连接的紧密程
31、度的度量，而内聚性是指一个模块内部各个元素间彼此结合的紧密程度，所以 C 选项与 D 选项错误。8.数据库应用系统中的核心问题是_。（分数：1.00）A.数据库设计 B.数据库系统设计C.数据库维护D.数据库管理员培训解析：解析 数据库应用系统中的核心问题是数据库的设计。9.在 E-R 图中，用来表示实体联系的图形是_。（分数：1.00）A.椭圆形B.矩形C.菱形 D.三角形解析：解析 在 E-R 图中实体集用矩形，属性用椭圆形，联系用菱形。10.有三个关系 R、S 和 T 如下： 其中关系 T 由关系 R 和 S 通过某种操作得到，该操作为_。（分数：1.00）A.选择B.投影C.交D.并
32、解析：解析 并关系 T 中包含了关系 R 与 S 中的所有元组，所以进行的是并的运算。11.以下叙述中错误的是_。（分数：1.00）A.标准模块文件的扩展名是.basB.标准模块文件是纯代码文件C.在标准模块中声明的全局变量可以在整个工程中使用D.在标准模块中不能定义过程 解析：解析 标准模块独立保存为标准模块文件.bas，故 A 选项正确。 标准模块是应用程序内其他模块访问的过程和声明的容器。当应用程序比较庞大，含有多个窗口，而且几个窗口需要写重复的过程、变量等代码时，就可以把这些重复的代码写在标准模块。故 B 选项正确。 存标准模块中定义的 Public 变量、Public 过程属于全局变
33、量和全局过程，在整个工程中的其他窗体、模块都可以使用。故 C 选项正确。在标准模块中可以定义过程，放 D 选项错误。 12.在 Visual Basic 中，表达式 3*2/5 Mod 3 的值是_。（分数：1.00）A.1 B.0C.3D.出现错误提示解析：解析 VB 中算术运算符优先级从高到低依次为：乘方()负号(-)乘、除(*、/)整除(、)取模(Mod)加、减(+、-)。 根据优先级顺序，先计算 3*2 为 6，再 6、5 整除为 1，最后 1 Mod 3 取模结果为 1。故 A 选项正确。13.设 a=4，b=5，c=6，执行语句 Print ab And bc 后，窗体上显示的是_
34、。（分数：1.00）A.True B.FalseC.出错信息D.0解析：解析 Print 语句中计算表达式的值，按运算符的优先级顺序，关系运算符“”比逻辑运算符“And”优先级高。先计算“”，结果为 True And True，再计算“And”，结果为 True，故选择 A 选项。14.执行下列语句： strInput=InputBox(“请输入字符串“，“字符串对话框“，“字符串“) 将显示输入对话框。此时如果直接单击“确定”按钮，则变量 strlnput 的内容是_。（分数：1.00）A.“请输入字符串“B.“字符串对话框“C.“字符串“ D.空字符串解析：解析 InputBox 函数的格
35、式： 变量名=InputBox(“提示信息“,“标题栏显示信息“,“输入文本框中默认值“,X,Y) InputBox 函数的功能：在一输入对话框中显示提示，等待用户在输入文本框中输入数据，然后按下按钮，返回文本框内容。如果用户单击“确定”按钮，则 InputBox 函数把输入文本框的内容作为一字符串返回；如果没有输入数据，按“确定”按钮，则返回的是字符串；如果按“取消”按钮，则不管输入文本框中有没有输入数据，都返回空字符串。 根据以上所述，运行程序，会出现一个输入对话框，在上而有“请输入字符串”提示信息，标题栏中显示“字符串对话框”，输入文本框中有默认值“字符串”，单击“确定”按钮后，文本框中
36、的“字符串”3 个字作为字符串返回给 strInput 变量。所以 strInput 变量的内容是“字符串”，故选 C。15.以下变量名中合法的是_。（分数：1.00）A.x2-1B.printC.str_n D.2x解析：解析 VB 中变量名的命名规则：必须以字母或汉字开头；由字母、汉字、数字或下划线组成；不能使用 VB 的保留字。本题中 x2-1 中有-(减号)，不是下划线。print 是 VB 的保留字，也不能作为变量名。2x 以数字开头，也是错误的。故 C 选项正确。16.把数学表达式 （分数：1.00）A.(5x+3)/(2y-6)B.x*5+3/2*y-6C.(5*x+3)(2*y
37、-6)D.(x*5+3)/(y*2-6) 解析：解析 VB 数学表达式中的乘用*表示，除用/表示，表示一个整体的可加括号( )。故 D 选项正确。17.下面是求最大公约数的函数的首部： Function gcd(ByVal x As Integer，ByVal y As Integer)As integer 若要输出 8、12、16 这 3 个数的最大公约数，下面正确的语句是_。（分数：1.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(
38、8，gcd(12，16) 解析：解析 调用函数过程时的实参与函数过程的形参必须是类型、顺序、个数相同。 本题中函数过程的形参有 2 个，调用时实参也要是 2 个，故排除选项 B 和 C。 选项 A 虽然语法没有错误，但不符合题意。选项 D 是正确的。调用函数过程时可以嵌套调用。18.若在窗体模块的声明部分声明了如下自定义类型和数组： Private Type rec Code As Integer Caption As String End Type Dim arr(5)As rec 则下面的输出语句中正确的是_。（分数：1.00）A.Print air.Code(2), aft.Captio
39、n(2)B.Print arr.Code, air.CaptionC.Print arr(2).Code, air(2).Caption D.Print Code(2), Caption(2)解析：解析 定义一个自定义类型的数组，数组元素表示为：数组名(下标)，成员名，故选 C。19.为把圆周率的近似值 3.14159 存放在变量 pi 中，应该把变量 pi 定义为_。（分数：1.00）A.Dim pi As IntegerB.Dim pi(7)As IntegerC.Dim pi As Single D.Dim pi As Long解析：解析 单精度 Single 或双精度 Double 型
40、的变量能够保存浮点型小数，整型 Integer 和长整型Long 的变量只能保存整型数据。本题中网周率为 3.14159，小数，可用定义一个 Single 或 Double 型变量来保存。故选 C。20.表达式 2*32+4*2/2+32 的值是_。（分数：1.00）A.30B.31 C.49D.48解析：解析 根据 VB 中算术运算符的优先级顺序计算。先计算，即 2*9+4*2/2+9；再计算*/，即18+4+9；最后计算+，结果为 31，故选 B。21.设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是_。（分数：1.00）A.List1.ListB
41、.List1.ListIndexC.List1.Text D.List1.Index解析：解析 List1 的 List 属性是设置或返回列表框中的列表项内容；ListIndex 属性设置或返回当前选中的列表项的索引值；Index 属性是用来区分列表框控件数组中各 List 控件；Text 属性设置或返回当前所选中列表项的文本内容。故选 C。22.在窗体上画一个文本框(名称为 Text1)和一个标签(名称为 Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是_。（分数：1.00）A.Private Sub Text1_
42、Change( )Label1.Caption=Str(Len(Text1.Text)End Sub B.Private Sub Text1_Click( )Label1.Caption=Str(Len(Text1.Text)End SubC.Private Sub Text1_Change( )Label1.Caption=Text1.TextEnd SubD.Private Sub Label1_Change( )Label1.Caption=Str(Len(Text1.Text)End Sub解析：解析 根据题意可知，在文本框中输入字符这个动作使标签上显示的内容发生变化，说明是文本框触发
43、了某事件，排除 D 选项；文本框中每输入一个字符，标签中立即就会发生变化，故是 Change 事件，排除 B 选项；标签中显示的是文本框中字符的个数，不是输入的内容，排除 C 选项。故 A 选项正确。23.设窗体上有名称为 Option1 的单选按钮，且程序中有语句： If Option1.Value=True Then 下面语句中与该语句不等价的是_。（分数：1.00）A.If Option1.Value ThenB.If Option1=True ThenC.If Value=True Then D.If Option1 Then解析：解析 A 选项中 Option1.Value 可作为一
44、个条件表达式，它返回的是单选按钮 Value 属性的属性值，根据属性值就可以判断出单选按钮是否被选中；B 选项中 Option1 等价于 Option1.Value；D 选项与A 选项等价，故 A、B、D 选项均与程序中语句等价；C 选项中 Value 是属性名，前面必须加控件名才能用，不能单独使用，故 C 选项错误。24.设窗体上有 1 个水平滚动条，已经通过属性窗口把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是_。（分数：1.00）A.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加 B.程序运行时，若使滚动块向左移动，滚动条的 Value
45、 属性值就减少C.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错D.由于滚动条的 Max 属性值小于 Min 属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动解析：解析 水平滚动条的 Max 和 Min 属性值可以是 032767 中任意值。当 MaxMin 属性值时，滚动块向右移动，Value 属性值增加；向左移动，Value 属性值减少。反之，当 MaxMin 属性值时，滚动块向右移动，Value 属性值减少；向左移动，Value 属性值增加。当它们 Max=Min 时，滚动块不能移动。故 A选项正确。25.为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控
46、件的操作是_。（分数：1.00）A.按住 Alt 键，不要松开，然后单击每个要选中的控件 B.按住 Shift 键，不要松开，然后单击每个要选中的控件C.按住 Ctrl 键，不要松开，然后单击每个要选中的控件D.拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内解析：解析 按住 Alt 键只能选中单个控件，不能同时选中多个控件。故选 A 选项。26.在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为_。（分数：1.00）A.Text1.ClearB.Text1.Visible=False C.Text1.HideD.Text1.Enabled=Fals
47、e解析：解析 文本框没有 Clear 和 Hide 方法，故 A、C 选项错误；Enabled 属性设置文本框可用不可用，属性值为 True 时可在文本框中输入数据，为 False 时文本框为灰色，内容不能修改，故 D 选项错误；Visible 属性用来设置文本框显示或隐藏，当属性值为 True 时文本框显示，为 False 时文本框隐藏，故B 选项正确。27.设窗体上有一个标签 Label1 和一个计时器 Timer1，Timer1 的 Interva1 属性被设置为 1000，Eeabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是_。（分数：1.00）A.Priv
