[计算机类试卷]国家二级VB机试（选择题）模拟试卷190及答案与解析.doc

1、国家二级 VB机试（选择题）模拟试卷 190及答案与解析 一、选择题 1 下列关于栈和队列的描述中，正确的是 ( )。 （ A）栈是先进先出 （ B）队列是先进后出 （ C）队列允许在队头删除元素 （ D）栈在栈顶删除元素 2 已知二叉树后序遍历序列是 CDABE，中序遍历序列是 CADEB，它的前序遍历序列是 ( )。 （ A） ABCDE （ B） ECABD （ C） EACDB （ D） CDEAB 3 在数据流图中，带有箭头的线段表示的是 ( )。 （ A）控制流 （ B）数据流 （ C）模块调用 （ D）事件驱动 4 结构化程序设计的 3种结构是 ( )。 （ A）顺序结构，分支结

2、构，跳转结构 （ B）顺序结构，选择结构，循环结构 （ C）分支结构，选择结构，循环结构 （ D）分支结构，跳转结构，循环结构 5 下列方法中，不属于软件调试方法的是 ( )。 （ A）回溯法 （ B）强行排错法 （ C）集成测试法 （ D）原因排除法 6 下列选项中，不属于模块间耦合的是 ( )。 （ A）内容耦合 （ B）异构耦合 （ C）控制耦合 （ D）数据耦合 7 下列特征中 不是面向对象方法的主要特征的是 ( )。 （ A）多态性 （ B）标识惟一性 （ C）封装性 （ D）耦合性 8 在数据库设计中，将 E-R图转换成关系数据模型的过程属于 ( )。 （ A）需求分析阶段 （ B

3、）概念设计阶段 （ C）逻辑设计阶段 （ D）物理设计阶段 9 在一棵二叉树上，第 5层的结点数最多是 ( )。 （ A） 8 （ B） 9 （ C） 15 （ D） 16 10 下列有关数据库的描述，正确的是 ( )。 （ A）数据库设计是指设计数据库管理系统 （ B）数据库技术的根 本目标是要解决数据共享的问题 （ C）数据库是一个独立的系统，不需要操作系统的支持 （ D）数据库系统中，数据的物理结构必须与逻辑结构一致 11 Visual Basic 6 0集成环境的主窗口中不包括 ( )。 （ A）标题栏 （ B）菜单栏 （ C）状态栏 （ D）工具栏 12 在正确安装 Visual B

4、asic 6 0后，可以通过多种方式启动 Visual Basic 6 0。以下方式中，不能启动 Visual Basic 6 0的是 ( )。 （ A）通过 “我的电脑 ”找到 vb6 exe，双 击该文件名 （ B）进入 DOS方式，执行 vb6 exe文件 （ C）通过 “开始 ”菜单中的 “运行 ”命令 （ D）通过 “开始 ”菜单中的 “程序 ”命令 13 下面 4个选项中，不是窗体属性的是 ( )。 （ A） UnLoad （ B） BorderStyle （ C） MinButton （ D） Caption 14 设计窗体时双击窗体的任何位置，将打开 ( )。 （ A）窗口设计

5、器 （ B）代码窗口 （ C）工具箱窗口 （ D）属性窗口 15 下面有关标准模块的叙述中，错误的是 ( )。 （ A）标 准模块的文件扩展名为 bas （ B）标准模块中的 Private过程不能被工程中的其他模块调用 （ C）标准模块不完全由代码组成，还可以有窗体 （ D）标准模块中的全局变量可以被工程中的任何模块引用 16 实现字符的 UniCode编码方式与 ANSI编码方式相互转换的函数是 ( )。 （ A） Str （ B） StrConv （ C） Trim （ D） Mid 17 若将变量 TestDate声明为 Date类型，则下列为变量 TestDate赋值的语句中正确的是

