【计算机类职业资格】全国计算机等级考试二级VISUAL+BASIC真题2012年3月及答案解析.doc

《【计算机类职业资格】全国计算机等级考试二级VISUAL+BASIC真题2012年3月及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】全国计算机等级考试二级VISUAL+BASIC真题2012年3月及答案解析.doc（14页珍藏版）》请在麦多课文档分享上搜索。

1、全国计算机等级考试二级 VISUAL+BASIC 真题 2012 年 3 月及答案解析(总分：100.00，做题时间：90 分钟)一、选择题（每小题 2 分，共 70 分）(总题数：35，分数：70.00)1.下列叙述正确的是（ ）。 （分数：2.00）A.循环队列是队列的一种链式存储结构B.循环队列是队列的一种顺序存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构2.下列叙述正确的是（ ）。 （分数：2.00）A.栈是一种先进先出的线性表B.队列是一种后进后出的线性表C.栈和队列都是非线性结构D.以上三种说法都不对3.一棵二叉树共有 25 个结点，其中 5 个是叶子结点，则度为 1

2、的结点数为（ ）。 （分数：2.00）A.16B.10C.6D.44.在下列模式中，能够给出数据库物理存储结构与物理存取方法的是（ ）。 （分数：2.00）A.外模式B.内模式C.概念模式D.逻辑模式5.在满足实体完整性约束的条件下（ ）。 （分数：2.00）A.一个关系中应该有一个或多个候选关键字B.一个关系中只能有一个候选关键字C.一个关系中不许有多个候选关键字D.一个关系中可以没有候选关键字6.有三个关系 R、S 和 T 如下：（ ）。 （分数：2.00）A.自然连接B.并C.交D.差7.软件生命周期中的活动不包括（ ）。 （分数：2.00）A.市场调研B.需求分析C.软件测试D.软件维

3、护8.下面不属于需求分析阶段任务的是（ ）。 （分数：2.00）A.确定软件系统的功能需求B.确定软件系统的性能需求C.需求规格说明书评审D.制定软件集成测试计划9.在测试方法中，设计测试用例的主要根据是（ ）。 （分数：2.00）A.程序内部逻辑B.程序外部功能C.程序数据结构D.程序流程图10.在软件设计中不使用的工具是（ ）。 （分数：2.00）A.系统结构图B.PAD 图C.数据流图（DFD 图）D.程序流程图11.以下合法的 VB 变量名是（ ）。 （分数：2.00）A.caseB.name10C.t-nameD.x*y12.设 x 是小于 10 的非负数。对此陈述，以下正确的 VB

4、 表达式是（ ）。 （分数：2.00）A.0x=0 and x=0 or x50 Then Sum=Sun+a End If Next a End Sub 运行上述程序时出现错误，错误之处是（ ）。 （分数：2.00）A.数组定义语句不对，应改为 Dim arrB.没有指明 For 循环的终值C.应在 For 语句之前增加 Sum=0D.Next a 应改为 Next30.要求产生 10 个随机整数，存放在数组 arr 中，从键盘输入要删除的数组元素的下标，将该元素中的数组删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序： Option Base 1 Private Sub

5、 Command1_Click() Dim arr(10) AS Integer For i=1 to 10 arr(i)=int (Rnd*100) Print arr(i); Next x=inputbox(“输入 1 到 10 的一个整数：”) For i=x+1 to 10 循环 2 arr(i-1)=arr(i) Next For i=1 to 10 循环 3 Print arr(i); Next End Sub 程序运行后发现显示的结果不正确，应该进行的修改是（ ）。 （分数：2.00）A.产生随机数时不使用 Int 函数B.循环 2 的初始值应为 i=xC.数组定义改为 Dim

6、a(11) as integerD.循环 3 是循环终值应改为 931.使用驱动器列表框 Drive1、目录列表框 Fiel1 时，需要设置控件的同步，以下能够正确设置两个同步的命令是（ ）。 （分数：2.00）A.Dir1.path=Drive.pateB.File1.path=Dir1.pateC.File1.path=Drive1.pateD.Drive1.Drive=Dir1.pate32.以下关于弹出式菜单的叙述中，错误的是（ ）。 （分数：2.00）A.一个窗体只能有一个弹出式菜单B.弹出式菜单在菜单编辑器中建立C.弹出式菜单的菜单名（主菜单项）的“可见”属性通常设置为 False

