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

《[计算机类试卷]国家二级（VB）机试模拟试卷150及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]国家二级（VB）机试模拟试卷150及答案与解析.doc（31页珍藏版）》请在麦多课文档分享上搜索。

1、国家二级（ VB）机试模拟试卷 150及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）算法就是程序 （ B）设计算法时只需要考虑数据结构的设计 （ C）设计算法时只需要考虑结果的可靠性 （ D）以上三种说法都不对 2 下列叙述中正确的是 ( )。 （ A）有一个以上根结点的数据结构不一定是非线性结构 （ B）只有一个根结点的数据结构不一定是线性结构 （ C）循环链表是非线性结构 （ D）双向链表是非线性结构 3 下列关于二叉树的叙述中，正确的是 ( )。 （ A） 叶子结点总是比度为 2的结点少一个 （ B）叶子结点总是比度为 2的结点多一个 （ C）叶子结点数是度为 2的

2、结点数的两倍 （ D）度为 2的结点数是度为 1的结点数的两倍 4 软件生命周期中的活动不包括 ( )。 （ A）市场调研 （ B）需求分析 （ C）软件测试 （ D）软件维护 5 某系统总体结构图如下图所示： 该系统总体结构图的深度是 ( )。 （ A） 7 （ B） 6 （ C） 3 （ D） 2 6 程序调试的任务是 ( )。 （ A）设计测试用例 （ B）验证程序的正确性 （ C）发现程序中 的错误 （ D）诊断和改正程序中的错误 7 下列关于数据库设计的叙述中，正确的是 ( )。 （ A）在需求分析阶段建立数据字典 （ B）在概念设计阶段建立数据字典 （ C）在逻辑设计阶段建立数据字

3、典 （ D）在物理设计阶段建立数据字典 8 数据库系统的三级模式不包括 ( )。 （ A）概念模式 （ B）内模式 （ C）外模式 （ D）数据模式 9 有三个关系 R、 S和 T如下： 则由关系 R和 S得到关系 T的操作是 ( )。 （ A）自然连接 （ B）交 （ C）投影 （ D）并 10 下列选 项中属于面向对象设计方法主要特征的是 ( )。 （ A）继承 （ B）自顶向下 （ C）模块化 （ D）逐步求精 11 以下合法的 VB变量名是 ( )。 （ A） #_1 （ B） 123_a （ C） string （ D） x_123 12 以下关于 VB的叙述中，错误的是 ( )。

4、（ A） VB采用事件驱动方式运行 （ B） VB既能以解释方式运行，也能以编译方式运行 （ C） VB程序代码中，过程的书写顺序与执行顺序无关 （ D） VB中一个对象对应一个事件 13 有如下数据定义语句： Dim X， Y As Integer 以上语句表明 ( )。 （ A） X、 Y均是整型变量 （ B） X是整型变量， Y是变体类型变量 （ C） X是变体类型变量， Y是整型变量 （ D） X是整型变量， Y是字符型变量 14 以下关于控件数组的叙述中，正确的是 ( )。 （ A）数组中各个控件具有相同的名称 （ B）数组中可包含不同类型的控件 （ C）数组中各个控件具有相同的 I

5、ndex属性值 （ D）数组元素不同，可以响应的事件也不同 15 以下关于 VB文件的叙述中，错误的是 ( )。 （ A）标准模块文件不属于任何一个窗体 （ B）工程文件的扩展名为 frm （ C）一个工程只有一个工程文件 （ D）一个工程可以有多个窗体文件 16 设 x为一整型变量，且情况语句的开始为： Select Case x，则不符合语法规则的Case子句是 ( )。 （ A） Case Is20 （ B） 12ase 1 To 10 （ C） Case 050， Int(a 3)， a Mod 2) 当 a=52时， x的值是 ( )。 （ A） 0 （ B） 1 （ C） 17 （

