1、全国计算机等级考试二级 VISUAL+BASIC 真题 2007 年 9 月及答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下面叙述正确的是_。（分数：2.00）A.程序设计就是编制程序B.程序的测试必须由程序员自己去完成C.程序经调试改错后还应进行再测试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.软件工程只是解决软件开发中
3、的技术问题6.在软件设计中，不属于过程设计工具的是_。（分数：2.00）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图7.下列叙述中正确的是_。（分数：2.00）A.软件交付使用后还需要进行维护B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令8.数据库设计的根本目标是要解决_。（分数：2.00）A.数据共享问题B.数据安全问题C.大量数据存储问题D.简化数据维护9.设有如下关系表_。 （分数：2.00）A.T=RSB.T=RSC.T=RSD.T=R/S10.数据库系统的核心是_。（分数：2.00）A.数据模型B
4、.数据库管理系统C.数据库D.数据库管理员11.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是_。（分数：2.00）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件C.只保存窗体模块和标准模块文件D.只保存工程文件12.为了清除窗体上的一个控件，下列正确的操作是_。（分数：2.00）A.按回车键B.按 Esc 键C.选择(单击)要清除的控件，然后按 Del 键D.选择(单击)要清除的控件，然后按回车键13.以下叙述中错误的是_。（分数：2.00）A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文
5、件B.当程序运行时，双击一个窗体，则触发该窗体的 DblClick 事件C.Visual Basic 应用程序只能以解释方式执行D.事件可以由用户引发，也可以由系统引发14.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 Not a=c Or4*c=b2Andba+c（分数：2.00）A.-1B.1C.TrueD.False15.设 a=5,b=10，则执行 c=Iht(b-A)*Rnd+A)+1 后，c 值的范围为_。（分数：2.00）A.510B.69C.610D.5916.在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程： Private Sub Comm
6、and1_Click() a$=“software and hardware“ b$=Right(a$，8) c$=Mid(a$，1，8) MsgBox a$，b$，c%，1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是_。（分数：2.00）A.software and hardwareB.softwareC.hardwareD.117.在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(“E
7、nter an integer“) b=InputBox(“Enter an integer“) Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示的内容是_。（分数：2.00）A.108B.18C.810D.出错18.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text=“ Text2.Text=“ Text1.SetFocus End Sub Private Sub Text1_Change() Text
8、2.Text=Mid(Text1.Text，8) End Sub 程序运行后，如果在文本框 Text1 中输入BeijingChina，则在文本框 Text2 显示的内容是 _。（分数：2.00）A.BeijingChinaB.ChimaC.BeijingD.BeijingC19.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程 Private Sub Form_Load() List1.Addltem“Iteml“ List1.Addltem“Item2“ List1.Addltem“Item3“ End Sub Private Sub
9、 Command1_click() List1.List(List1.ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为_。（分数：2.00）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA 人”添加到列表框的最后(即“Item3”的后面)C.把列表框中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)20.假定有如下事件过程： Private Sub Form_Cilck() Dim x As Integer，n As Integer x=1 n=0 Do While x28 X
10、=X*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.81 4B.56 3C.28 1D.243 521.有如下程序： Ptivate Sub Form_Click() Dim Check，Counter Cbeck=True Counter=0 Do Do While Counter20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End S
11、ub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.15 0B.20 -1C.10 TrueD.10 False22.有如下程序： Private Sub Form_CHck() Dim i As Integer，sum As Integer sum=0 For i=2 TO 10 If Mod 2 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.12B.30C.24D.1823.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1
12、 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10，10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.12B.13C.14D.1524.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Priv
13、ate Sub Command1_Click() Dima1(4，4)a2(4，4) Dim i As Integer, j As Integer For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print a1(3,3);a2(3,3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是_。（分数：2.00）A.6 6B.10 5C.7 21D.6 1225.有如下程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 al
14、t=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.25B.26C.27D.2826.在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 To 5 a(I)=Chr(Asc(“A“)+(i-1) Next i For Each b In a Pri
15、nt b； Next End Sub 程序运行后，单击命令按钮，输出结果是_。（分数：2.00）A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息27.以下关于函数过程的叙述中，正确的是_。（分数：2.00）A.如果不指明函数过程参数的类型，则该参数没有数据类型B.函数过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D.函数过程形参的类型与函数返回值的类型没有关系28.函数过程 n 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。以下能正确实现上述功能的代码的是_。（分数：2.00）A.Function F1(b As
16、Intege If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB.Function F1(b As Intege If b Mod 2=0 Then F1=0 Else F1=1 End If End FunctionC.Function F1(b As Intege If b Mod 2=0 Then F1=1 Else F1=0 End If End FunctionD.Functionn(b As Intege If b Mod 2 0Then Return 0 Else Return 1 End If End Fu
17、nction29.以下关于 KeyPress 事件过程中参数 KeyAscii 的叙述中，正确的是_。（分数：2.00）A.KeyAscii 参数是所按键的 ASCII 码B.KeyAscii 参数的数据类型为字符串C.KeyAscii 参数可以省略D.KeyAscii 参数是所按键上标注的字符30.设窗体上有一个名为 Text1 的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=“ Text1.SetFocus End Sub Private Sub Form_Mouse Up (Button As Integer，Shift As
18、Integer，X As Single，Y As Single) Print“程序设计“ End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print“Visual Basic“； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是_。（分数：2.00）A.Visual BasicB.程序设计C.Visual Basic 程序设计D.a 程序设计31.假定有下表所列的菜单结构： (表格) 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“”。以
19、下正确的事件过程是_。（分数：2.00）A.Private Sub bigicon_Click() bigicoChecked=False End SubB.Private Sub bigicon_Click0 MappeabigicoChecked=True End SubC.Private Sub bigicon_Click() bigicoChecked=True End SubD.Private Sub bigicon_Click0 appeabigicoChecked=True End Sub32.假定通用对话框的名称为 CommonDialog1，命令按钮的名称为 Command1
20、，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是_。（分数：2.00）A.Private Sub Commandl_Click() CommonDialog1.DialogTitle=“NewTitle“ CommonDialog1.ShowPrinter End SubB.Private Sub Command1_Click() CommonDialog1.DialogTitle=“NewTitle“ CommonDialog1.ShowFont End SubC.Private Sub Commslld1_CUck() CommonDialog1.Dialog
21、Tifie=“NewTitle“ CommonDialog1.ShowOpen End SubD.PrivateSubCommand1_Click() CommonDialog1.DialogTitle”NewTitle” CommonDialog1.ShowColor End Sub33.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是_。（分数：2.00）A.任何时刻最多只有一个窗体是活动窗体B.不能把标准模块设置成启动模块C.用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D.如果工程中含有 Sub Main 过程，则程序一定首先执行该过程34.假定在工程文件中有一个标
22、准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。下列能够完成该操作的事件过程是：（分数：2.00）A.Ptivate Sub Command1_Click() Dim B As Books Open“c:/Persotxt“For Output As#1 Name=InputBox(“输入姓名“) TelNum=InputBox(“输入电话号码“) Write#1，Name，TelNum Cl
23、ose#1 End SubB.Private Sub Command1_Click() Dim B As Books Open“c:/Persotxt“For Input As#1 Name=InputBox(“输入姓名“) TelNum=InputBox(“输入电话号码“) Print#1，Name，TelNum Close#1 End SubC.Private Sub Command1_Click() Dim B As Books OPQl“c:/Persotxt“For Output As#1 Nallle=InputBox(“输入姓名“) TelNum=InputBox(“输入电话号码
24、“) Write#1，B Close#1 End SubD.Private Sub Command1_Click() Dim B As Books Open“c:/Persotxt“For lnput As#1 Name=InputBox(“输入姓名“) TelNum=InputBox(“输入电话号码“) Write#1，Name，TelNum Close#1 End Sub35.目录列表框的 Path 属性的作用是_。（分数：2.00）A.显示当前驱动器或指定驱动器上的某目录下的文件名B.显示当前驱动器或指定驱动器上的目录结构C.显示根目录下的文件名D.显示指定路径下的文件二、B填空题/B(
25、总题数：10，分数：20.00)36.数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是U 【1】 /U。（分数：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.数据结
26、构分为逻辑结构和存储结构，循环队列属于U 【5】 /U结构。（分数：2.00）填空项 1:_41.设有以下函数过程： Function fun(m As Integer)As Integer Dim k As Integer, sum As Integer sum=0 For k=m To 1 Step-2 sum=sum+k Next k fun=stlm End Function 若在程序中用语句 s=fun(10)调用此函数，则 s 的值为U 【6】 /U。（分数：2.00）填空项 1:_42.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的 Click 事件过程。程序运行后，在文
27、本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到 Text1 中。例如，若在 Text1 中输入的是 abDfdb，则单击 Comrnand1 按钮后 Text1 中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click() Dim str As String，s As String，c As String str=UCase(Text1) S=“ C=“Z“ While c=“A“ If lnStr(str,C)=0 Then s=U 【7】 /U
28、End If c=Chr$(Asc(C)U 【8】 /U) Wend If s“Then Text1=S End If End Sub（分数：2.00）填空项 1:_43.在 n 个运动员中选出任意 r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中 3 个文本框的名称依次是 Text1、Text2、Text。程序运行时在 Text1、Text2 中分别输入 n和 r 的值，单击 Command1 按钮即可求出选法的个数，并显示在 Text3 文本框中(见下图)。请填空。 （分数：2.00）填空项 1:_44.以下是一个比赛评分程序。在窗体上建立一个名为 Text1
29、的文本框数组，然后画一个名为 Text2 的文本框和名为 Command1 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中(去掉一个最高分和一个最低分后的平均分即为景后得分)，如图所示。请填空。 （分数：2.00）填空项 1:_45.如图所示，在列表框 Listl 中已经有若干人的简单信息，运行时在 Text1 文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显示第 1 个匹配项；若未找到，则在 Text
30、2 中显示“查无此人”。请填空。 （分数：2.00）填空项 1:_全国计算机等级考试二级 VISUAL+BASIC 真题 2007 年 9 月答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下面叙述正确的是_。（分数：2.00）A.程序设计就是编制程序B.程序的测试必须由程序员自己去完成C.程序经调试改错后还应进行再测试 D.程序经调试改错后不必进行再测试解析：评析 程序调试的任务是诊断和改正程序中的错误，改正以后还需要再测试。2.下列数据结构中，能用二分法进行查找的是_。（分数：2.00）A.顺序存储的有序线性表 B.线性链表C.二叉链
31、表D.有序线性链表解析：评析 二分法查找只适用于顺序存储的有序表。在此所说的有序表是指线性表中的元素按值非递减排列(即从小到大，但允许相邻元素值相等)。3.下列关于栈的描述正确的是_。（分数：2.00）A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删除元素 D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素解析：评析 栈实际上也是线性表，只不过是一种特殊的线性表。在这种特殊的线性表中，其插入和删除只在线性表的一端进行。4.下列叙述中正确的是_。（分数：2.00）A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于
32、线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 解析：5.下列描述中正确的是_。（分数：2.00）A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D.软件工程只是解决软件开发中的技术问题解析：评析 软件工程是计算机软件开发和维护的工程学科，它采用工程的概念原理、技术和方法来开发和维护软件，它把经过时间考验而证明正确的管理技术和当前能够得到的最好技术结合起来。6.在软件设计
33、中，不属于过程设计工具的是_。（分数：2.00）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图 解析：评析 软件设计工具包括：程序流程图、N-S、PAD、HIPO，判定表，PDL(伪码)。而 DFD(数据流图)属于结构化分析工具。7.下列叙述中正确的是_。（分数：2.00）A.软件交付使用后还需要进行维护 B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令解析：评析 软件的运行和维护是指将已交付的软件投入运行，并在运行使用中不断地维护，根据新提出的需求进行必要而且可能的扩充和删改。而软件生命周期是指软件产品从提出
34、、实现、使用维护到停止使用退役的过程。8.数据库设计的根本目标是要解决_。（分数：2.00）A.数据共享问题 B.数据安全问题C.大量数据存储问题D.简化数据维护解析：评析 由于数据的集成性使得数据可为多个应用所共享，特别是在网络发达的今天，数据库与网络的结合扩大了数据关系的应用范围。数据的共享本身又可极大地减少数据冗余性，不仅减少了不必要的存储空间，更为重要的是可以避免数据的不一致性。因此，数据库设计的根本目标是要解决数据共享问题。9.设有如下关系表_。 （分数：2.00）A.T=RSB.T=RS C.T=RSD.T=R/S解析：评析 从图中可以看出，关系 T 是关系 R 和关系 s 的简单
35、合并，而合并的符号为 u，所以答案为T=RUS。10.数据库系统的核心是_。（分数：2.00）A.数据模型B.数据库管理系统 C.数据库D.数据库管理员解析：评析 数据库管理系统 DBMS 是数据库系统的核心。DBMS 是负贵数据库的建立、使用和维护的软件。DBMS 建立在操作系统之上，实施对数据库的统一管理和控制。用户使用的各种数据库命令以及应用程序的执行，最终都必须通过 DBMS。另外，DBMS 还承担着数据库的安全保护工作，按照 DBA 所规定的要求，保证数据库的完整性和安全性。11.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正
36、确的操作是_。（分数：2.00）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件 C.只保存窗体模块和标准模块文件D.只保存工程文件解析：评析 由于应用程序中包括一个窗体模块和一个标准模块，所以保存的时候这两个模块肯定要保存，而工程文件是这两个模块的容器，也需要保存。12.为了清除窗体上的一个控件，下列正确的操作是_。（分数：2.00）A.按回车键B.按 Esc 键C.选择(单击)要清除的控件，然后按 Del 键 D.选择(单击)要清除的控件，然后按回车键解析：评析 要想删除窗体上的某个控件，首先要选中这个控件，然后按下删除键(Del 键)来删除。13.以下叙述中错误的是_。（分
37、数：2.00）A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B.当程序运行时，双击一个窗体，则触发该窗体的 DblClick 事件C.Visual Basic 应用程序只能以解释方式执行 D.事件可以由用户引发，也可以由系统引发解析：评析 Visual Basic 应用程序可以以解释方式执行，也可以编译成可执行文件执行。14.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 Not a=c Or4*c=b2Andba+c（分数：2.00）A.-1B.1C.TrueD.False 解析：评析 本题考的是运算符的优先顺序。在表达式中，当运算符不只一种时，要先处理算术
38、运算符，接着处理比较运算符，然后再处理逻辑运算符。本题中 a=c 返回真，4*e=b2 返回假，ba+c 返回真。Not 真就是假，假 And 真也返回假，最后假 Or 假，也返回假，所以最后值为 False。15.设 a=5,b=10，则执行 c=Iht(b-A)*Rnd+A)+1 后，c 值的范围为_。（分数：2.00）A.510B.69C.610 D.59解析：评析 本题考查的是 Rnd 函数和 Iat 函数。Rnd 函数返回小于 1 但大于或等于 0 的值，而 Iht 返回参数的整数部分。由于 b-a=5，所以(b-a)*Rnd+a 返回的是大于等于 5，小于 10 的数，再使用一下
39、Int函数，得到的最大值为 9，最小值为 5，再加 1 后，最大值就是 10，最小值就是 6。16.在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() a$=“software and hardware“ b$=Right(a$，8) c$=Mid(a$，1，8) MsgBox a$，b$，c%，1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是_。（分数：2.00）A.software and hardwareB.softwareC.hardware D.1解析：评析 本题主要考查的是
40、 Msgbox 函数。Msgbox 函数一共有 5 个参数；第 1 个参数是显示在对话框上的消息；第 2 个参数是值的总和，用于指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等；第 3 个参数在对话框标题栏中显示的字符串表达式；第 4 个参数是用来向对话框提供上下文相关帮助的帮助文件；第 5 个参数是由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。题目中问的是标题栏上显示的内容，也就是第 3 个参数的值，而第 3 个参数是 bS，它的值是hardware。17.在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框的 T
41、ext 属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(“Enter an integer“) b=InputBox(“Enter an integer“) Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示的内容是_。（分数：2.00）A.108 B.18C.810D.出错解析：评析 “+”是加号运算符，如果“+”加号两边的表达式都是 String 型，则“+”起连接作用，InputBox 返回的是一个字符型。所以本题是做字符串连接，故答案是
42、108。18.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text=“ Text2.Text=“ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text，8) End Sub 程序运行后，如果在文本框 Text1 中输入BeijingChina，则在文本框 Text2 显示的内容是 _。（分数：2.00）A.BeijingChinaB.Chima C.BeijingD.BeijingC解析：
43、评析 本题考的是 Mid 函数，Mid 函数是用来返回指定数量的字符串。其中第 2 个参数是指定返回字符串的起始位置，第 3 个参数是要返回的字符数，这个参数是可选的，如果省略，就返回从起始位置到字符串最后的所有字符。本题中第 3 个参数省略了，而起始位置是 8该位置的字符是 C，所以最后返回的就是 China。19.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程 Private Sub Form_Load() List1.Addltem“Iteml“ List1.Addltem“Item2“ List1.Addltem“Item3“
44、End Sub Private Sub Command1_click() List1.List(List1.ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为_。（分数：2.00）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA 人”添加到列表框的最后(即“Item3”的后面) C.把列表框中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)解析：评析 List 属性返回或设置控件的列表部分的项目。对于 ListBox 控件，List 属性是可读写的。由于 Listl 中项目默认的
45、索引值是 0 到 ListCotmt-1，现在对 ListCount 这个项目赋值，就是在 Listl 的最后加入条新记录，所以本题答案是 B。20.假定有如下事件过程： Private Sub Form_Cilck() Dim x As Integer，n As Integer x=1 n=0 Do While x28 X=X*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.81 4 B.56 3C.28 1D.243 5解析：评析 DoWhile 语句是当 While 后面的条件为 True 时，执行循环体，当条件为
46、False 时退出循环。本题的条件是 x28，而循环体中的语句是 X=x*3，所以当 x 值为 81 时，退出循环体，此时共执行了 4 次循环体，所以 n 的值为 4。21.有如下程序： Ptivate Sub Form_Click() Dim Check，Counter Cbeck=True Counter=0 Do Do While Counter20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub
47、 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.15 0B.20 -1C.10 TrueD.10 False 解析：评析 Do WhileLoop 是先判断条件表达式的值是否为 True，如果为 True，则执行循环体，如果为 False，则执行 Loop 后面的语句。DoLoop Until 是先执行循环体，再判断条件表达式，如果表达式的值为 Tme，则执行 Loop 后面的语句，如果为 False，则继续执行循环体。而 ExitDo 则是强行退出循环。本题中，当 Counter =10 时，强行退出 DoWhile 循环，而由于此时 Check=False，使得 Until 的条件为 True，结束外层循环。所以最终 Counmr=10。22.有如下程序： Private Sub Form_CHck() Dim i As Integer，sum As Integer sum=0 For i=2 TO 10 If Mod 2 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.12 B.30C.24D.18解析：评析 Mod