7、D.弹出式菜单通过窗体的 PopupMenu 方法显示33.有如下程序： Private Type stu X As String Y As Integer End Type Private Sub Command1_Click() Dim a As stu a.x=”ABCD” a.y=12345 Print a End Sub/ 程序运行时出现错误，错误的原因是（ ）。 （分数：2.00）A.Type 定义语句没有放在标准模块中B.变量声明语句有错C.赋值语句不对D.输出语句 Print 不对34.在窗体上画两个名称分别为 Text1、Text2 的文本框，一个名称为 Lable1 的标签

8、。窗体外观如图 a 所示。要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图 b 所示。实现上述功能如下： （分数：2.00）A.ShowText 过程的参数类型可以是 ControlB.ShowText 过程的参数类型可以是 VariantC.两个过程调用语句有错，应分别改为 Call ShowText（Text1.Text）、CallShowText（Text2.Text）D.ShowText 过程中的 T 是控件变量35.设有打开文件的语句如下： Open“test.dat” For Random As #1 要求把变量 a 中的数据保存到该文件中，应该使用的语句是（

9、）。 （分数：2.00）A.Inpur #1，aB.Write #1.aC.Put #1，.aD.Get #1a二、填空题（每空 2 分，共 30 分）(总题数：9，分数：30.00)36.在长度为 n 的顺序存储的线性表中删除一个元素，最坏情况下需要移动表中的元素个数为 1。（分数：2.00）填空项 1:_37.设循环队列的存储空间为 Q（1：30），初始状态为 Front=rear=30.现经过一系列入队与退队运算后，front=16，rear=15，则循环队列中有 1 个元素。（分数：2.00）填空项 1:_38.数据库管理系统提供的数据语言中，负责数据的增、删、改和查询的是 1。（分数

10、：2.00）填空项 1:_39.在将 E-R 图转换到关系模式时，实体和联系都可以表示成 1。（分数：2.00）填空项 1:_40.常见的软件工程方法有结构化方法和面向对象方法，类、继承以及多态性等概念属于 1。（分数：2.00）填空项 1:_下面的事件过程执行时，可以把 Text1 文本框中的内容写到文件“file1.txt“中去。请填空。 Pivate Sub Command1_Click() Open “file1.txt”For （ 6 ） As#1 print （ 7 ） Text1.Text Close #1 End Sub （分数：4.00）_设窗体上有一个名称为 Lable1

11、的标签。程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在 Lable1 标签中：单击鼠标右键则停止实时显示，并将标签中内容清除。下面的程序可实现这一功能，请填空。 Dim Down As Boolean Private Sub Form _MouseDown(Button As Integer，Shift As Integer，x As Single，Y As Single) Select Case （ 8 ） Case 1 Down=True Case 2 Down=False End Select End Sub Private Sub Form _MouseMove(B

12、utton As Integer，Shift As Integer，X As Single，Y As Single) If （ 9 ） （ 10 ） =”X=”(2)、任何两条记录候选关键字的都是不相同的;(3)、关键字可能由一个属性构成，也可能由多个属性构成;(4)、在任何关系中至少有一个关键 字，所以，在满足实体完整性约束的条件下，一个关系中应该有一个或多个候选关键字。6.有三个关系 R、S 和 T 如下：（ ）。 （分数：2.00）A.自然连接B.并C.交D.差 解析：解析：自然连接是二元运算，其结果是得到两个关系中公共属性名字上相等的所有元组组合;并是指在两个关系的元素全部合并到一个新

13、的关系中，交是指将那些 同时属于两个关系的元素组成一个新的关系;差是指将属于前一个集合但不属于后一个集合的元素组成新的关系。由途中可以看出，关系 T 是由属于 R 但不属于 S 的 元组组成的集合，所以答案为差。7.软件生命周期中的活动不包括（ ）。 （分数：2.00）A.市场调研 B.需求分析C.软件测试D.软件维护解析：解析：软件生命周期可以划分为六个阶段：问题的定义及规划、需求分析、软件设计、编码、软件测试、运行维护，所以，软件声明周期中的活动不包括市场调研。8.下面不属于需求分析阶段任务的是（ ）。 （分数：2.00）A.确定软件系统的功能需求B.确定软件系统的性能需求C.需求规格说明