6、 D） 18 18 设有如下数组定义语句： Dim a(一 1 To 4， 3)As Integer 以下叙述中正确的是 ( )。 （ A） a数组有 18个数组元素 （ B） a数组有 20个数组元素 （ C） a数组有 24个数组元素 （ D）语法有错 19 以下叙述中错误的是 ( )。 （ A） Sub Main是定义在标准模块中的特定过程 （ B）一个工程中只能有一个 Sub Main过程 （ C） Sub Main过程不能有返回值 （ D）当工程中含有 Sub Main过程时，工程执行时一定最先执行该过程 20 关于随机文件，以下叙述中错误的是 ( )。 （ A）使用随机文件能节约空

7、间 （ B）随机文件记录中，每个字段的长度是固定的 （ C）随机文件中，每个记录的长度相等 （ D）随机文件的每个记录都有一个记录号 21 在名称为 Framel的框架中，有两个名称分别为 opl、 op2的单选按钮，标题分别为 “单程 ”、 “往返 ”，如图所示。 以下叙述中，正确的是 ( )。 （ A）若仅把 Framel的 Enabled属性设为 False，则 op1、 op2仍可用 （ B）对于上图， op1 Value的值为 True （ C）对于上图，执行 Op1 Value=False命令，则 “往返 ”单选按钮被选中 （ D）对于上图，执行 Op1 Value=O命令，程序出

8、错 22 以下能够设置控件焦点的方法是 ( )。 （ A） SetFocus （ B） GotFocus （ C） LostFocus （ D） TabStop 23 使用 Line控件在窗体上画一条从 (O， 0)到 (600， 700)的直线，则其相应属性的值应是 ( )。 （ A） X1=0， X2=600， Y1=0， Y2=700 （ B） Y1=0， Y2=600， X1=0， X2=700 （ C） X1=0， X2=0， Y1=600， Y2=700 （ D） Y1=0， Y2=0， X1=600， X2=700 24 设有窗体的 Form_MouseMove事件过程如下： P

9、rivate Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single，Y As Single) If(Button And 3)=3 Then Print“检查按键 “ End If End Sub 关于上述过程，以下叙述中正确的是 ( )。 （ A）按下鼠标左键时，在窗体上显示 “检查按键 ” （ B）按下鼠标右键时，在窗体上显示 “检查按键 ” （ C）同时按下鼠标左、右键时，在窗体上显示 “检查按键 ” （ D）不论做何种操作，窗体上都不会显示 25 窗体上有一个名称为 CD1的通用对话框，一个名称为 Com

10、mand1的命令按钮，相应的事件过程如下： Private Sub Command1_Click() CD1 Filter=“All File * * Text File * txt PPT * ppt“ CD1 FiherIndex=2 CD1 InitDir=“C： “ CD1 FileNaIne=“default“ CD1 ShowSave End Sub 关于上述过程，以下叙述中正确的是 ( )。 （ A）默认过滤器为 “* ppt” （ B）指定的初始目录为 “C： ” （ C）打开的文件对话框的标题为 “default” （ D）上面事件过程实现保存文件的操作 26 以下关于窗体的

11、叙述中，错误的是 ( )。 （ A） Hide方法能隐藏窗体，但窗体仍在内存中 （ B）使用 Show方法显示窗体时，一定触发 Load事件 （ C）移动或放大窗体时，会触发 Paint事件 （ D）双击窗体时，会触发 DblClick事件 27 下列控件中，没有 Caption属性的是 ( )。 （ A）单选按钮 （ B）复选框 （ C）列表框 （ D）框架 28 将数据项 “Student”添加到名称为 List1的列表框中，并使其成为列表框 第一项的语句为 ( )。 （ A） List1 Addltem“Student“， 0 （ B） List1 Addltem“Student“， 1