6、 ( )。 （ A） TestDate=date(“1 1 2002“) （ B） TestDate=#“1 1 2002“# （ C） TestDate=#1 1 2002# （ D） TestDate=Format(“m d yy“,“1 1 2002“) 18 窗体 Forml上有一个名称为 Commandl的命令按钮，以下对应窗体单击事件的事件过程是 ( )。 （ A） Private Sub Form 1_Click() End Sub （ B） Private Sub Form_Click() End S ub （ C） Private Sub Commandl_Click() E

7、ndSub （ D） Private Sub Commandl_Click() End Sub 19 下列程序段的执行结果为 ( )。 Form1 Cls a=“ABBACDDCBA“ For i=6 To 2 Step-2 x=Mid(a， i， i) y=Left(a， i) z=RJght(a， i) z=x y z Next I Print z （ A） ABC （ B） BBABBA （ C） ABBABA （ D） AABAAB 20 不能正确表示条件 “两个整型变量 A和 B之一为 0，但不能同时为 0”的布尔表达式是 ( )。 （ A） A*B=0 and A+B 0 （ B）

8、 (A=0 or B=0)and(A 0 Or B 0) （ C） not(A=0 And B=0)and(A=0 or B=0) （ D） A*B=0 and(A=0 or B=0) 21 在窗体 (Name属性为 Forml)上画两个文本框 (Name属性分别为 Text1和 Text2)和一个命令按钮 (Name属性为 Command1)，然后编写如下两个事件过程 ( )。 Private Sub Command 1_Click() a=Text1 Text+Text2 Text Print a End Sub Private Sub Form_Load() Textl Text=“ “

9、 Text2 Text=“ “ End Sub 程序运行后，在第一个文本框 (Text1)和第二个文本框 (Text2)中分别输入 123和321，然后单击命令按钮，则输出结果为 ( )。 （ A） 444 （ B） 321123 （ C） 123321 （ D） 132231 22 组合框是文本框和 ( )特性的组合。 （ A）复选框 （ B）标签 （ C）列表框 （ D）目录列表框 23 已知文本框的 ScrollBars属性设置为 3，却看不到任何效果，原因是 ( )。 （ A）文本框中没有内容 （ B）文本框的 Locked属性值为 True （ C）文本框的 MultiLine属性值

10、为 False （ D）文本 框的 MultiLine属性值为 True 24 下面哪个属性不是框架控件的属性 ( )。 （ A） Caption （ B） Left （ C） Text （ D） Enabled 25 复选框是否被选中，取决于复选框的 ( )。 （ A） Enabled属性 （ B） Value属性 （ C） Checked属性 （ D） Visible属性 26 窗体如图 l所示。要求程序运行时，在文本框 Textl中输入一个姓氏，单击 “删除 ”按钮 (名称为 Commandl)，则可删除列表框 Listl中所有该姓氏的项目。若编 写以下程序来实现此功能： Private

11、 Sub Command1 Click() Dim n k n=Len(Text 1 Text) For k=0 To List 1 ListCount-1 If Left(List 1 List(k)， n)=Textl Text Then List 1 RemoveItem k End If Next k End Sub 在调试时发现，如输入 “陈 ”，可以正确删除所有姓 “陈 ”的项目，但输入 “刘 ”，则只删除了 “刘邦 ”、 “刘备 ”2项，结果如图 2所示。这说明程序不能适 应所有情况，需要修改。正确的修改方案是把 For k=0 To Listl ListCount-1改为 (

12、)。 （ A） For k=1 To List1 ListCount-1 （ B） For k=1 To List1 ListCount （ C） For k=0 To List1 LlstCount （ D） For k=List1 ListCount-1 To 0 Step-1 27 窗体上有 1个名为 Listl的列表框，其中已经输入了若干个项目 (如图 3所示 )；还有 2个文本框，名称分别为 Text1、 Text2， 1个名称为 Command1的命令按钮，并有以下程序。 Private Sub Command 1 Click() Dim str As String， s As S