14、书评审D.制定软件集成测试计划 解析：解析：需求分析的基本任务是：(1)问题识别：双方确定对问题的综合需求，这些需求包括功能需求，性能需求，环境需求，用户界面需求(2)分析与综合， 导出软件的逻辑模型。(3)、包括编写需求管个说明书，编写初步用户使用手册，确定测试计划，修改完成软件开发计划，制定软件集成是测试计划属于概要设 计。9.在测试方法中，设计测试用例的主要根据是（ ）。 （分数：2.00）A.程序内部逻辑B.程序外部功能 C.程序数据结构D.程序流程图解析：解析：通常，软件的测试方法包括白盒裁缝师与黑盒测试。白盒测试也称结构测试货逻辑驱动测试，他是安装程序内部的结构测试程序，黑盒测试也

15、称功能测试， 他是通过测试检查每个功能是否正常使用。黑盒测试着眼于程序外部结构，不考虑内部逻辑结构，把程序看作一个不能打开的黑盒子，主要针对软件界面和软件功能 进行测试。10.在软件设计中不使用的工具是（ ）。 （分数：2.00）A.系统结构图B.PAD 图C.数据流图（DFD 图） D.程序流程图解析：解析：软件设计包括概要设计和详细设计，软件概要设计中，面向数据流的设计方法有变换型系统结构图和事物型数据流两种，软件详细设计，程序流程图 (Pdf)和 Pda(问题分析图)是过程设计的常用工具。数据流图必须完成的逻辑功能，所以他是一种功能模型，是可行性研究阶段用到的。11.以下合法的 VB 变

16、量名是（ ）。 （分数：2.00）A.caseB.name10 C.t-nameD.x*y解析：【解析】变量必须是由字母、汉字、数字、下划线组成的字符串，且第一个字符必须是英文字母或者汉字，最后一个字符可以是类型说明符; 变量名不能包含+ - * / ! # ￥ ?小数点等字符，且长度不能超过 255; 不能用 Visual Basic 的保留字(例如 End、Len、Sub 等)作为变量名，但可以把保留字嵌入到变量名中，同时变量名也不能是末尾带有说明符的保留字; Visual Basic 不区分变量名和其他名字中字母的大小写，但习惯上，符号常量一般用大写字母定义。 故本题选 B。 12.设

17、x 是小于 10 的非负数。对此陈述，以下正确的 VB 表达式是（ ）。 （分数：2.00）A.0x=0 and x=0 or x0 将 x=0 的情况给丢掉了，因此 A)项是正确答案。20.设程序中有如下语句： X=inputbox(“输入”,“数据”,100) Print X 运行程序，执行上述语句，输入 5 并单击输入对话框上的“取消“按钮，则窗体上输出（ ）。 （分数：2.00）A.0B.5C.100D.空白 解析：【解析】x 无初始值，当点击取消按钮后，输入的 5 并没有赋给 x，窗体上没有输出21.现有如下一段程序： Option Base 1 Private Sub Comman

18、d1_Click() Dim a a=Array(3,5,7,9) x=1 For i=4 to 1 Step -1 S=s+a ( i )*x x=x*10 Next Print s End Sub 执行程序，单击 Command1 命令按钮，执行上述事件过程，输出结果是（ ）。 （分数：2.00）A.9753B.3579 C.35D.79解析：【解析】option base 1 表示数组下标从 1 开始，则 a 数组元素 a(1)=3, a(2)=5, a(3)=7, a(4)=9。第一次循环：x=1,s=0+a(4)*1=9, 第二次循环：x=10,s=9+a(3)*10=79, 第三次

19、循环：x=100,s=79+a(2)*100=579, 第四次循环：x=1000,s=579+a(1)*1000=3579, 因此 B)项是正确答案。22.设有一个命令按钮 Commsand1 的事件过程以及一个函数过程。程序如下： Private Sub Command1_Click(0 Static x As Integer x=f(x+5) Cls Print x End Sub Private Funtion f(x As integer)As Integer F=x+x End Funtion 连续单击命令按钮 3 次，第 3 次单击命令按钮后，窗体上显示的计算结果是（ ）。 （分数

20、：2.00）A.10B.30C.60D.70 解析：【解析】第一次单击：x 为静态变量，初值为 0，传给 f 函数的是 5，返回值为 5+5，则 x 的值为10. 第二次单击：x 为静态变量，值为 10，传给 f 函数的是 15，返回值为 15+15，则 x 的值为 30. 第三次单击：x 为静态变量，值为 30，传给 f 函数的是 35，返回值为 35+35，则 x 的值为 70. 因此 D)项是正确答案。23.以下关于菜单设计的叙述中错误的是（ ）。 （分数：2.00）A.各菜单项可以构成控件数组B.每个菜单项可以看成是一个控件C.设计菜单是，菜单项的“有效” 表选，即有效(E),表示该菜