12、 （ C） List1 AddItem 0， “Student“ （ D） List1 AddItem 1， “Student“ 29 下列针对框架控件的叙述中，错误的是 ( )。 （ A）框架是一个容器控件 （ B）框架也有 Click和 DblClick事件 （ C）框架也可以接受用户的输入 （ D）使用框架的主要目的是为了对控件进行分组 30 窗体上有一个名为 Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim arr(5)As Integer For k=I To 5 art(k)=k Next k prog art() Fo

13、r k=1 To 5 Print arr(k)； Next k End Sub Sub prog(a()As Integer) n=UBound(a) For i=n To 2 step1 For i=1 To n一 1 if a(j)=0 Then count(n)=count(n)+1 End If Next k m=count(O) For k=1 To 25 If m10 Then Exit For Next Text1 Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 34 设有如

14、下的程序段： n=0 For i=1 To 3 For j=1 To i For k=j To 3 n=n+1 Next k Next j Next i 执行上面的程序段后， n的值为 ( )。 （ A） 3 （ B） 21 （ C） 9 （ D） 14 35 在窗体上画一个名称为 Command1的命令按钮，一个名称为 Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s=0 For i=1 To 15 X=2*i一 1 If x Mod 3=0 Then s=s+1 Next i Label1 Caption=s End Sub 程序运行

15、后，单击命令按钮，则标签中显示的内容是 ( )。 （ A） 1 （ B） 5 （ C） 27 （ D） 45 36 阅读程序： Private Sub Form_Click() X=50 For i=1 To 4 Y=InputBox(“请输入一个整数 “) y=Val(y) If v Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、 24、 35、 46，输出结果为 ( )。 （ A） 100 （ B） 50 （ C） 120 （ D） 70 37 在窗体上画一

16、个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arrayl(10， 10)As Integer Dim i As Integer， j As Integer For i=1 To 3 For i=2 To 4 arrayl(i， j)=i+j Next j Next i Text1 Text=arrayl(2， 3)+arrayl(3， 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 ( )。 （ A） 15 （ B） 14 （ C） 13 （ D） 12 3

17、8 在窗体上画一个名称为 Command1的命令按钮 ，然后编写如下程序： Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10， 12， 21， 32， 24) For i=1 To 5 If x(i)c Then d=d+x(i) c=x(i) Else d=dc End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上 输出的内容为 ( )。 （ A） S9 （ B） 99 （ C） 23 （ D） 77 39 假定有以下通用过程： Function Fun(n As In

18、teger)As Integer x=n*n Fun=x一 11 End Funotion 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer For i=1 To 2 Y=Fun(i) Print y； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 ( )。 （ A） 1 3 （ B） 10 8 （ C）一 10 一 7 （ D） 0 5 40 设有如下通用过程： Public Function f(x As Integer) Dim y As

19、Integer x=20 y=2 f=x*y End Function 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x； y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 ( )。 （ A） 10 5 （ B） 20 40 （ C） 20 5 （ D） 10 40 二、基本操作题 41 (1)在名称为 Form1的窗体上画 1个名称为 Framel、标题为 “学位 ”的框架；框架内有 1个名称为 O

20、ption1的控件数组，该控件数组含有 4个标题分别为 “学士 ”、 “硕士 ”、 “博士 ”和 “其他 ”的单选按钮，它们的 Index属性分别为 0、 1、 2、 3，且标题为 “硕士 ”的单选按钮为选中状态。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为 sjtl frm。(2)在名称为 Form1、标题为 “练习 ”的窗体上，画 1个名称为 Imagel的图像框，该图像框能自动调整其中图片内容的大小，并装入考生文件夹下名称为 “风景 ”的图片文件。再画 2个名称分别为 Command1和Command2，标题分别为 “加宽 ”和

21、 “加高 ”的命令按钮。如图所示。 要求：编写两个按钮适当的事件过程，使得单击 “加宽 ”按钮时， Imagel的宽度增加 15；单击 “加高 ”按钮时， Imagel的高度增加 15。在程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sjr2 frm。 三、简单应用题 42 (1)在考生文件夹下有一个工程文件 sjt3 vbp。窗体上有一个名称为 List1的列表框，且已有 若干个项目，如图 (a)所示。 “部分反序 ”命令按钮的名称为Command1。程序运行时，单击 “部分反序 ”按钮，列表框中除最前面

