1、全国计算机等级考试二级 VISUAL+BASIC 真题 2006 年 9 月及答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列选项中不符合良好程序设计风格的是_。（分数：2.00）A.源程序要文档化B.数据说明的次序要规范化C.避免滥用 goto 语句D.模块设计要保证高耦合、高内聚2.从工程管理角度，软件设计一般分为两步完成，它们是_。（分数：2.00）A.概要设计与详细设计B.过程控制C.软件结构设计与数据设计D.程序设计与数据设计3.下列选项中不属于软件生命周期开发阶段任务的是_。（分数：2.00）A.软件测试B.概要设计C.软
2、件维护D.详细设计4.在数据库系统中，用户所见数据模式为_。（分数：2.00）A.概念模式B.外模式C.内模式D.物理模式5.数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和_。（分数：2.00）A.编码设计B.测试阶段C.运行阶段D.物理设计6.设有如下三个关系表 （分数：2.00）A.T=RSB.RSC.T=RSD.T=R/S7.下列叙述中正确的_。（分数：2.00）A.一个算法的空间复杂度大，则其时间复杂度也必定大B.一个算法的空间复杂度大，则其时间复杂度必定小C.一个算法的时间复杂度大，则其空间复杂度必定小D.上述三种说法都不对8.在长度为 64 的有序线性表中进行顺序查找，最坏
3、情况下需要比较的次数为_。（分数：2.00）A.63B.64C.6D.79.数据库技术的根本目标是解决数据的_。（分数：2.00）A.存储问题B.共享问题C.安全问题，D.保护问题10.对下列二叉树 （分数：2.00）A.ACBDFEGB.ACBDFGEC.ABDCGEFD.FCADBEG11.以下叙述中正确的是_。（分数：2.00）A.窗体的 Name 属性指定窗体的名称，用来标识一个窗体B.窗体的 Name 属性值是显示在窗体标题栏中的文本C.可以在运行期间改变窗体的 Name 属性的值D.窗体的 Name 属性值可以为空12.以下叙述中错误的是_。（分数：2.00）A.打开一个工程文件时
4、，系统自动装入与该工程有关的窗体文件B.保存 Visual Basic 程序时，应分别保存窗体文件及工程文件C.Visual Basic 应用程序只能以解释方式执行D.窗体文件包含该窗体及其控件的属性13.设 a=2，b=3，c=4，下列表达式的值是_。 Nota=c Or 4*c=b2 And ba+C（分数：2.00）A.-1B.1C.TrueD.False14.设有如下的用户定义类型： Type Student number As String name As string age As Integer End Type 则以下正确引用该类型成员的代码是_。（分数：2.00）A.Stud
5、ent name=“李明”B.Dim s As Student name“李明“C.Dim s As Type Student name=“李明“D.Dim s As Type name=“李明“15.设 a=5，b=6，c=7，d=8，执行下列语句后，x 的值为_。 x=IIf(ab)And(cd)，10,20)（分数：2.00）A.10B.20C.TrueD.False16.执行以下程序段后，变量 c$的值为_。 a$“Visual Basic Programming“ b$“Quick“ c$b$ & UCase(Mid$(a$，7，6) & Right$(d$,12)（分数：2.00）
6、A.Visual BASIC ProgrammingB.Quick Basic ProgrammingC.QUICK Basic ProgrammingD.Quick BASIC Programming17.在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是_。（分数：2.00）A.Private Sub Text1 Click() LabelCaption=Text1.Text End SubB.Private Sub Text1_Change() Labe
7、lCaption=Text1.Text End SubC.Private Sub Labell_Change() LabelCaption=Text1.Text End SubD.Private Sub Labell_Click() LabelCaption=Text1.Text End Sub18.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter0 For i=1 To 4 For j6 To 1 Step -2 Counter=Counter+1 Next j
8、 Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是_。（分数：2.00）A.11B.12C.16D.2019.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 nn+1 If i10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，
9、在文本框中显示的值是_。（分数：2.00）A.5B.4C.3D.220.在窗体上画一个命令按钮和两个标签，其名称分别为 Command1、Label1 和 Label2，然后编写如下事件过程； Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1 b=0 For j1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(a) Label2.Caption=Str(b) End Sub 程序运行后，单击命令按钮，在标签 Label1 和 Label2 中显示的内容分别是_。（分数：2.00）A.
10、10 和 20B.20 和 110C.200 和 110D.110 和 2021.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是_。（分数：2.00）A.Private Sub List1_Click() Label1.Caption=List1.ListIndex List1.RemoveItem List1.Text End SubB.Private Sub List1_Click() Label1.Name=List1.Lis
11、tIndex List1.RemoveItem List1.Text End SubC.Private Sub List1_Click() Label1.Cavtion=List1.Text List1.RemoveItem List1.ListIndex End SubD.Private Sub List1_Click() Label1.Name=List1.Text List1.RemoveItem List1.ListIndex End Sub22.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1 Click() Dim i
12、 As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j1 To 3 a(i,j)(i-1)*3+j Print a(i,j)； Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是_。（分数：2.00）A.1 2 3 2 4 6 3 6 9B.2 3 4 3 4 5 4 5 6C.1 4 7 2 5 8 3 6 9D.1 2 3 4 5 6 7 8 923.在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码： Option Base() Private Su
13、b Command1 Click() Dim A(4)As Integer,B(4)As Integer For k=0 To 2 A(k+1)InputBox(“请输入一个整数”) B(3-k)A(k+1) Next k Print B(k) End sub 程序运行后，单击命令按钮，在输入对话框中分别输入 2、4、6，输出结果为_。（分数：2.00）A.0B.2C.3D.424.有以下程序： Option Base 1 Dim arr()As Integer Private Sub Form Click() Dim i As Integer,j As Integer ReDim arr(3
14、，2) For i1 To 3 For j1 To 2 arr(i,j)i*2+j Next j Next i ReDim Preserve arr(3,4) For j3 To 4 arr(3,j)j+9 Next j Print arr(3，2)；arr(3，4) End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.813B.013C.712D.0025.以下叙述中正确的是_。（分数：2.00）A.一个 Sub 过程至少要有一个 Exit Sub 语句B.一个 Sub 过程必须有一个 End Sub 语句C.可以在 Sub 过程中定义一个 Function 过程，但不
15、能定义 Sub 过程D.调用一个 Function 过程可以获得多个返回值26.有以下程序： Sub subP(b()As Integer) For i=1 To 4 b(i)2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a(i)5 a(2)6 a(3)7 a(4)8 subP a() For i1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为_。（分数：2.00）A.2 4 6 8B.5 6 7 8C.10 12 14 6D.出错27.设
16、有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr=“ strL=Len(xStr) i=1 Do While istrL/2 tStrtStr & Mid(xStr,i,1) & Mid(xStr,strL-i+1，1) ii+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim
17、 S1 As String S1=“abcdef“ Text1.Text=UCase(Fun(S1) End Sub 程序运行后，单击命令按钮，则 Text1 中显示的是_。（分数：2.00）A.ABCDEFB.abcdefC.AFBECDD.DEFABC28.在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) End Sub 假定焦点已经位于文本框中，则能够触发KeyPress 事件的操作是_。（分数：2.00）A.单击鼠标B.双击文本框C.鼠标滑过文本框D.按下键盘上的某个键29.
18、在窗体上画一个命令按钮和两个文本框，其名称分别为 Command1、Text1 和 Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text“ Text2.Text“ End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyA
19、scii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1“ S2“ End Sub 程序运行后，在 Text1中输入“abc”，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为_。（分数：2.00）A.abc 和 ABCB.abc 和 abeC.ABC 和 abcD.ABC 和 ABC30.以下说法中正确的是_。（分数：2.00）A.任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器B.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器C.任何时候都可以通过单
20、击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器D.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器31.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click() CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files“&_ “(*.txt)|*.txt|Executable Files(*.exe)|*.exe“ CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen MsgBox Common
21、Dialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是_。（分数：2.00）A.AllFiles(*.*)B.Text Files(*.txC.Executable Files(*.exD.不确定32.以下叙述中错误的是_。（分数：2.00）A.一个工程中可以包含多个窗体文件B.在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用C.窗体和标准模块需要分别保存为不同类型的磁盘文件D.用 Dim 定义的窗体层变量只能在该窗体中使用33.以下叙述中错误的是_。（分数：2.00）A.语句“Dim a,b As
22、 Integer“声明了两个整型变量B.不能在标准模块中定义 Static 型变量C.窗体层变量必须先声明，后使用D.在事件过程或通用过程内定义的变量是局部变量34.设有语句：Open “d:/Test.txt“ For Output As #1，以下叙述中错误的是_。（分数：2.00）A.若 d 盘根目录下无 Testxt 文件，则该语句创建此文件B.用该语句建立的文件的文件号为 1C.该语句打开 d 盘根目录下一个已存在的文件 Testxt，之后就可以从文件中读取信息D.执行该语句后，就可以通过 Print#语句向文件 Testxt 中写入信息35.以下叙述中错误的是_。（分数：2.00）
23、A.顺序文件中的数据只能按顺序读写B.对同一个文件，可以用不同的方式和不同的文件号打开C.执行 Close 语句，可将文件缓冲区中的数据写到文件中D.随机文件中各记录的长度是随机的二、B填空题/B(总题数：11，分数：22.00)36.下列软件系统结构图 （分数：2.00）填空项 1:_37.U【2】 /U的任务是诊断和改正程序中的错误。（分数：2.00）填空项 1:_38.一个关系表的行称为U 【3】 /U。（分数：2.00）填空项 1:_39.按“先进后出”原则组织数据的数据结构是U 【4】 /U。（分数：2.00）填空项 1:_40.数据结构分为线性结构和非线性结构，带链的队列属于U 【
24、5】 /U。（分数：2.00）填空项 1:_41.描述“X 是小于 100 的非负整数”的 Visual Basic 表达式是U 【6】 /U。（分数：2.00）填空项 1:_42.在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后，Command1为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。 Private Sub Form_Load() Command1.Enabled=False End sub Private Sub Text1_U 【7】 /U() Command1.Enabled=Tree
25、 End Sub（分数：2.00）填空项 1:_43.在窗体上画一个名称为“Command1”的命令按钮。然后编写如下事件过程 Private Sub Command1 Click() Dim a As String a“123456789“ For i=1 To 5 Print Space(6-i)；Mid$(a，U 【8】 /U，2*i-1) Next i End Sub 程序运行后，单击命令按钮，窗体上的输出结果是 5 456 34567 2345678 123456789 请填空。（分数：2.00）填空项 1:_44.以下程序的功能是：将一维数组 A 中的 100 个元素分别赋给二维数
26、组 B 的每个元素并打印出来，要求把 A(i)到 A(10)依次赋给 B(1，1)到 B(1，10)，把 A(11)到 A(20)依次赋给 B(2，1)到 B(2，10)，把 A(91)到 A(100)依次赋给 B(10，1)到 B(10，10)。请填空。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer Dim A(1 To 100)As Integer Dim B(1 To 10,1 To 10)As Integer For i=1 To 100 A(i)=Int(Rnd*100) Next i For
27、 i=1 To U【9】 /U For j1 To U【10】 /U B(i,j)U 【11】 /U Print B(i,j)； Next j Print Next i End Sub（分数：2.00）填空项 1:_45.在窗体上画一个名称为 Combol 的组合框，然后画两个名称分别为 Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示“已成功添加新输入项。”，如图所示。如果输入的项目已存在，则在 Label2 中给出提示“输入项已
28、在组合框中。”。请填空。 （分数：2.00）填空项 1:_46.在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，然后编写如下事件过程： Private Sub Command1_Click() Dim inData As String Text1.Text=“ Open“d:/myfile.txt“ ForU 【14】 /UAs#1 Do WhileU 【15】 /U Input #1,inData Text1.Text=Text1.Text+inData Loop Close#1 End Sub 程序的功能是，打开 D 盘根目录下的文本文件 myfile.
29、txt，读取它的全部内容并显示在文本框中。请填空。（分数：2.00）填空项 1:_全国计算机等级考试二级 VISUAL+BASIC 真题 2006 年 9 月答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列选项中不符合良好程序设计风格的是_。（分数：2.00）A.源程序要文档化B.数据说明的次序要规范化C.避免滥用 goto 语句D.模块设计要保证高耦合、高内聚 解析：知识点 良好程序设计风格 评析 良好的程序设计风格可以使程序结构清晰合理，使程序代码便于维护，因此，程序设计风格对保证程序的质量很重要。主要应注意和考虑下述一些因素：1
30、、源程序要文档化：2、数据说明的次序要规范化；3、语句的结构应该简单直接，不应该为提高效率而把语句复杂化，避免滥用 goto 语句。模块设计要保证低耦合、高内聚。2.从工程管理角度，软件设计一般分为两步完成，它们是_。（分数：2.00）A.概要设计与详细设计 B.过程控制C.软件结构设计与数据设计D.程序设计与数据设计解析：知识点 软件设计步骤 评析 从工程管理角度看，软件设计分为两步完成：概要设计与详细设计。概要设计(又称结构设计)将软件需求转化为软件体系结构、确定系统级接口、全局数据结构或数据库模式；详细设计确立每个模块的实现算法和局部数据结构，用适当方法表示算法和数据结构的细节。3.下列
31、选项中不属于软件生命周期开发阶段任务的是_。（分数：2.00）A.软件测试B.概要设计C.软件维护 D.详细设计解析：知识点 软件生命周期 评析 软件生命周期分为软件定义、软件开发及软件维护。其中软件开发阶段的任务中软件设计阶段可分解成概要设计阶段和详细设计阶段；软件维护不属于软件开发阶段。4.在数据库系统中，用户所见数据模式为_。（分数：2.00）A.概念模式B.外模式 C.内模式D.物理模式解析：知识点 数据库的基本概念：数据库，数据库管理系统，数据库系统 评析 数据库管理系统的三级模式结构由外模式、模式和内模式组成。外模式，或子模式，或用户模式，是指数据库用户所看到的数据结构，是用户看到
32、的数据视图。模式，或逻辑模式，是数据库中对全体数据的逻辑结构和特性的描述，是所有用户所见到的数据视图的总和。外模式是模式的一部分。内模式，或存储模式，或物理模式，是指数据在数据库系统内的存储介质上的表示，即对数据的物理结构和存取方式的描述。5.数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和_。（分数：2.00）A.编码设计B.测试阶段C.运行阶段D.物理设计 解析：知识点 数据库设计步骤 评析 数据库设计方法和步骤：需求分析、概念设计、逻辑设计和物理设计的相关策略 评析 数据库设计分为以下 6 个设计阶段：需求分析阶段、概念设计阶段、逻辑设计阶段、物理设计阶段、实施阶段及数据库运行和维
33、护阶段。6.设有如下三个关系表 （分数：2.00）A.T=RSB.RSC.T=RS D.T=R/S解析：知识点 关系运算 评析 从图中可以看出，关系 T 是关系 R 和关系 S 的简单扩充，而扩充的符号为 x，所以答案为 T=RS。7.下列叙述中正确的_。（分数：2.00）A.一个算法的空间复杂度大，则其时间复杂度也必定大B.一个算法的空间复杂度大，则其时间复杂度必定小C.一个算法的时间复杂度大，则其空间复杂度必定小D.上述三种说法都不对 解析：知识点 算法分析 评析 算法的复杂度主要包括时间复杂度和空间复杂度：算法在运行过程中需辅助存储空间的大小称为算法的空间复杂度；算法的时间复杂度是指执行
34、算法所需要的计算工作量，即算法执行过程中所需要的基本运算次数，为了能够比较客观地反映出一个算法的效率，在度量一个算法的工作量时，不仅应该与所使用的计算机、程序设计语言以及程序编制者无关，而且还应该与算法实现过程中的许多细节无关。为此，可以用算法在执行过程中所需基本运算的执行次数来度量算法的工作量。8.在长度为 64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为_。（分数：2.00）A.63B.64 C.6D.7解析：知识点 基本数据结构与算法：顺序查找 评析 在进行顺序查找过程中，如果线性表中的第 1个元素就是被查找元素，则只需做一次比较就查找成功，查找效率最高：但如果被查找的元素是
35、线性表中的最后一个元素，或者被查找的元素根本就不在线性表中，则为了查找这个元素需要与线性表中所有的元素进行比较，这是顺序查找的最坏情况。所以对长度为 n 的线性表进行顺序查找，在最坏情况下需要比较n 次。9.数据库技术的根本目标是解决数据的_。（分数：2.00）A.存储问题B.共享问题 C.安全问题，D.保护问题解析：知识点 数据库设计的根本目标 评析 由于数据的集成性使得数据可为多个应用所共享，特别是在网络发达的今天，数据库与网络的结合扩大了数据关系的应用范围。数据的共享本身又可极大地减少数据冗余性，不仅减少了不必要的存储空间，更为重要的是可以避免数据的不一致性。因此，数据库设计的根本目标是
36、要解决数据共享问题。10.对下列二叉树 （分数：2.00）A.ACBDFEG B.ACBDFGEC.ABDCGEFD.FCADBEG解析：知识点 二叉树的中序遍历 评析 二叉树的中序遍历指在访问根结点、遍历左子树与遍历右子树这三者中，首先遍历左子树，然后访问根结点，最后遍历右子树；并且遍历左、右子树时，仍然先遍历左子树，然后访问根结点，最后遍历右子树。11.以下叙述中正确的是_。（分数：2.00）A.窗体的 Name 属性指定窗体的名称，用来标识一个窗体 B.窗体的 Name 属性值是显示在窗体标题栏中的文本C.可以在运行期间改变窗体的 Name 属性的值D.窗体的 Name 属性值可以为空解
37、析：评析 Caption 属性：窗体的 Caption 属性值是显示在窗体标题栏中的文本； Name 属性：窗体的Name 属性是只读属性，即只可以通过属性窗口改变属性值，在运行时不能改变 Name 的属性值，Name 的属性值也不能为空。12.以下叙述中错误的是_。（分数：2.00）A.打开一个工程文件时，系统自动装入与该工程有关的窗体文件B.保存 Visual Basic 程序时，应分别保存窗体文件及工程文件C.Visual Basic 应用程序只能以解释方式执行 D.窗体文件包含该窗体及其控件的属性解析：评析 Visual Basic 应用程序可以以解释方式执行，也可以编译成可执行文件执
38、行。13.设 a=2，b=3，c=4，下列表达式的值是_。 Nota=c Or 4*c=b2 And ba+C（分数：2.00）A.-1B.1C.TrueD.False 解析：评析 当有多类运算符时，要先处理算术运算符，接着处理关系运算符，最后处理逻辑运算符。根据算术运算符的优先级的关系，该表达式应先计算 b2，结果为 9。然后计算 4*c，结果为 16。然后计算 a+c，结果为 6。关系运算符都属同级关系，没有先后之分。计算 ac，即 24，结果为 True。然后计算 4*c=b2，即 16=9，结果为 False。然后计算 ba+c，即 36，结果为 True。根据逻辑运算符的优先级的关系
39、，该表达式应先计算 Notac，即 Not True，结果为 False。然后计算 4*c=b2 And ba+c，即 False And True 结果为 False。最后计算 False Or False，结果为 False。14.设有如下的用户定义类型： Type Student number As String name As string age As Integer End Type 则以下正确引用该类型成员的代码是_。（分数：2.00）A.Student name=“李明”B.Dim s As Student name“李明“ C.Dim s As Type Student na
40、me=“李明“D.Dim s As Type name=“李明“解析：评析 题目中所给出的是用户自定义类型，在这里注意新类型的名称是 Student，所以选项 C、D均不正确；对于类型成员的引用是：对象，属性(方法)，所以选项 A 不正确。15.设 a=5，b=6，c=7，d=8，执行下列语句后，x 的值为_。 x=IIf(ab)And(cd)，10,20)（分数：2.00）A.10B.20 C.TrueD.False解析：评析 函数 IIF(expr,val1,val2)与 IF 语句相似，当布尔表达式 expr 为 True 时，则选择 val1的值，否则选择 val2 的值。16.执行以
41、下程序段后，变量 c$的值为_。 a$“Visual Basic Programming“ b$“Quick“ c$b$ & UCase(Mid$(a$，7，6) & Right$(d$,12)（分数：2.00）A.Visual BASIC ProgrammingB.Quick Basic ProgrammingC.QUICK Basic ProgrammingD.Quick BASIC Programming 解析：评析 首先使用 Mid$函数取出带前导空白的 Basic，并使用 UCase 将其转化为大写。然后使用Right$函数取出带前导空白的 Programming。最后将三个字符串连
42、接起来，结果就是选项 D。17.在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是_。（分数：2.00）A.Private Sub Text1 Click() LabelCaption=Text1.Text End SubB.Private Sub Text1_Change() LabelCaption=Text1.Text End Sub C.Private Sub Labell_Change() LabelCaption=Text1.Text End Su
43、bD.Private Sub Labell_Click() LabelCaption=Text1.Text End Sub解析：评析 TextBox 控件中，Text 属性是用来显示文本内容的。Change 事件是在 TextBox 控件的 Text内容发生改变时触发。Click 事件是在用户鼠标单击文本时触发。18.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter0 For i=1 To 4 For j6 To 1 Step -2 Counter=Counter
44、+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是_。（分数：2.00）A.11B.12 C.16D.20解析：评析 在 For 循环中，Step 是用于指定计数器的步长，本题中是-2，就是每执行一次循环后，j的值减 2。程序共有两层循环，当外层循环执行第一次时，j 从 6 开始执行循环，当 j0 时，结束循环，此时 Counter11+13。而外循环一共要执行 4 次，所以 Counter333312019.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，
45、然后编写如下事件过程： Private Sub Command1 Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 nn+1 If i10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.5B.4C.3 D.2解析：评析 当执行第一次循环时 i 的值为 i=i+3，所以 i 的值增加 3：当执行第二次循环时，在 For i=0 To 50 语句中 i 的值增加 1，而在 i=i+3 语句中 i 的值增加 3，所以在第
46、二次循环时 i 的值增加 4；以后每次循环 i 的值都增加 4，当 i10 时循环退出，故循环只能被执行 3 次，则 n 值为 3。20.在窗体上画一个命令按钮和两个标签，其名称分别为 Command1、Label1 和 Label2，然后编写如下事件过程； Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1 b=0 For j1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(a) Label2.Caption=Str(b) End Sub 程序运行后，单击命令按钮，在标签 Label
47、1 和 Label2 中显示的内容分别是_。（分数：2.00）A.10 和 20B.20 和 110C.200 和 110D.110 和 20 解析：评析 程序共有两层循环，当外层循环执行第一次时，j 从 1 开始执行循环，当 j11 时，结束循环，此时 a11， b=20；当外层循环执行第二次时，b 的初始值被赋予 0，而 a 的初始值却为 11，j 依然从 1 开始执行循环，当 i11 时，结束循环，此时 a=22，b=20，依此类推，当外层循环执行第十次时，此时 a=110，b=20。21.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是_。（分数：2.00）A.Private Sub List1_Click() Label1.Caption=List1.ListIndex List1.RemoveItem