21、单项不显示 D.菜单项只响应单击事件解析：【解析】当菜单项设置为无效时，表示菜单项可见但是不可用。因此 C)项是正确答案。24.以下关于多窗体的叙述中，正确的是（ ）。 （分数：2.00）A.任何时刻，只有一个当前窗体 B.向一个工程添加多个窗体，存盘后生成一个窗体文件C.打开一个窗体时，其他窗体自动关闭D.只有第一个建立的窗体才是启动窗体解析：【解析】B 多窗体工程中，每个窗体都是单独保存的。C，当打开一个窗体时，其他窗体只是处于不活动状态，并没有关闭。D，启动窗体是由程序设计指定的，并不是只有第一个窗体可以作为启动窗体。25.窗体上有一个名称为 CommonDialog1 的通用对话框，一

22、个名称为 Command1 的命令按钮，并有如下事件过程： Private Sub Command1_Click() CommandDialog1.DefaultExt=”doc” CommandDialog1.FileName=”VB.txt” CommandDialog1.FileName=”All(*.*)|*.*|Word|*.Doc|” CommandDialog1.FileName=1 CommandDialog1.ShowSave End Sub 运行上述程序，如下叙述正确的是（ ）。 （分数：2.00）A.打开的对话框中文件“保存类型”框中显示“All(*.*)” B.实现保存

23、文件的操作，文件名是 VB.txtC.DefaultExt 属性与 FileName 属性所指明的文件类型不一致，程序出错D.对话框的 Filter 属性没有指出 txt 类型，程序运行出错解析：【解析】filterindex 属性为 1，即默认显示的保存类型为 filter 属性设置的值的第一个，因此 A)项是正确答案。26.设程序中有如下数组定义和过程调用语句： Dim a(10) As Integer Call p(a) 如下过程定义中，正确的是（ ）。 （分数：2.00）A.Private Sub p(a As Integer)B.Private Sub p(a() As Intege

24、r) C.Private Sub p(a(10) As Integer)D.Private Sub p(a(n) As Integer)解析：【解析】形式参数为数组时，表达示为 sub name( array() as integerstring)，并不需要指明元素个数，但小括号不能省略。因此 B)项是正确答案。27.若要获得组合框中输入的数据，可使用的属性是（ ）。 （分数：2.00）A.ListindexB.CaptionC.Text D.List解析：【解析】组合框是文本框与列表框的简单组合，因此要看输入的数据，就是看文本框的内容，这存放在 text 属性中。因此 C)项是正确答案。28

25、.在窗体上画两个名称分别为 Text1、Text2 的文本框。Text1 的 Text 属性为“Database”， 如图所示。（分数：2.00）A.DataAB.DataBC.aData D.aBase解析：【解析】MID(string S,int A,int B)从字符串 S 中的第 A 个开取字符，一共取 B 个字符。当text1 的发生变化时 text1 的 text 值为 aDataBase，所以 MID(text1,1,5)的值为 aData。29.有如下程序： Option Base ! Private Sub Command1_Click() Dim arr(10) arr=A

26、rray(10,35,28,90,54,68,72,90) For Each a In arr If a50 Then Sum=Sun+a End If Next a End Sub 运行上述程序时出现错误，错误之处是（ ）。 （分数：2.00）A.数组定义语句不对，应改为 Dim arr B.没有指明 For 循环的终值C.应在 For 语句之前增加 Sum=0D.Next a 应改为 Next解析：【解析】利用 Array()函数对数组各元素赋值，声明的数组必须是可变数组或连圆括号都可省的数组，并且其类型只能是 Variant。因此 dim arr()时，括号中不能有数字。因此 A)项是正

27、确答案。30.要求产生 10 个随机整数，存放在数组 arr 中，从键盘输入要删除的数组元素的下标，将该元素中的数组删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(10) AS Integer For i=1 to 10 arr(i)=int (Rnd*100) Print arr(i); Next x=inputbox(“输入 1 到 10 的一个整数：”) For i=x+1 to 10 循环 2 arr(i-1)=arr(i) Next For i=1 to 10