22、的一个项目不动外，其他项目的顺序反向显示，如图 (b)所示。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。其功能是： 1)单击 “产生数据 ”按钮，产生 10个随机整数，并显示在 Picturel图片框的第 l行 ； 2)在 Text1文本框中输入要清 0的第 1个数的位置，在 Text2文本框中输入要清 0的个数，然后单击 “清 0”按钮，则把清 0后的数据显示在图片框的下一行。如图所示。 其他约束： a

23、)若输入的第 1个数位置大于 10，则认为从第 10个数开始； b)若不输入第 1个数位置，则认为从第 1个数开始； C)若不输入清 0个数，则认为一直清 0到最后一个数； d)若输入的清 0个数超出了最后 1个数，则清 0到最后一个数为止。 在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不 能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。四、综合应用题 43 在窗体上画 1个文本框，名称为 Text1(muhiline属性为 True)，然后再添加三个命令按钮，名称分别为 Command1、 Command2

24、和 Command3，标题分别为 “读数 ”、 “统计 ”和 “存盘 ”，如图所示。程序的功能是：单击 “读数 ”按钮，则把考生文件夹下的 in5 txt文件中的所有英文字符放入 Text1(MutiLine属性为 True)中；单击 “统计 ”按钮，找出并统计英文字母 i， j， k， 1， m， n(不区 分大小写 )各自出现的次数；单击 “存盘 ”按钮，将字母 i到 n出现次数的统计结果依次存到考生目录下的顺序文件 out5 txt中。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt5 vbp，窗体文件名保存为 sit5 frm。国家二级（ VB）机试模拟试卷 150答案与

25、解析 一、选择题 1 【正确答案】 D 【试题解析】 算法是指解题方案的准确而完整的描述，算法不等于程序，也不等于计算方法，所以 A错误。设计算法时不仅要考虑对数据对象的运算和操作，还要考虑算法的控制结构。 2 【正确答案】 B 【试题解析】 线性结构应满足：有且只有一个根结点与每个结点最多有一个前件，也最多有一个后件，所以 B正确。所以有一个以上根结点的数据结构一定是非线性结构，所以 A错误。循环链表和双向链表都是线性结构的数据结构。 3 【正确答案】 B 【试题解析】 根据二叉树的基本性质 3：在任意一棵二叉树中，度为 0的叶子结点总是比度为 2的结点多一个。所以选择 B。 4 【正确答案

26、】 A 【试题解析】 软件生命周期可以分为软件定义、软件开发与软件运行维护三个阶段。主要活动阶段是：可行 性研究与计划阶段，需求分析，软件没计，软件实现，软件测试，运行和维护，所以选择 A。 5 【正确答案】 C 【试题解析】 根据总体结构图可以看出该树的深度为 3，比如： XY系统 功能 2功能 2 1，就是最深的度数的一个表现。 6 【正确答案】 D 【试题解析】 程序调试的任务是诊断和改正程序中的错误。 7 【正确答案】 A 【试题解析】 数据字典是在需求分析阶段建立，在数据库设计过程中不断修改、充实和完善的。 8 【正确答案】 D 【试题解析】 数据库系统的三级模式是 概念模式、外模式

27、和内模式，所以选择D。 9 【正确答案】 A 【试题解析】 自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把重复的属性列去掉，所以根据 T中元组可以判断 R和 S做的是自然连接操作。 10 【正确答案】 A 【试题解析】 面向对象基本方法的基本概念有对象、类和实例、消息、继承与多态性，所以选择 A。 11 【正确答案】 D 【试题解析】 VB中变量的命名规则为： 必须以字母或汉字开头 由字母、汉字、数字或下划线组成 不能使用 VE已经占用的关键字。 #_1中 #是类型符号，变量名中不能用 VE保留符呈。故丕金法。 123_a以数字开头不合法。 st