13、tring， k As Integer s=Text1： str=“ “ For k=List1 ListCount-1 To 0 Step-1 If InStr(List 1 List(k)， s) 0 Then str=str List 1 List(k) “ “ End If Next k If str=“ “Then Text2=“没有匹配项 目 “ Else Text2=str End If End Sub 程序运行时，在 Text1中输入 “京 “，单击命令按钮，则在 Text2中显示的内容是 ( )。 （ A）京 （ B）北京南京 （ C）南京北京 （ D）没有匹配的项目 28

14、设置定时器控件的 Interva1属性为 2000， Enabled属性为 True，并且有下面的事件过程，程序运行时计算机将发出 ( )次 Beep声。 Sub Timer 1_Timer() Beep End Sub （ A） 0 （ B） 2000 （ C） 1 （ D）以上都不对 29 下列程序的输出结果为 ( )。 S1=“1“： S2=“2“： S1=Va1(S1)+Va1(S2)： S2=Va1(“12“) If S1 S2 Then Print S1-S2 Else Print S2-S1 （ A） 9 （ B） 9 （ C） 12 （ D） 0 30 在窗体上有一个名称为 L

15、abel1的标签和一个名称为 Timer1的计时器，并编写有如下几个事件过程： Private Sub Form Load() Timer1 Enabled=False Timer1 Interval=_ End Sub Private Sub Form_Click() Timer1 Enabled=_ End Sub Private Sub Timer1_Timer() Label1 Caption=_ End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔 1s钟变换一次，在横线处应填写 ( )。 （ A） 1000 True Time$() （ B） 100 True Tim

16、eS() （ C） 1000 False TimeS() （ D） 100 False TimeS() 31 下列程序段的执行结果为 ( )。 x=Int(Rnd+4) Select Case x Case 5： Print“A Class“ Case 4： Print“B Class“ Case 3： Print“C Class“ Case Else： Print“D Class“ End Select （ A） A Class （ B） B Class （ C） C Class （ D） D Class 32 有如下程序： Private Sub Form Click(1) Dim i A

17、s Integer， sum As Integer sum=0 For i=2 To 10 If i Mod 2 0 And i Mod 3=0 Then sum=sum+I End If Next I Print sum End Sub 程序运行后，单击窗体，输出结果为 ( )。 （ A） 24 （ B） 30 （ C） 12 （ D） 18 33 下列程序段的执行结果为 ( )。 a=0： b=1 Do a=a+b b=b+1 Loop While a 10 Print a： b （ A） 10 30 （ B） a b （ C） 0 1 （ D） 10 5 34 某人编写了下面的程序，希望

18、能把 Text1文本框中的内容写到 Temp txt文件中 Private Sub Command1_Click() Open”Temp txt”For OutputAs#2 Print”Text1” Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是 ( )。 （ A）把所有 #2改为 #1 （ B）把 Print“Text1“改为 Print#2， Text1 （ C）把 Print“Text1“改为 Write“Text1“ （ D）把 Print“Text1“改为 Print Text1 35 Fibonacci数列的规 律是：前 2个数为 1，从第

19、3个数开始，每个数是它前 2个数之和，即： 1， 1， 2， 3， 5， 8， 13， 21， 34， 55， 89， 。某人编写了下面的函数，判断大于 1的整数 x是否是 Fibonacci数列中的某个数，若是，则返回 True，否则返回 False。 Function Isfab(x As Integer)As Boolean Dim aAs Integer,bAs Integer,cAs Integer,flag As Boolean flag=False a=1： b=1 Do Whlle x b C=a+b： a=b： b=c Ifx=b Then flag=True Loop Is

20、fab=flag End Function 测试时发现对于所有正整数 x，函数都返回 False，程序需要修改。下面的修改方案中正确的是 ( )。 （ A）把 a=b与 b=c的位置互换 （ B）把 c=a+b移到 b=c之后 （ C）把 Do While x b改为 Do While x b （ D）把 Ifx=b Then flag=True改为 Ifx=a Then flag=True 36 窗体上有一个名称为 Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程 Private Sub OptionI_Click(Index As Integer) En