28、 循环 3 Print arr(i); Next End Sub 程序运行后发现显示的结果不正确，应该进行的修改是（ ）。 （分数：2.00）A.产生随机数时不使用 Int 函数B.循环 2 的初始值应为 i=xC.数组定义改为 Dim a(11) as integerD.循环 3 是循环终值应改为 9 解析：【解析】删除一个数据后，数组中实际有效的值只剩下九个，因此最后输出的时候就只能输出前九个，最后一个数据是重复的，不能要，因此循环 3 应该把终值改为 9. 因此 D)项是正确答案。31.使用驱动器列表框 Drive1、目录列表框 Fiel1 时，需要设置控件的同步，以下能够正确设置两个同

29、步的命令是（ ）。 （分数：2.00）A.Dir1.path=Drive.pateB.File1.path=Dir1.pate C.File1.path=Drive1.pateD.Drive1.Drive=Dir1.pate解析：【解析】注意三个控件之间的关系，当 Drive1 发生改变的时候，Dir1 要发生改变，当 Dir1 发生变化的时候，File1 要发生变化，因此要用前者的路径属性赋值给后者的路径属性，而不能颠倒。当然也不能越级。因此 B)项是正确答案。32.以下关于弹出式菜单的叙述中，错误的是（ ）。 （分数：2.00）A.一个窗体只能有一个弹出式菜单 B.弹出式菜单在菜单编辑器中

30、建立C.弹出式菜单的菜单名（主菜单项）的“可见”属性通常设置为 FalseD.弹出式菜单通过窗体的 PopupMenu 方法显示解析：【解析】一个窗体的任意一个控件均可以弹出不同的弹出式菜单，并不是只有一个。因此 A)项说法是错误的，是正确答案。33.有如下程序： Private Type stu X As String Y As Integer End Type Private Sub Command1_Click() Dim a As stu a.x=”ABCD” a.y=12345 Print a End Sub/ 程序运行时出现错误，错误的原因是（ ）。 （分数：2.00）A.Type

31、 定义语句没有放在标准模块中B.变量声明语句有错C.赋值语句不对D.输出语句 Print 不对 解析：34.在窗体上画两个名称分别为 Text1、Text2 的文本框，一个名称为 Lable1 的标签。窗体外观如图 a 所示。要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图 b 所示。实现上述功能如下： （分数：2.00）A.ShowText 过程的参数类型可以是 ControlB.ShowText 过程的参数类型可以是 VariantC.两个过程调用语句有错，应分别改为 Call ShowText（Text1.Text）、CallShowText（Text2.Text）D

32、.ShowText 过程中的 T 是控件变量解析：【解析】ShowText 函数的两个参数为文本框类型，因此实参应给为对象而不是对象的某个属性值。文本框也是控件，可以用 Control 类型，可变类型也可以接受文本框类型的对象。因此 C)项是正确答案。35.设有打开文件的语句如下： Open“test.dat” For Random As #1 要求把变量 a 中的数据保存到该文件中，应该使用的语句是（ ）。 （分数：2.00）A.Inpur #1，aB.Write #1.aC.Put #1，.a D.Get #1a解析：【解析】随机文件的读写分别使用 Get 和 Put，因此本题正确答案为

33、C)项。二、填空题（每空 2 分，共 30 分）(总题数：9，分数：30.00)36.在长度为 n 的顺序存储的线性表中删除一个元素，最坏情况下需要移动表中的元素个数为 1。（分数：2.00）填空项 1:_ （正确答案：【1】n-1）解析：【解析】在顺序表中删除一个元素，最坏情况是删除第一个元素，后面的(n-1)个元素均要向前移动，所以此处填 n-1。37.设循环队列的存储空间为 Q（1：30），初始状态为 Front=rear=30.现经过一系列入队与退队运算后，front=16，rear=15，则循环队列中有 1 个元素。（分数：2.00）填空项 1:_ （正确答案：【2】29）解析：【解

34、析】通过题干的描述可知此循环队列共 30 个空间，另外队尾指针 rear 的值小于队头指针front 的值，所以利用公式(rear-front+30)%30=29，可知此循环队列的元素个数为 29。38.数据库管理系统提供的数据语言中，负责数据的增、删、改和查询的是 1。（分数：2.00）填空项 1:_ （正确答案：【3】数据操纵语言）解析：【解析】数据操纵语言 DML(Data Manipulation Language)，用户通过它可以实现对数据库的基本操作。例如，对表中数据的查询、插入、删除和修改。 在 DML 中，应用程序可以对数据库作插、删、改、排、检等五种操作。39.在将 E-R