28、ring是VB的关键字。也不合法。故 D选项正确。 12 【正确答案】 D 【试题解析】 VB中一个对象可以对应一个或多个事件，事件可由用户或系统触发，触发后执行相应的事件过程。不过，不一定一个对象的所有事件过程都执行，响应哪个事件过程就执行哪个。故 D选项错误。 13 【正确答案】 C 【试题解析】 用 Dim可同时定义多个变量，但变量要分别声明其数据类型，如果不声明数据类型，默 认是 Variant变体型变量。 本题中，变量 X定义时没声明数据类型，所以为 Variant型变量，变量 Y是整型变量。故 C选项正确。 14 【正确答案】 A 【试题解析】 控件数组中各控件具有相同的名称，而且

29、类型是相同的，但 Index属性值不同。数组中各控件响应的事件是相同，用 Index属性值来区分每个控件。故 A选项正确， B、 C、 D选项错误。 15 【正确答案】 B 【试题解析】 工程文件的扩展名为 vbp，故 B选项错误。 16 【正确答案】 C 【试题解析】 select Case语句中表达式的形式可以是：常量或变量；若干符合条件的值用 “， ”隔开；表达式 1 to表达式 2； Is关系表达式。 本题中选项 A、 B和 D都符合语法规则。 选项 C中 Is关系表达式语法错误，它可以是 Is0或 Is50， 17， 0)， 5250结果为 True， 所以 IIF函数返回 17，则

30、 x值为 17，故选 C。 18 【正确答案】 C 【试题解析】 本题定义了一个二维数组，第一维的下标一 1 to 4，即为一 1， 0，1， 2， 3， 4(共 6行 )，第二维下标 3，即 O to 3(0， 1， 2， 3共 4列 )， 6*4=24二维数组有 24个数组元素。故选 C。 19 【正确答案】 D 【试题解析】 VB工程的启动对象有： Sub Main过程 (在标准模块中定义 )、窗体(在多个窗体可选一个窗体启动 )，我们可以通过在 “工程属性 ”对话框中设置启动对象来实现，设置哪个就用哪个启动 。所以当工程中含有 Sub Main过程时，工程执行不一定最先执行该过程，也可

31、以通过窗体启动。故选项 D错误。 20 【正确答案】 A 【试题解析】 随机文件巾的每一行是一条记录，每条记录的长度是固定的、相等的，并且都有一个记录号。 Open语句中的 Len用于指定记录长度，当指定长度小于记录实际长度时将产生错误；大于实际长度时，可以写入，但浪费空间，所以随机文件占据磁盘空间较大，故选项 A错误。 21 【正确答案】 B 【试题解析】 当 Framel的 Enabled属性设为 False后，框架 Framel变为不可用，它里面放的两个单选按钮也就变为不可用，故 A选项错误； 当 Opl Value为 False时， “单程 ”和 “往返 ”单选按钮都处于未选中状态，故

32、 C选项错误； Opl Value的值为 0，即为 False，语句正确，没有程序错误，故 D选项说法错误； 根据图可只， “单程 ”单选按钮处于选中状态， Opl Value的值为 True，故 B选项正确。 22 【正确答案】 A 【试题解析】 GotFocus和 LostFocus是控件获得焦点和失去焦点时触发的两个事件； TabStop是控件的属件： SetFocus方法是控件设置、获得焦点的方法。故选 A。 23 【正确答案】 A 【试题解析】 X1、 Y1、 X2、 Y2属性是直线的起点、终点坐标。故选 A。 24 【正确答案】 C 【试题解析】 MoseMove事件中的 Butt

