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

1、国家二级（ VB）机试模拟试卷 152及答案与解析 一、选择题 1 下列叙述中错误的是 ( )。 （ A）所有二叉树都只能用二叉链表表示 （ B）二分查找法只适用于顺序存储的线性有序表 （ C）有多个指针域的链表也有可能是线性结构 （ D）循环队列是队列的存储结构 2 设栈的存储空间为 S(1： 60)，初始状态为 top=61。现经过一系列正常的入栈与退栈操作后， top=25，则栈中的元素个数为 ( )。 （ A） 25 （ B） 26 （ C） 35 （ D） 36 3 某二叉树中共有 350个结点， 其中 200个为叶子结点，则该二叉树中度为 2的结点数为 ( )。 （ A）不可能有这

2、样的二叉树 （ B） 150 （ C） 199 （ D） 149 4 某二叉树的前序遍历序列与中序遍历序列相同，均为 ABCDEF，则后序遍历序列为 ( )。 （ A） BCDEFA （ B） CDEFAB （ C） DEFABC （ D） FEDCBA 5 下面不属于计算机软件构成要素的是 ( )。 （ A）数据 （ B）开发方法 （ C）文档 （ D）程序 6 软件测试的目的是 ( )。 （ A）发现程序中的错 误 （ B）发现并改正程序中的错误 （ C）执行测试用例 （ D）诊断和改正程序中的错误 7 下面属于工具 (支撑 )软件的是 ( )。 （ A） PowerBuilde （ B）