35、图转换到关系模式时，实体和联系都可以表示成 1。（分数：2.00）填空项 1:_ （正确答案：【4】关系）解析：【解析】关系数据库逻辑设计的主要工作是将 E-R 图转换成指定 RDBMS 中的关系模式，这种转换是比较直接的，实体与联系都可以表示成关系。40.常见的软件工程方法有结构化方法和面向对象方法，类、继承以及多态性等概念属于 1。（分数：2.00）填空项 1:_ （正确答案：【5】面向对象方法）解析：【解析】面向对象方法是一种基于对象模型的程序设计方法,包括面向对象分析、面向对象设计、面向对象编程，是目前应用范围最广的设计方法。其中对象模型 包括六个要素：封装、抽象、模块化、层次结构、类

36、、并发性。面向对象方法的主要特征是封装、继承和多态性，所以此空应填面向对象方法。下面的事件过程执行时，可以把 Text1 文本框中的内容写到文件“file1.txt“中去。请填空。 Pivate Sub Command1_Click() Open “file1.txt”For （ 6 ） As#1 print （ 7 ） Text1.Text Close #1 End Sub （分数：4.00）_正确答案：(output)解析：【解析】应该是以写的方式打开文本文件，因此用 output。_正确答案：(#1)解析：【解析】向文件中写入数据，要确定是哪个文件，因此用文件号来确定文件。设窗体上有一个

37、名称为 Lable1 的标签。程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在 Lable1 标签中：单击鼠标右键则停止实时显示，并将标签中内容清除。下面的程序可实现这一功能，请填空。 Dim Down As Boolean Private Sub Form _MouseDown(Button As Integer，Shift As Integer，x As Single，Y As Single) Select Case （ 8 ） Case 1 Down=True Case 2 Down=False End Select End Sub Private Sub Form _

38、MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) If （ 9 ） （ 10 ） =”X=”& X &” Y=”& Y Else Label1.Caption=” End if Sub （分数：6.00）_正确答案：(Button)解析：【解析】Button 参数中存储的是按下的是左键还是右键，这个程序向判断按下的那个键然后存储到变量 down 中，因此要使用这个参数 Button。_正确答案：(down)解析：【解析】全局变量，用来判断点击过鼠标左键或者右键。点击过鼠标左键，down=true，点击过鼠

39、标右键，down = false_正确答案：(Label1.Caption)解析：【解析】内容要显示在标签中，因此用 Label1.Caption 来接受内容。窗体上有 List1、List2 两个列表框，程序运行时，在两个列表框中分别选中 1 个项目，如图 a 所示，单击名称为 Command1 的“交换”按钮，则把选中的项目互换，互换后的位置不限，如图 b 所示。下面的程序可实现这一功能，请填空。 Private Sub Command1_Click() If List1.Text=” or List2.Text=”Then MsgBox”请选择交换的物品！” Else List1.Add

40、Item List2.Text List2.RemoveItem （ 11 ） （ 12 ） List1.RemoveItem List1.ListIndex End If End Sub （分数：4.00）_正确答案：(List2.ListIndex)解析：【解析】List2.ListIndex 是列表框 2 中选中项的内容，它已经被添加到列表框 1 中，因此要从列表框 2 中移除。_正确答案：(List2.AddItem List1.Text)解析：【解析】这个语句是向列表框 2 中添加列表框 1 中选中项的内容。设窗体上有 Text1 文本框和 Command 命令按钮，并有以下程序：

41、Private Sub Command1_Click() Iemp$=“” For k=1 To Len(Text1) Ch$=Mid(Text1,k,1) If Not found(temp,ch)Then Temp=temp& （ 13 ） End if Next k Text1= （ 14 ） End Sub Private Function found(str As String,ch As String)As Boolean For K=1 To Len(str) If ch=Mid(Str,k,1) Then Found= （ 15 ） Exit Function End If N

42、ext k Found=False End Function 运 行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母。例如，若文本框中原有字符串为“abcddbbc”，则单击命 令按钮后文本框中字符串为“abcd“。其中函数 found 的功能是判断字符串 str 中是否有字符 ch，若有，函数返回 True，否则返回 False。请 填空。 （分数：6.00）_正确答案：(ch)解析：【解析】ch 中存放的是从文本框中取出的一个字符，如果它还没有出现在 temp 中，则将它连接在temp 的后面。_正确答案：(temp)解析：【解析】temp 中存放了所有不重复的字符，是我们所需要的内容，因此最后将它显示在文本框中。_正确答案：(True)解析：【解析】found 函数是判断某个字符是否在某个字符串中，如果是则返回 True，如果不是则返回False。