33、on表示鼠标所有按键的状态。用 0、 1、 2三个位表示左、右、中键，当按下某个键时，相应位是 1，否则是 0。三位的二进制数也可转换为十进制数，作为 Button的值。如表：本题中当 Button值为 011或111时， (Button And 3)=3，条件才成 立，窗体上显示 “检查按键 ”。这说明只要同时按下鼠标的左右键时，在窗体上就显示 “检查按键 ”。故选 C。 25 【正确答案】 B 【试题解析】 通用对话框的 FiherIndex属性为 l时表示默认过滤器为第 1个文件类型，为 2时表示为第 2个文件类型。 InitDir属性值指定通用对话框的初始目录。 FileName属性表

34、示对话框中默认的文件名。 ShowSave方法表示打开另存为对话框，执行保存文件的操作。 26 【正确答案】 B 【试题解析】 窗体的 Load事件是把窗体装入工作区的事件，即装入内存，然 后窗体才显示出来，使用 Hide方法可以使窗体隐藏，但窗体仍在内存中，使用Show方法能使窗体显示出来。当窗体被移动或放大时，或者窗口移动时覆盖了一个窗体时，触发 Paint事件。双击窗体时会触发窗体的 DblClick事件。 27 【正确答案】 C 【试题解析】 列表框控件没有 Caption属性。 28 【正确答案】 A 【试题解析】 List控件的 Addltem方法的语法是： Addhem(Stri

35、ng， index)。其中 index是列表框中列表项的索引值，第一项的索引值为 0。 29 【 正确答案】 C 【试题解析】 框架是一个容器控件，用于将屏幕上的对象分组。框架常用的事件是 Click和 DblClick，它不接受用户输入，不能显示文本和图形，也不能与图形相连。 30 【正确答案】 B 【试题解析】 程序对数组元素赋初值为 1、 2、 3、 4、 5。 Llbound函数返回数组可用的最大下标，过程 prog的功能是遍历数组对数组中的元素进行排序，由条件a(j)10 Then start=10 End If If Text2 Text=“Then n=10一 start+1 E

36、lse n=Val(Text2 Text) End If If start+n11 Then n=10一 start+1 End If For k=start To start+n-1 a(k)=0 Next k For k=1 To 10 Picturel Print a(k)； Next k End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)本题主要考察列表框控件属性的使用方法，根据题意可知，程序从列表框的第二项开始，将首尾项进行互换，所以循环变量 k的初始值应该设置为 1，循环体中的三条语句 是将列表框的首尾对应项进行互换。 (2)单击 Comma

37、nd1命令按钮时，随机产生 10个整数放入数组 a中，使用图片框控件的 Print方法输出数组中的原始数据，单击 Command2命令按钮时，使用 If语句判断输入起始位置的值和清 0的个数，变量 start用来来保存起始位置，变量n用来保存清 0的个数，再使用 For循环根据起始位置清 0n个数组元素值，并将结果输出。 四、综合应用题 43 【正确答案】 步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 1和表 2。 步骤 2：分析并编写程序代码。程序提供代码 程序结束 参考答案 Option Explicit Private Sub Command1_Click() Dim

38、 a As StringDim s As String Open App Path&“ in5 txt“For Input As #1 Do While Not EOF(1) a=Input(1， #1) s=s&a Loop Close#1 Text1=s End Sub Private Sub Command2_Click() Dim str As String Dim n1 As Integer Dim n2 As Integer Dim n3 As Integer Dim n4 As Integer Dim n5 As Integer Dim n6 As Integer Dim i A

39、s Integer For i=1 To ten(Text1) str=Mid(Text1， i， 1) Select Case str Case“i“ “I“ n1=n1+1 Case“j“， “J“ n2=n2+1 Case“k“ “K“ n3=n3+1 Case“1“ “L“ n4=n4+1 Case“m“ “M“ n5=n5+1 Case“n“ “N“ n6=n6+1 End Select Next Text1=“字母 i或 I出现的次数为 “&Format(n1， “00“)&vbCrLf Text1=Text1&“字母 j或 J出现的次数为“&Format(n2， “00“)&vbCrLf Text1=Text1&“字母 k或 K出现的次数为