3、数据库管理系统 （ C）财务管理系统 （ D） iOS操作系统 8 下列关于关系模型中键 (码 )的描述正确的是 ( )。 （ A）关系中可以不存在键 （ B）至多由一个属性组成 （ C）可以由关系中任意个属性组成 （ D）由一个或多个属性组成，其值能够惟一标识关系中一个元组 9 在商场购物中，实体顾客和实体商品之间的联系 是 ( )。 （ A）一对一 （ B）多对一 （ C）一对多 （ D）多对多 10 学生选课成绩表的关系模式是 SC(S#， C#， G)。其中 S#为学号， C#为课号， G为成绩，则检索课号为 2的成绩不及格的学生的学号的表达式是 ( )。 （ A） S#(C#=2 G

4、(SC) （ B） G(SC) （ C） C#=2 G(SC) （ D） S#(C#=2(SC) 11 在 Visual Basic中定义变量时，变量的类型可以用类型说明符标识。下列类型说明符表述错误的是 ( )。 （ A） $表示字符串型 （ B） #表示单精度型 （ C） .表示货币型 （ D）表示整型 12 关于过程的描述中，错误的是 ( )。 （ A）各窗体通用的过程一般在标准模块中用 Private定义 （ B）如果过程被定义为 Static类型，则过程中定义的局部变量都是 Static型 （ C）如果过程被定义为 Public类型，则该过程可以在程序的任何地方被调用 （ D）一个

5、Sub过程必须用 End Sub语句结束 13 下面 Visual Basic语句中，注释语句使用错误的是 ( )。 （ A）变量 n用 于计数 （ B） n=n+1 Rem变量 n用于计数 （ C） n=n+1变量 n用于计数 （ D） Rem变量 n用于计数 14 表达式 LCase(“ABl23“)Left(“abc“， 2)And Len(Str(12 3)=5的值为 ( )。 （ A） True （ B） False （ C）空 （ D） O 15 以下叙述中正确的是 ( )。 （ A）过程中的所有局部变量的初值为 0 （ B）局部变量的作用域可以超出其所在过程 （ C）在标准模块中

6、定义的变量都是全局变量 （ D）在某个 Sub过 程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于定义它的过程 16 语句 Print Sgn(一 22)*Abs(Int(一 5 3)+Int (Rnd()的输出结果为 ( )。 （ A）一 6 （ B） 5 （ C）一 20 （ D） 0 17 为了在窗体上画一个组合框控件，应在工具箱窗口中选中的图标是 ( )。18 设 x中有一个任意实数，下面表达式中结果不等于 x绝对值的是 ( )。 （ A） IIf(x0， x， 一 x) （ D） IIf(x=0， x，一 IIf(xn Then Print arr(i)；

7、Next i End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 1 2 3 （ B） 1 2 （ C） 4 5 （ D） 3 4 5 33 有如下程序代码： Private Sub Command1_Click() Dim numl As Integer， hum2 As Integer Dim x As Integer numl： InputBox(“请输入第一个正整数： “) num2=InputBox(“请输入第二个正整数： “) x=numl Mod hum2 Do While x5 Print“Hi“ End Select 35 在窗体上画一

8、个名称为 Command1的命令按钮，一个名称为 Text1的文本框，并编写以下程序代码： Private Sub subl(ByRef d()， ByRef m As Integer) Dim i As Integer m=d(LBound(d) For i=LBound(d)+1 To UBound(d) If md(i)Then m=d(i) Next i End Sub Prirate Sub Command1 Click() Dim n As Integer n=0 Dim data()As Variant data=Array(23， 50，一 10， 220， 35，一 8) C

9、all subl(data()， n) Text1 Text=n End Sub 以下叙述中错误的是 ( )。 （ A）程序运行时，单击 Command1，则在 Text1中显示的结果为 0 （ B）在过程 subl的形参列表中，如果 m左 边的关键字 ByRef省略，则程序执行结果不变 （ C）程序运行时，单击 Command1，则变量 n的值为 -10 （ D）语句 Call subl(data()， n)改为 subl data， n时，程序执行结果不变 36 在窗体上画一个名称为 Command1的命令按钮，编写如下程序代码： Option Base 1 Private Sub Com

10、mand1_Click() Dim n As Long Dim m As Integer Dim x As Integer， i As Integer Dim nums()As Integer n=CLng(Val(InputBox(“输入一个正整数 “， “输入 “) m=Len(Trim(Str(n) ReDim Bum8(m) For i=m To 1 Step1 nums(i)=n 10(i1) n=nnum$(i)*10(i一 1) Next i For i=m To 1 Step一 1 x=x+num$(i) Next i Print x End Sub 程序运行时，单击命令按钮，

11、在出现的输入对话框中输入 “8356”，则输出结果是( )。 （ A）一 6 （ B） 6538 （ C） 8356 （ D） 22 37 有下面事件过程： Private Sub Command1_Click() a=2 x=a For k=1 To 5 x=x*10+a Next k Print x End Sub 执行上面事件过程的输出是 ( )。 （ A） 32 （ B） 22222 （ C） 222222 （ D） 64 38 有下面程序代码： Private Sub Command1_Click() Dim a(6)As Integer For k=0 To 5 a(k)=k*2+

12、1 Next k proc a， 4， 0 For k=0 To 6 Print a(k)； Next k End Sub Private Sub proe(b()As Integer， n As Integer， x As Integer) For k=UBound(b)To n Step一 1 b(k)=b(k一 1) Next k b(k)=X End Sub 执行 Command1_Click事件过程后产生的输出是 ( )。 （ A） 1 3 5 4 0 7 9 11 （ B） 1 3 5 7 0 9 11 （ C） 1 3 5 0 7 9 11 （ D） 1 3 5 0 9 11 3

13、9 窗体中文本框的名称为 Text1、命令按钮的名称为 Command1、组合框的名称为Combol，组合框中的列表项如图所示。 按钮的事件过程如下： Prirate Sub Command1_Click() Dim ch As String， str As String ch=Cornbol Text str=“ n=0 For k=Combol ListCount-1 To 0 Step-1 IfLeft(Combol List(k)， Len(ch)=eh Then n=n+1 Else str=str+Combol List(k) End If Next k Text1 Text： s

14、tr End Sub 程序运行后，在组合框的编辑区输入 “程 ”(如图所示 )，再单击命令按钮，则在文本框中显示的是 ( )。 （ A）程小军程忠程极宽 （ B）程极宽程忠程小军 （ C）刘士程程小军程忠程极宽李程程 （ D）李程程马燧李治张宏刘士程 40 在当前文件夹中有一个名为 “mytile txt”的文本文件，其中有若干行文本。窗体中有如下事件过程： Prirate Sub Command1_Click() Dim ch$ ascii As Integer Open“myfile txt“For Input As #1 While Not EOF(1) Line Input #1 eh

15、 ascii=0 For k=1 To Len(eh) ascii=ascii+Asc(Mid(ch， k， 1) Next k Print ascii Wend Close #1 End Sub 这一事件过程执行的结果是 ( )。 （ A）按行计算文件中每行字符的 ASCII码之和，并显 示在窗体上 （ B）计算文件中所有字符的 ASCII码之和，并显示在窗体上 （ C）把文件中所有字符的 ASCII码显示在窗体上 （ D）统计文件中文本行的行数，并显示在窗体上 二、基本操作题 41 (1)在名称为 Form1的窗体上添加一个名称为 Command1的命令按钮数组，含三个命令按钮，它们的标题

16、依次为 “是 ”、 “否 ”、 “取消 ”， Index属性分别为 0、 1、 2，每个按钮的高、宽均为 300、 800。窗体的标题为 “按钮窗口 ”。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjtl vbp，窗体文件名保存为 sjtl frm。 (2)在名称为 Form1的窗体上添加一个名称为 Shal的形状控件，然后建立一个菜单，名称为 shape0，标题为“形状 ”，该菜单有两个子菜单，其名称分别为 shapel和 shape2，其标题分别为 “正方形 ”和 “圆形 ”，如图所示。然后编写适当的程序。程序运行后，如果选择 “正方形 ”菜单项，则形状

17、控件显示为正方形；如果选择 “圆形 ”菜单项，则窗体上的形状控件显示为圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名保存 为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 三、简单应用题 42 (1)在考生文件夹中有一个工程文件 sjt3 vbp。程序的功能是输入用户名和密码。程序运行时，当输入密码到文本框 Text2中时，如果 “显示密码 ”复选框没有被选中，则在文本框 Text3中同时显示 “#”(如图所示 )；如果 “显示密码 ”复选框被选中，再重新输入密码时，则在 Text3中同时显示的是密码字符本身。 在给出的窗体文

18、件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程 序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 (2)考生文件夹中有一个工程文件 sjt4 vbp。该程序的功能是：程序运行时，向文本框控件数组Text1(有 5个文本框 )中任意输入 5个数，单击名称为 Command1的命令按钮，则找出其中最小数并在标签 lblRe suit中显示。给出的窗体文件中已经有了全部控件，但程序不完整，其中函数 FindMin的作用是返回两个数中的较小数。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其

19、他部分和控件属性，最后将修改后的文件按原 文件名进行存盘。 四、综合应用题 43 在考生文件夹下有一个工程文件 sjt5 vbp，考生文件夹下 in5 dat文件中保存有一篇英文短文。程序运行时，单击 “读取并统计 ”按钮，则按行读取 in5 dat文件的内容，并显示到文本框 Text1中，同时调用 Calculate过程统计每个英文字母 (不区分大小写 )及其出现的次数，并按字母顺序保存到二维数组 data中，统计结束后，按字母顺序将统计结果显示到列表框 List1中 (字母用小写表示，且不含文中未出现的字母 )；单击 “保存 ”按钮，则保存结果。 “读取并统计 ”和 “保存 ”按钮的 Cl

20、ick事件过程已经给出，请编写 Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所示。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “读取并统计 ”，且必须单击 “保存 ”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。国家二级（ VB）机试模拟试卷 152答案与解析 一、选择题 1 【正确答案】 A 【试题解析】 二叉树通常采用链式存储结构，对于满二叉树与完全二叉树可以按层次进行顺序存储，故 A选项叙述错误。能使用二分法查找的线性表必 须满足两个条件：用顺序存储结构；线性表是有序表， B选项叙述正确。双向链表节点有两个指针域，指向前

21、一个节点的指针和指向后一个节点的指针，也是线性结构， C选项叙述正确。循环队列是队列的一种顺序存储结构， D选项叙述正确。故选择A选项。 2 【正确答案】 D 【试题解析】 栈是一种特殊的线性表，它所有的插入与删除都限定在表的同一端进行。入栈运算即在栈顶位置插入一个新元素，退栈运算即是取出栈顶元素赋予指定变量。初始状态栈顶指针 top=61，经过入栈和退栈操作 top=25，则栈中s(26： 61)存储着元素， 6125=36，栈中元素个数为 36。 D选项正确。 3 【正确答案】 A 【试题解析】 在树结构中，一个结点所拥有的后件个数称为该结点的度。对任何一棵二叉树，度为 0的结点 (即叶子

22、结点 )总是比度为 2的结点多一个。二叉树中有350个结点，叶子结点个数为 200，设度为 1的结点个数为 n1，度为 2的结点个数为 n2。 n2=n0一 1=199， n1=350200一 199=一 49，显然节点个数不可能为负数，所以这样的二叉树是不存在的。故 A选项正确。 4 【正确答案】 D 【试题解析】 二叉树遍历可以分为 3种：前序遍历 (访问根节点在访问左子树和访问右子树之前 )、中序遍历 (访问根节点在访问左子树和访问右子树两者之间 )、后序遍历 (访问根节点在访问左子树和访问右子树之后 )。前序序列与中序序列相同均为 ABCDEF，可知 A为根节点， BCDEF均为其右子

23、树节点， B为父结点，CDEF均为其右子树节点，以此类推可知此二叉树每一层均只有一个结点，且每个结点只有右子树，则后序序列为 FEDCBA，故 D选项正确。 5 【正确答案】 B 【试题解析】 计算机软件由两部分组成：一是机器可执行的程序和数据；二是机器不可执行的，与软件开发、运行、维护、使用等有关的文档。开发方法不属于计算机软件构成要素，故选择 B选项。 6 【正确答案】 A 【试题解析】 软件测试就是在软件投入运行之前，尽可能多地发现软件中的错误， A选项叙述正确。调试 (也称为 Debug，排错 )是作为成功测试的后果出现的步骤，是在测试发现错误之后排除错误的过程， B、 D选项叙述错误

24、。执行测试用例是软件测试的手段， C选项叙述错误。故 A选项正确。 7 【正确答案】 A 【试题解析】 计算机软件按功能分为应用软件、系统软件、支撑软件 (或工具软件 )。系统软件是管理计算机的资源，提高计算机的使用效率，为用户提供各种服务的软件。应用软件是为了应用于特定的领域而开发的软件。支撑软件是介于系统软件和应用软件之间，协助用户开发软件的工具型软件，其中包括帮助程序人员开发和维护软件产品的工具软件，也包括帮助管理人员控制开发进程和项目管理的工具软件。 B、 D选项均为系统软件， C选项为应用软件。 A项为支撑软件。 8 【正确答案】 D 【试题解析】 关系模型采用二维表来表示关系，一个

25、 二维表就是一个关系。候选键是二维表中能唯一标识元组的最小属性集。关系中必须存在键，否则无法唯一标注元组， A选项叙述错误。键是属性集，可以由一个或者多个属性组成， B选项叙述错误。能唯一标注元组的最小属性集才是键， C选项叙述错误。 D选项正确。 9 【正确答案】 D 【试题解析】 实体集之间通过联系来建立联接关系分为三类：一对一联系 (1：1)、一对多联系 (1： m)、多对多联系 (m： n)。一名顾客可以购买多种商品，同一种商品可以被多名顾客购买，故实体顾客和实体商品之间的联系是多对多， D选项正确。 10 【正确答案】 A 【试题解析】 表示投影运算，针对属性；表示选择运算，针对元组

26、。为关系交，为关系并。结果为关系模式学生学号 S#，在几种属性中选择学生学号，首先要在其中选择满足条件的元组，条件是课号为 2且成绩不及格，关系为交“C#=2 GS#(C#=2 G(SC)，故 A选项正确。 11 【正确答案】 B 【试题解析】 在 Visual Basic中，表示整型； 表示货币型； #表示双精度型； $表示字符串型。故本题 B选项表述有误。本题选择 B选项。 12 【正确答案】 A 【试题解析】 各窗体通用的过程一般在标准模块中用 Public定义，在窗体层定义的通用过程通常在本窗体模块中使用，如果在其他窗体模块中使用，则应加上窗体名作为前缀。故本题 A选项叙述错误，其他三

27、项叙述均正确。本题选择 A选项。 13 【正确答案】 B 【试题解析】 在 Visual Basic中的注释是 “Rem”或一个撇号 “”。如果使用 “”号进行注释，则注释部分可以放在一条语句之后或单独另起一行；如果使用 “Rem”进行注释，若放在一条语句之后，则需要在 “Rem”前加上 “： ”号，若注释部分另起一行，则不需要加上 “： ”号，故本题 B选项不是正确的注释语句。本题选择 B选项。 14 【正确答案】 A 【试题解析】 一个表达式可能含有多种运算，计算时首先进行函数运算，接着执行算术运算，然后进行关系运算，最后进行逻辑运算。本题中先进行函数运算，LCase函数是将字符串中所有大

28、写字母转换为小写小字母，LCase(“AB123”)=“abl23”； left函数是从字符串左侧截取若干个字符， left(“abc，2”)=“ab”； str函数是转换函数，可以将数值型数据转换为字符串，str(12 5)=“12 5”，注意，此时字符 串前会产生一个空格字符； len函数可以测量字符串的长度， len(str(12 5)返回的结果为 5，所以，表达式 len(str(12 5)：5结果为 true；而表达式 LCase(“ABl23“)Left(“abc“， 2)结果为 true，故最终整个表达式的结果为 true， A选项正确。本题选择 A选项。 15 【正确答案】 D

29、 【试题解析】 局部变量在进入过程时应该初始化变量，但变量的数据类型不同，初始化后变量的初值是不同的，对于字符串变量初始化为空字符串，数字变量初始化为 0，而日期变量初始化为 0： 00： 00，逻辑性变量初始化为 False等等， A选项叙述错误；在过程内定义的变量叫做局部变量，其作用域是它所在的过程， B选项叙述错误；在标准模块中可以声明全局变量，也可以定义函数过程或子程序过程， C选项叙述错误；在不同的过程中可以定义相同名字的局部变量，它们之间没有任何关系，各自作用的范围为定义它们的过程， D选项叙述正确。本题选择 D选项。 16 【正确答案】 A 【试题解析】 一 22=一 4，所以符

30、号函数 Sgn(一 22)=一 1； Int函数的功能为向下取整， Int(一 5 3)=一 6， Ahs函数的功 能为求绝对值， Abs(Int(一5 3)=6； Rnd函数为随机函数，通过 Rnd可以获得一个大于等于 0小于 1的随机小数， Int(Rnd)=0；所以最终整个表达式 Sgn(一 22)*Abs(Int(一5 3)+Int(Rnd()的运算结果为一 1*6+0=6， A选项正确。本题选择 A选项。 17 【正确答案】 C 【试题解析】 A选项为文件列表框控件； B选项为文本框控件； C选项为组合框控件； D选项为列表框控件；故 C选项叙述正确。本题选择 C选项。 18 【正确

31、答案】 A 【试题解析】 IIF函数的格式如下： result=IIF(条件， True部分， False部分 ) “result”是函数的返回值， “条件 ”是一个逻辑表达式。当 “条件 ”为真时， IIF函数返回 “True”部分，而当 “条件 ”为假时返回 “False部分 ”。 A选项中，当条件表达式 “x5”，变量 x的值无法与之匹配，故不能输出 “Hi”，本题只有A选项符合题意。本题选择 A选项。 35 【正确答案】 A 【试题解析】 在过程 Command1_Click中，定义了一个默认数组 data，然后通过 Array函数给数组元素赋值，接着使用 Call语句调 用过程 su

32、bl并将数组 data作为参数传递给 subl过程，当用数组作为过程的参数时，使用的是 “传地址 ”方式，而不是 “传值 ”方式，故在过程 subl中对数组元素的修改，会改变原数组的值。变量 n使用的传递方式为 By。 Ref， n传递的也是地址。在 subl过程中，语句 LBound(d)获得的是数组下标的下界值， d(LBound(d)=d(O)=23，所以 m=23；For循环的循环变量 i初始值为 1，终止值为 5，程序执行如下：当 i=1时， md(i)为假；当 i=2时， md(i)为真，执行语句 m=d(i)=一 10；当 i=3时， md(i)为假；当 i=4时， md(i)为

33、假；当 i=5时， md(i)为假，循环结束，最终 m的值为一10。由于过程传递的是地址，主调过程 Command1_Click中的 n值为一 10，最终输出到 Text1文本框控件中的值为一 10。所以 A选项叙述错误，其它 3项叙述正确。本题选择 A选项。 36 【正确答案】 D 【试题解析】 程序开始前使用 Option Base 1语句，表示数组下标从 1开始。在过程 Command1_Click中定义了动态数组 nums，通过 lnputBox函数输入一个正整数赋值 给 n， n=8356； str(n)可以将 n转换为字符串，通过 Len函数测量字符串的长度，然后赋值给变量 m，

34、m=4。通过 ReDim语句给动态数组 nums重新分配空间， nums是一个可以包含 4个元素的一维整型数组。第一个 for循环的功能是：将整数 n的千位数赋值给 nums(1)，将整数 n的百位数赋值给 nums(2)，将整数 n的十位数赋值给 nums(3)，将整数 n的个位数赋值给 hums(4)，所以循环结束后 nilms(1)=8， nums(2)=3， nums(3)=5， hums(4)=6。后一个 For循环的功能是：将 hums数组中的所有元素累和，并将结果赋值给变量 x， x=8+3+5+6=22，最后输出 x的值。故本题 D选项正确。本题选择 D选项。 37 【正确答案

35、】 C 【试题解析】 程序开始时，变量 a赋值为 2，变量 x赋值为 a，即 x的初始值也为2， For循环执行过程中各元素获得的值如下表所示。所以最终循环结束后，变量 x的值为222222， C选项正确。本题选择 C选项。 38 【正确答案】 C 【试题解析】 在过程 Command1_Click中定义了一个数组 a，第一个 For循环的功能是：为数组中的元素赋值，循环 执行结束后， a(0)=1； a(1)=3； a(2)=5；a(3)=7； a(4)=9； a(5)=11。接着使用语句 proc a， 4， 0调用过程 proc，并传递相应的参数，其中第一个参数为数组名，当用数组作为过程

36、的参数时，使用的是 “传地址 ”的方式，也就是说实参 a和形参 b指向的是同一个存储空间，对数组 b的任何修改本质上都是修改数组 a。过程 proc中使用 UBound函数获得数组下标的上界值，循环变量 k的初始值为 6，终止值为 4。当 k=6时，执行语句b(6)=b(5)=11；当 k=5时，执行语句 b(5)=b(4)=9；当 k=4时，执行语句b(4)=b(3)=7，循环结束后执行语句 b(3)=0，所以最终数组 a中各元素的值依次为： 1， 3， 5， 0， 7， 9， 11。 C选项正确。本题选择 C选项。 39 【正确答案】 D 【试题解析】 本题考查 Combox控件的属性和方

37、法的使用，程序中定义了字符串变量 ch和 str，其中 ch赋值为 Combox中输入的汉字 “程 ”， str的初始值为空字符串，程序进入 For循环，循环变量 k的初始值为 Comboxl ListCount-1，其中ListCount属性为组合框中的表项数量，表项从 0开始，最 后一项为Comboxl ListCount-1，本题中 Comboxl ListCount一 1为 7，所以循环变量 k的初始值为 7终止值为 0，循环共执行 8次，循环执行过程如下： 当 k=7时， if Left(Comboxl List(k) Len(ch)=ch条件为假，执行语句str=str&Combo

38、xl List(k)， str的值为 “李程程 ” 当 k=6时， if Left(Comboxl List(k)， Len(ch)=ch条件为假，执行语句str=str&Comboxl List(k)， str的值为 “李程程马燧 ” 当 k=5时， if Left(： omboxl List(k)， Len(ch)=ch条件为假，执行语句str=str&Comboxl List(k)， str的值为 “李程程马燧李治 ” 当 k=4时， if Left(Comboxl List(k) Len(ch)=ch条件为真，执行语句n=n+1， n的值为 1 当 k=3时， if Left(Comb

39、oxl List(k)， Len(ch)=ch条件为真，执行语句n=n+1， n的值为 2 当 k=2时， if Left(Comboxl List(k)， Len(ch)=ch条件为假，执行语句str=str&Comboxl List(k)， str的值为 “李程程马燧李治张宏 ” 当 k=1时， if Left(Comboxl List(k)， Len(ch)=ch条件为真，执行语句n=n+1， n的值为 3 当 k=0时， if Left(Comboxl List(k)， Len(ch)=ch条件为假，执行语句str=str&Comboxl List(k)， str的值为 “李程程马燧李

40、治张宏刘士程 ”。 故本题 D选项正 确。本题选择 D选项。 40 【正确答案】 A 【试题解析】 程序中指定使用顺序输入方式打开文件 “myfile txt”文件，在WhileWend 循环结构中判断文件是否到结尾，若没有到达结尾，则使用Line Input#语句从顺序文件中读取一个完整的行，并把它赋值给一个字段串变量ch，然后使用： For循环语句将刚读取的一行字符串信息依次取出每个字符，并将各字符的 ASCII码值相加，最后输出所有字符的 ASCII值的和，故本题中 A选项正确。本题选择 A选项。 二、基本操作题 41 【正确答案】 (1)步骤 1：建立界面，并设置控件的属性。程序中用到

41、的控件及属性见表 13。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：建立界面，并添加一个名称为 Shal的形状控件，建立菜单的属性见表 4。步骤 2：编写程序代码。 参考答案 Private Sub shapel_Click() Shal Shape=1 End Sub Private Sub shape2_Click() Shal Shape=3 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)可在窗体中先绘制一个命令按钮控件，命名为 Command1，并按要求设置其宽和高，然后通过 “复制 ”和 “粘贴 ”生成该控件数组

42、的其他两个元素。 (2)根据题意，选择 “正方形 ”菜单项，则将形状控件 Shape属性设置为 1，显示为正方形；如果选择 “圆形 ”菜单项，则将形状控件 Shape属性设置为 3，窗体上的形状控件显示为圆形。 三、简单应用题 42 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Text2_Change() If?=l Then Text3 PasswordChar=? Else Text3 PasswordChar=? End If Text3 Text=? End Sub 程序结束 参考答案 第 1个 ?处填入： Checkl Value 第 2个 ?处填入： “ 第 3个 ?处填入： “#“ 第 4个 ?处填入： Text2 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。