21、d Sub 下面关于此过程的参数 Index的叙述中正确的是 ( )。 （ A） Index的值可正可负 （ B） Index的值用来区分哪个单选按钮被选中 （ C） Index表示数组中单选按钮的数量 （ D） Index为 1表示单选按钮被选中，为 0表示未选中 37 以下叙述中正确的是 ( )。 （ A）一个 Sub过程至少要有一个 Exit Sub语句 （ B）一个 Sub过程必须有一个 End Sub语句 （ C）可以在 Sub过程中定义一个 Function过程，但不能定义 Sub过程 （ D）调用一个 Function过程可以获得多个返回值 38 设有如下过程： Private

22、Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As IntegeL Shift As Integer) Print Chr(KeyCode+2) End Sub 若把窗体的 KeyPreview属性设置为 True，程序运行后，如果按 “A”键，则输出结果为 ( )。 39 在窗体上画 1个命令按钮，名称为 Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Comma

23、nd1_Click() Dim intNum As Integer intNum=InputBox(“请输入： “) IfFlag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer IfX 10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouselJp(Button As Integer,ShiR As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单

24、击窗体，然后单击命令按钮，在输入对话框中输入 5，则程序的输出结果为 ( )。 （ A） 0 （ B） 5 （ C） 15 （ D）无任何输出 40 在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drivel、 Dirl和 Filel，为了使它们同步操作，必须触发驱动器的 Change事件和目录的 Change事件，在这两个事件 中执行的语句分别为 ( )。 （ A） File1 Path=Drive1 Drive和 File1 Path=Dir1 Path （ B） Dir1 Path=Drive1 Drive和 File1 Path=Dir1 Path （ C）

25、 Dir1 Path=Dir1 Path和 File1 Path=Drive1 Drive （ D） Dir1 Path=Drive1 Path和 File1 Path=Dir1 Path 国家二级 VB机试（选择题）模拟试卷 190答案与解析 一、选择题 1 【正确答案】 D 【试题解析】 栈实际也是线性表，只不过是一种特殊的线性表。栈是只能在表的一端进行插入和删除运算的线性表，通常称插入、删除的这一端为栈顶，另一端为栈底。队列是只允许在一端删除，在另一端插入的顺序表，允许删除的一端称作队头，允许插入的一端称作队尾。 2 【正确答案】 C 【试题解析】 由于后序遍历的最后一个元素为 E，所以

26、 E为根结点，所以它的前序遍历的首个元素为 E，故排除 A。和 D。选项。由于中序遍历中，元素 B在元素根结点 E的后面，所以 B为二叉树的右子树，并且该二叉树右子树只有一个元素，所以前序遍历 的最后一个元素应为 B，故选项 C。为正确选项，即该二叉树的前序遍历序列是 EACDB。 3 【正确答案】 B 【试题解析】 数据流图中带箭头的线段表示数据流，沿箭头方向传递数据的通道，一般在旁边标注数据流名。 4 【正确答案】 B 【试题解析】 程序设计语言仅仅使用顺序、选择和重复 (循环 )三种基本控制结构就足以表达出各种其他形式结构的程序设计方法。遵循程序结构化的设计原则，按结构化程序设计方法设计

27、出的程序易于理解、使用和维护；可以提高编程工作的效率，降低软件的开发成本。 5 【正确答案】 C 【试题解析】 软件调试主要采用以下三种方法：强行排错法：作为传统的调试方法，其过程可概括为设置断点、程序暂停、观察程序状态、继续运行程序。回溯法：该方法适合于小规模程序的排错、即一旦发现了错误，先分析错误征兆，确定最先发现 “症状 ”的位置。原因排除法：原因排除法是通过演绎和归纳，以及二分法来实现。 6 【正确答案】 B 【试题解析】 耦合可以分为下列几种，它们之间的耦合度由高到低排列： 内容耦合 若一个模块直接访问另一模块的内容，则这两个模块称为内容耦合。 公共耦合 若一组模块都访问同一全局数据

28、结构，则称为公共耦合。 外部耦合 若一组模块都访问同一全局数据项，则称为外部耦合。 控制耦合 若一模块明显地把开关量、名字等信息送入另一模块，控制另一模块的功能，则称为控制耦合。 标记耦合 若两个以上的模块都需要其余某一数据结构的子结构时，不使用其余全局变量的方式而全使用记录传递的方式，这样的耦合称为标记耦合。 数据耦合 若一个模块访问另一个模块，被访问模块的输入和输出都是数据项参数，则这两个模块为数据耦合。 非直接耦合 若两个模 块没有直接关系，它们之间的联系完全是通过程序的控制和调用来实现的，则称这两个模块为非直接耦合，这样的耦合独立性最强。 7 【正确答案】 D 【试题解析】 面向对象设

29、计方法与面向过程设计方法有本质的不同，其基本原理是：使用现实世界的概念抽象地思考问题从而自然地解决问题。其特点包括：标识惟一性、多态性、封装性、模块独立性、继承和多态组合使用。 8 【正确答案】 C 【试题解析】 逻辑结构设计的任务 2概念结构是各种数据模型的共同基础，为了能够用某一 DBMS实现用户需求，还必须将概念结构 进一步转化为相应的数据模犁，这正是数据库逻辑结构设计所要完成的任务。它包括从 E-R图向关系模式转换和逻辑模式规范化及调整、实现。 9 【正确答案】 D 【试题解析】 根据二叉树的性质：二叉树第 i(i1)层上至多有 2i-1个结点。得到第5层的结点数最多是 16个。 10

30、 【正确答案】 B 【试题解析】 数据库设计的目的实质上是设计出满足实际应用需求的实际关系模型。数据库技术的主要目的是有效地管理和存取大量的数据资源，包括：提高数据的共享性，使多个用户能够同时访问数据库中的数据；减小数 据的冗余，以提高数据的一致性和完整性；提供数据与应用程序的独立性，从而减少应用程序的开发和维护代价。 11 【正确答案】 C 【试题解析】 Visual Basic 6 0集成环境的主窗口也称为设计窗口，它位于集成环境的顶部，该窗口由标题栏、菜单栏和工具栏组成。 12 【正确答案】 B 【试题解析】 本题考查 VB6 0环境的启动。正确安装了 以后，最常用的启动模式是通过 “开

31、始 ”菜单，选择 “程序 ”命令，启动 Visual Basic的程序；如果 “开始 ”菜单没 “启动 ”文件， 则可在硬盘中寻找 VB安装文件夹，找到 VB6 exe可执行文件，双击运行；如果了解运行路径，则可在 “运行 ”中直接输入可执行文件名，即可运行。注意： VB6 exe是 Windows下的应用软件，不能脱离 Windows操作系统运行。 13 【正确答案】 A 【试题解析】 本题考查窗体的常见属性和事件。进入 VB编程环境后，自动加载一个名为 Form1的窗体，可以在属性窗口中设置其常用属性，例如 BorderStyle设置窗体的边框， MinButton设置最小化按钮是否显示，

32、 Caption可设置窗体的标题 。 UnLoad是卸载方法 (或事件 )，可以卸载当前窗体或控件数组。 14 【正确答案】 B 【试题解析】 本题考查 VB的窗口特性。 VB6 0运行环境为设计 VB源程序提供了若干常用的窗口。从窗体窗口中用鼠标双击一个控件或者窗体本身，或者在工程窗口中选择查看代码，或者从 “视图 ”菜单中选择 “代码窗口 ”命令，均可以打开代码窗口。其他的窗口可以利用 “视图 ”菜单，或者从工具栏中直接打开。 15 【正确答案】 C 【试题解析】 标准模块是只含有程序代码的应用程序文件，其扩展名为 bas。标准模块是应用程序内其它模块可访问的过程和声明的容器，它们可以包含

33、变量、常数、类型、外部过程和全局过程的全局 (在整个应用程序范围内有效的 )声明或模块级声明，它由 3部分组成： 全局变量声明； 模块层声明； 通用过程。 其中，全局声明放在标准模块的顶部，因为每个模块都可能要求有它自己的惟一名字的全局变量。全局变量的作用域最大，可以在工程的每个模块、每个过程中使用。在默认情况下，模块级变量对该模块中的所有过程都是可见的，但对其他模块中的代码不可见。 16 【正确答案】 B 【试题解析】 Str函数用于返回由 n个指定字符组成的字符串，第二个自变量可以是 ASCII码，也可以是字符串，其函数格式为： Str(n， ASCI码 )、 Str(n，字符串 )； S

34、trConv函数用于实现 ANSI与 UniCode两个编码方式之间的转换，其函数格式为：新字符串 =StrConv(待转换字符串，转换格式 )； Trim函数用于去掉字符串两边的空白字符，其函数格式为 Trim(字符串 )； Mid函数用于从第 n个字符开始，向后截取 m个字符，其函数格式为： Mid(字符串， n， m)。 17 【正确答案】 C 【试题解 析】 本题考查 VB中 Date型数据的书写格式。所有日期型数据有两种写法，其一是利用号码符 (#)，把字面上认可的日期型括起来；其二是以数字序列表示。选项 A。括起的号码符不正确，选项 B。中 “1 1 2002“”为字符型数据，系统

35、不会认为是日期，选项 C。是正确的，选项 D。中 Format函数的调用格式为： Format(“Data“， “格式 “)。 18 【正确答案】 B 【试题解析】 窗体的单击事件不同于其他控件的单击事件，在事件过程头中不出现窗体名字，而是统一使用 Form_Click()。 19 【正确答案】 B 【试题解析】 本题考查字符串函数。字符串函数 Mid(a， i， i)的作用是从字符串a中第 i个位置开始取 i个字符构成子串， Left(a， i)的作用是从字符串 a的左边取i个字符构成子串， Right(a,i)则表示从字符串 a的右边取 i个字符构成子串。由于循环体中， x和 y总是不断的

36、发生变化，因此仅需要考虑最后一次 x、 y的取值即可。在最后一次循环中 x为 BB， y为 AB， z为 BA，因此 3个字符串合并为BBABBA。 20 【正确答案】 D 【试题解析】 本题考查 VB的表达式。选项 A。中由于 A*B=0，因此 A为 0或者 B为 0，或者 A、 B同时为 0，而 A+B 0，恰好排除了 A、 B同时为 0的条件，因此符合条件描述；选项 B。中恰好描述了条件中的问题；选项 C。描述的A、 B同时为 0的取非，也就是同时为 0不成立，然后再加上 A或者 B其中一个为0，符合条件描述；选项 D。中前面条件和选项 A。相同，但是后面不能排除二者同时为 0的条件。

37、21 【正确答案】 C 【试题解析】 文本框的 Text属性返回的是字符串。因此， Text1 Text的值为 123、 Text2 Text的 值为 321，题目中语句 “a=Text1 Text+Text2 Text”就是一个连接字符并赋值运算，两个值连接起来就是 123321，因此本题最后输出结果为选项 C。 22 【正确答案】 C 【试题解析】 本题考查组合框。组合框控件 (ComboBox)是将文本框和列表框的功能结合在一起，用户可以在列表中选择某项 (注：只能选取一项 )，或在编辑区域中直接输入文本内容来选定项目。 23 【正确答案】 C 【试题解析】 本题考查文本框的常见属性。文

38、本框的 ScrollBars属性是 当MultiLine属性值为 True时才有效，它表示了文本框中出现的滚动条形式： O-None、 1-Hofizontal、 2-Vertical、 3-Both，而 MultiLine属性的作用是设置是否多行显示，默认该属性值为 False，允许多行显示时属性值为 True； Locked属性为True表示锁定文本框而不允许编辑。 24 【正确答案】 C 【试题解析】 框架控件的 Caption属性用来显示说明性的文字， Left属性来指定框架左侧坐标， Enabled属性用来指定框架是否可用。而 Text属性 用于返回或设置文本框中的内容，具有该属性的

39、控件有文本框、列表框、组合框等，不包括框架控件。 25 【正确答案】 B 【试题解析】 本题考查复选框的常见属性。复选框的 Enabled属性决定复选框是否可用， Value属性决定复选框是否选定，其属性值有 3种： O-Unchecked：表示未被选定， 1-Checked：选定， 2-Grayed：灰色，禁止选择； Visible属性决定其是否可见；复选框没有 Checked属性。 26 【正确答案】 D 【试题解析】 在程序运行时删除列表框 中的项目可以使用 RemoveItem方法，其语法为：列表框 Removeltem索引号，列表框的属性 Lisflndex返回当前所选项目的索引号，

40、因此删除列表框选中项目的语句为：List1 RemoveltemList1 Listlndex。列表框的 List(Index)属性返回指定索引号的列表项内容，第一个列表项的索引为 0而最后一个项目的索引为 ListCount-1，其中， IAstCount属性返回列表框中当前的列表项总数。 本题原代码错误原因：每执行一次。 Removeltem方法后，列表框中被删除 项目的后续项目的位置将前移，即其 Listlndex属性值将减 1。为此可从列表框的最后一个项目开始进行查找，即： For k=List1 ListCount-1 To O Step-1。 27 【正确答案】 C 【试题解析】

41、本题考查循环程序的分析以及列表框属性的应用。函数InStr(List1 List(k)， s)的作用是在 Lisf1 List(k)中从头开始寻找 s，找不到就返回 0，否则返回 s在 List1 List(k)中的位置。整个循环的功能是，从列表框中最后一个列表项开始寻找含有与 Text1中字符串相同的子串，如果存在相同的子串，把 List1 List(k)全部连接到 str中，并显示在 Text2中。 28 【正确答案】 D 【试题解析】 本题考查时钟控件。时钟控件常见属性有： Imerval属性，单位为ms(0 001s)， 0 5 s是 500 ms，若 Interval=0，则屏蔽计时

42、器； Enabled属性值为True时有效计时，为 False时时钟停止工作。当时钟开始工作时，则运行 Timer事件。题目中没有说明时钟何时停止，如果程序运行，则不停的触发时钟，因此将执行若干次 Beep语句。 29 【正确答案】 A 【试题解析】 本题考查转换函数和 “+”号运算符。表达式 Val(S1)的作用是把字符串 S1转成数字。程序段的功能是：变体类型变量 S1和 S2赋值以后，经由语句Val(S1)+Val(S2)，也就是数字 S1和 S2相加值 (为 3)存入 S1中，同时把数字符串“12”转成数字 12，放到 S2中。因此数字 S1和 S2不等，输出 S1 S2的值为 -9。

43、 30 【正确答案】 A 【试题解析】 本题考查时钟控件。时钟控件的 lmerval属性为两个 Timer事件之间的 事件间隔，单位为 ms(毫秒 )，若间隔 1s，那么 Interval属性值为 1000。单击窗体时启动时钟，因此时钟的 Enabled属性值为 True，执行 Timer事件，利用Time函数获得系统时间。 31 【正确答案】 B 【试题解析】 本题考查多分支选择语句 Select。 Rnd函数产生 (0， 1)之间的随机数， “Int(参数 )”函数的作用是产生不大于参数的整数，可以计算出 x的值为 4。因此将执行 Select语句中 Case 4后面的分支语句，输出 B

44、Class。 32 【正确答案】 C 【试题解析】 本题考查循环程序的分析。分析循环程序关键在于分析循环体的功能，应详细地分析循环的条件、执行的次数、每次执行的操作等。本题中 For循环执行 9次 (i取值范围 2， 10之间所有的整数 )，循环体中执行的条件为：如果 i不是偶数，同时 i是 3的倍数，那么此时的 i，累加到变量 sum中，因此当 i为3、 9时累加到变量 sum中 sum=3+9=12。 33 【正确答案】 D 【试题解析】 本题考查 DoWhile 循环分析。根据分析循环程序的原则，首先找出循环变量为 a，其初始值为 0，循环步长为 a+b，注意每次循环 b的值会发生变化，

45、变化规律为 1， 2， 3， ，由此推出 a的变化规律为： 0+1， 1+2， 3+3 ，当 a累加到 10的时候，退出循环。 34 【正确答案】 B 【试题解析】 本题是一个文件输出的问题。若要对以 Output形式打开的某文件使用 Print方法进行输出，标准格式为 Prim文件号，字符串。 35 【正确答案】 C 【试题解析】 在本题中通过分析题干中的程序可以看出，函数的返回值就是变量flag的值。错误现象是无论输入哪个正整数均会返回 False，这就代表 着没有执行循环，直接输出的就是变量 flag的初值 False。进一步分析可以看出，由于 b的初值为 1，而任何正整数均不会小于 1

46、，所以永远无法满足循环条件从而进入循环，因此需要将条件 x b改为： x b。 36 【正确答案】 B 【试题解析】 控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有惟一的索引号 (Index)，即下标，默认索引号从 0开始，不能为负值。 37 【正确答案】 B 【试题解析】 本题考查过程。常见过程分为 Sub过程和 Function函数过程。一个 Sub过程必须有一个 EndSub语句，二者是成对出现的。过程不可以嵌套定义，但可以嵌套调用。一个函数过程仅可以有一个返回值。 38 【正确答案】 C 【试题解析】 本题考查窗体的键盘事件。当按下键盘上某个键时，触发

47、KeyPress事件；按下键盘某个键过程中，触发事件 KeyDown事件；当松开键盘某个键时，触发事件 KeyUp。 KeyDown和 KeyUp事件返回的是键盘的直接状态(返回的是 “键 ”)， KeyCode参数是用户按下的那个键的扫描码，而 KeyPress返回的是 “字符 ”的 ASCII码，两者不同。当窗体的 KeyPreview设置为 True时，如果焦点从控件上跳到窗体上，则该控件的键盘事件也会被触发。 题中只有窗体的 KeyDown和 KeyUp事件，因此当按下 “A”键时，触发KDown事件执行 “Print Chr(KeyCode)”语句，其中 Chr函数的功能是将 ASC

48、II码转换成相应的字符，因此输出字母 “A”；当松开 “A”键时，触发。 KeyUp事件执行 “Print Chr(KeyCode+2)”语句，因此输出字母 “C”。 39 【正确答案】 B 【试题 解析】 本题考查 If语句和函数过程的分析。函数过程 f的功能是如果 X小于 10则返回 X，否则返回 X+10。窗体的 MouseUp事件是松开鼠标时触发的事件。程序运行后，单击窗体，则全局变量 Flag的值为 True，然后单击命令按钮，在输入对话框中输入 5，执行 If分支语句，调用 f函数，由于 5 10，因此输出X，即输出 5。 40 【正确答案】 B 【试题解析】 本题考查文件系统控件。要使驱动器、目录和文件列表框同步显示，需要在驱动器： Drive1的 Change事件中，编写 Dir1 Path=Drive1 Drive语句：而使文件的路径和目录的一致，则需要在目录 Dir1的 Change事件中编写File1 Path=Dir1 Path语句。这两个事件都编写好后，就可以使驱动器、目录和文件列表框同步显示了。