《Visual Basic 程序设计》（电工版第六版）期末复习卷（五）

《Visual Basic程序设计（第6版）》 期末复习卷（五） 时间：90分钟 总分：100分 班级 姓名 学号 成绩 一、选择题(本大题共25小题，每小题2分，共50分) 1、VB 6.0集成开发环境中不能完成的功能是（ ）。 A.输入编辑源程序 B.编译生成可招待程序 C.调试运行程序 D.自动生成查找并改正程序中的错误 【答案】D 【解析】VB只能提示语法错误或断点调试，不能自动定位并改正所有逻辑/运行时错误。 2、在VB中，通过代码在运行时设置属性的语法格式为（ ）。 A.对象名＝属性 .新值 B.对象名.属性＝新值 C.对象名.新值=属性 .新值 D.对象名.属性=属性 .新值 【答案】B 【解析】属性是隶属于某个对象的成员，值时必须用“点语法”指明“谁”的“哪个属性”要改成“什么值”；对象名 写在左侧最前面，属性名 紧跟在“.”之后，新值写在赋值号右侧。 3、以下叙述错误的是（ ）。 A.打开一个工程文件时，系统自动装入与该工程有关的窗体文件 B.打开一个窗体文件时，系统自动装入与该窗体有关的工程文件 C.保存VB应用程序时，应分别保存窗体文件和工程文件 D.事件可以由用户激发,也可以由系统激发 【答案】B 【解析】双击单独打开一个 .frm 文件时，IDE 只加载该窗体，不会自动寻找并打开它曾经隶属的工程。 4、Dim b1,b2 as boolean语句显式声明变量（ ）。 A. b1和b2都为布尔型变量 B. b1是整型，b2是布尔型 C. b1是变体型，b2是布尔型 D. b1和b2都是变体型 【答案】C 【解析】在 VB 6.0 中，一条 Dim 语句里每个变量都必须单独写类型，否则默认为 Variant。 5、Cint函数返回值类型是( )。 A.整型 B.字符串 C.变体 D.双精度浮点型 【答案】A 【解析】 CInt 是 VB6 的“强制转整”函数，作用是把任意数值或能转换的字符串变成 Integer。 6、Inputbox函数的参数中，必选参数Prompt的作用是（ ）。 A.输出信息 B.定义提示信息 C.定义隐含信息 D.定义输入的位置 【答案】B 【解析】InputBox 的语法：InputBox(Prompt [, Title] [, Default] [, Xpos] [, Ypos] …)，其中Prompt 是惟一必选参数，类型为字符串，用来显示在输入框中间的提示文字，告诉用户应该输入什么内容。 7、在VB中，Int(198.555*100+0.5)/100的值为（ ） A.198 B.199.6 C.198.56 D.200 【答案】C 【解析】198.555 × 100 = 19855.5；19855.5 + 0.5 = 19856；Int(19856) = 19856（截断小数）；19856 / 100 = 198.56 8、下列关于变体数据类型的叙述中正确的是（ ）。 A.变体是一种没有类型的数据 B.给变体变量赋某一种类型数值后，就不能再赋给另一种类型数值 C.一个变量没有定义就赋值，该变量即为变体类型 D.变体的空值就表示该变体值为0 【答案】C 【解析】在 VB 6.0 中，变量未经声明就直接使用，默认被隐式声明为 Variant，即变体类型。 9、下面语句定义的数组元素个数中（ ） Dim a(-3 To 4, 3 To 6) A.18 B.28 C.21 D.32 【答案】D 【解析】二维数组总元素数 = 第一维元素数 × 第二维元素数。 10、下列有关控件数组与一般控件的区别的叙述中，最合理的是( ) A.控件数组可以由多个不同类型的控件组成,一般控件只有一个控件 B.控件数组的Index为0,一般控件的Index为空 C.控件数组的Index为1,一般控件的Index为0 D.控件数组的建立通过Dim语句声明,一般控件不必声明 【答案】B 【解析】控件数组的第一个元素Index默认是0（后续依次为 1、2、3...），而普通控件没有Index属性，其Index值为空（Null）。 11、下列程序的执行结果为（ ）。 Dim intsum As Integer Dim I As Integer intsum=0 For I=20.2 To 5 Step -4.7 intsum=intsum +I Next I Print intsum A.150 B.200 C.50 D.0 【答案】C 【解析】循环变量 I 从 20.2 开始，每次减去 4.7，直到小于 5 为止。intsum 是 Integer 类型，每次加法时会自动四舍五入。 12、要使Print 方法在Form_Load事件中起作用，要对窗体的( )属性进行设置。 A. BackColor B. ForeColor C. AutoRedraw D. Caption 【答案】C 【解析】AutoRedraw:该属性是窗体的 “自动重绘” 开关，默认值为 False。 13、当文本框的ScrollBars 属性设置了非零值，却没有效果，原因为( ) A.文本框中没有内容 B.文本框的MultiLine属性为False C.文本框的MultiLine属性为True D.文本框的Locked属性为True 【答案】B 【解析】MultiLine=False（默认值）：文本框为单行模式，只能输入一行文字，无需滚动条，因此无论ScrollBars设为 1（水平）、2（垂直）还是 3（水平 + 垂直），都不会显示滚动条。 14、若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是( )。 A.用鼠标右键单击此按钮 B.按键盘上的Esc键 C.按键盘上的回车键 D.用鼠标右键双击此按钮 【答案】C 【解析】当命令按钮的Default属性值为True时，程序运行，按回车键和单击该命今按钮一样都会触发按钮的Click事件。 15、假如列表框有4个数据项,那么把数据项”china”添加到列表框的最后,应使用( )语句。 A.List1.Additem 3,“china” B.List1.Additem “china”,List1.listcount-1 C.List1.Additem “china”,3 D.List1.Additem “china”,List1.listcount 【答案】D 【解析】列表框索引从 0 开始，ListCount是数据项总数，“添加到最后” 的索引为ListCount。 16、在VB中，为了把焦点移到某个指定的控件,所使用指定的控件的( )方法. A. Visible B. Refresh C. SetFocus D. GetFocus 【答案】C 【解析】SetFocus是专门用于将焦点设置到指定控件的方法，语法为：控件名.SetFocus。 17、在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句，单击该窗体，其中（ ）一定可以将Hello显示在当前窗体上。 A．Form.Print "Hello " B．Me.Print "Hello " C．Debug.Print " Hello " D．Form2.Print "Hello " 【答案】B 【解析】Form2：特指名为Form2的窗体，而非当前窗体；Debug：指代 VB 的立即窗口； Me关键字：在窗体模块中，Me永远指代当前窗体实例； Form：是 VB 的窗体基类名称，不是具体的当前窗体实例。 18、如有以下程序代码： Option Base 1 Private Sub Command1_Click(index As Integer) Dim arr1(12) As Integer, arr2(3) As Integer Dim sum As Integer sum = 2 For i = 1 To 12 arr1(i) = i Next i For i = 1 To 3 arr2(i) = arr1(i * i) Next i For i = 1 To 3 sum = sum + arr2(i) Next i Print sum End Sub 运行程序后，在窗体上输出的内容为（ ） A.16 B.24 C.32 D.36 【答案】A 【解析】Option Base 1 表示数组下标从1开始，初始 sum=2；加 arr2(1)=1 → sum=2+1=3； 加 arr2(2)=4 → sum=3+4=7；加 arr2(3)=9 → sum=7+9=16。 19、下面语句中，可以在窗体上绘制正方形的语句是（ ）。 ①Shape1.Shape=1 ②Line(500, 1500)-(1200, 2000) ③Shape1.Shape=0 ④Line(500,1500)-(1000,2000), ,B A．③② B．①② C．③④ D．①④ 【答案】D 【解析】Shape 控件：通过设置Shape属性来显示不同几何图形，属性值对应关系：0：矩形（Rectangle）1：正方形（Square）Line 方法：语法为 Line (x1,y1)-(x2,y2), [颜色], [B/F]，其中：B：表示绘制以(x1,y1)和(x2,y2)为对角点的矩形；要绘制正方形，需保证矩形的宽和高相等。 20、以下有关Line划线方法的说明，错误的是（ ）。 A．Line方法既可用于单个划线，也可用于连续划线 B．Line方法中的Step选项用于指定由CurrentX、CurrentY属性决定的图形坐标位置 C．Line方法划线的宽度由DrawWidth属性决定 D．当使用F选项时，Line方法可用于绘制矩形 【答案】D 【解析】Line 方法既可用于单个划线，也可用于连续划线，Line 方法划线的宽度由 DrawWidth 属性决定。 21、下面程序运行结果是( ) Public sub proc(a%( )) Static I% Do A(i)=a(i)+a(I+1) I=I+1 Loop while I<2 End sub Private sub command1_click( ) Dim m%,I%,x%(10) For I=0 to 4 : x(i)=I+1 : next I For I=1 to 2 : call proc(x) : next I For I=0 to 4 : print x(i); : next I End sub A.3 4 7 5 6 B.3 5 7 4 5 C.2 3 4 4 5 D.4 5 6 7 8 【答案】B 【解析】数组初始化：x=[1,2,3,4,5]；第一次调用proc：I=0→1→2，修改 x (0)=3、x (1)=5；第二次调用proc：I=2（静态保留），执行循环体修改 x (2)=7，I=3 后退出；最终数组：[3,5,7,4,5]。 22、编写如下程序代码： Private Sub Command1_Click() Call sub_pro End Sub Sub sub_pro( ) Static sum As Integer Dim i As Integer For i = 1 To 10 Step 2 sum = sum + i Next Print sum End Sub 程序运行后，第三次单击命令按钮Command1时，输出结果为（ ）。 A.25 B. 75 C. 55 D. 165 【答案】B 【解析】用Static定义的变量，过程在被多次被调用时，其值可以继续保留。 23、用以下方式声明的变量，（ ）可以在整个程序中通用。 A.在窗体模块用Dim进行声明 B.在窗体模块用Public进行声明 C.在窗体模块用Private进行声明 D.在窗体模块用Static进行声明 【答案】B 【解析】Public是全局级（整个程序），在所有窗体、模块都能访问。 24、以下关于过程及过程参数的描述中，错误的是( )。 A.过程的参数可以是控件名称 B.用数组作为过程的参数时，使用的是“传地址”方式 C.只有函数过程能够将过程中处理的信息传回到调用的程序中 D.窗体可以作为过程的参数 【答案】C 【解析】子过程（Sub）可通过传地址参数将处理信息传回调用程序，并非 “只有函数过程能传回”。 25、下面几个关键字均表示文件的打开方式，只能进行读不能写的是（ ）。 A. Input B. Output C. Random D. Append 【答案】A 【解析】以只读方式打开顺序文件，若文件不存在则报错，不能写入。 二、填空题(本大题共10小题，每小题2分，共20分) 1、VB是一种面向________的程序设计语言，采用了________编程机制。 【答案】对象 ； 事件驱动 【解析】VB 的核心特性：面向对象（窗体 / 控件为对象）、事件驱动（用户操作触发代码执行）。 2、在VB中，将数学表达式x2+改写成VB表达式为________。 【答案】x^2+3*x*y/(2-y) 【解析】VB 中用^表示幂运算（而非*或**），如立方写x^3，VB 中不允许省略乘号，必须显式写*，否则会被识别为字符串。 3、以下语句的执行结果是________。 I = Format(5459.4, "##,##0.00") Print I 【答案】5459.40 【解析】：千位分隔符，每 3 位数字加一个逗号； #：占位符，有数字则显示，无则不显示； 0：占位符，有数字显示数字，无则补 0。 4、在VB中，表达式”ABC”>”Abc”的值为______。 【答案】False 【解析】在 VB 里，字符串比较默认按 二进制（Binary） 模式，即逐个字符的 ASCII 码值比较，区分大小写。 5、文本框 Text1 的内容被改变时触发的事件是______ ，按下单个字符键时触发的事件是______。 【答案】Change ；KeyPress 【解析】只要文本框的 .Text 属性发生任何变动（手工输入、程序赋值、删除等），VB 就会触发 Change 事件。当用户按下并释放一个可打印字符键时，控件会先收到 KeyPress 事件。 6、当用户单击滚动条空白处时，滑块的增量值由______属性决定。 【答案】largechange 【解析】LargeChange：指定用户单击滚动条空白区域（滑块与箭头之间的部分）时，滑块一次移动的单位量。该值也影响键盘 PageUp/PageDown 时的移动距离。 7、清空动态数组 arr 并释放内存，语句：______ ；清空静态数组仅重置元素为默认值，仍占用内存。 【答案】Erase arr 【解析】Erase 对动态数组释放内存，对静态数组重置元素。 8、在VB中，设置绘图线条颜色，需改变______属性；填充颜色由______属性决定。 【答案】ForeColor ；FillColor 【解析】ForeColor决定后续绘图方法（Line、Circle、PSet）所画线条或点的颜色。FillColor仅当 FillStyle = 0（实心） 时才生效，用来填充由 Circle（实心圆/扇形）或 Line … , BF 画出的封闭区域内部颜色。 9、在VB中，容器的实际可用高度和宽度由______和______属性确定。 【答案】ScaleHeight ；ScaleWidth 【解析】ScaleHeight：容器的实际可用高度，指容器内部可绘图 / 放置控件的区域高度；ScaleWidth：容器的实际可用宽度，同理，仅包含内部可操作区域的宽度。 10、______函数判断一个表示文件指针是否到了文件结束。______函数返回文件的字节数。 【答案】EOF( )；LOF（ ） 【解析】EOF：当文件指针到达末尾时返回 True，否则返回 False。LOF： LOF(文件号) 返回值：已打开文件的总字节数。 三、程序填空题(本大题共3小题，每题10分，共30分) 1、程序功能：利用随机函数生成一个4×4的矩阵,范围是[20,50]内的整数,输出每行中的最大值和下标。 Dim a%(3, 3), i%, j%, imax% Private Sub Command1_Click() For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 31 + 20) Picture1.Print a(i, j); ""; Next j Picture1.Print Next i imax = 0 For i = 0 To 3 For j = 0 To 3 If ___(1)________Then imax = j End If Next j Picture1.Print "第"; i + 1; "行"; "最大值为"; ___(2)________; "下标为"; "("; i; imax; ")" Next i End Sub 【答案】 （1）a(i, imax) < a(i, j) （2）a(i, imax) 【解析】若当前元素 a(i, j) 大于“当前最大” a(i, imax) ，就用 imax = j 记录新的最大列号。扫描完一行后， imax 即为最大值所在列号，最大值本身即为 a(i, imax) 。 2、程序功能：从文本框1中输入字符，统计有多少个元音字母，有多少其他字母，直到按了回车键结束并显示结果。大小写不区分。 Dim County%, countc% Private Sub Text1_KeyPress(KeyAscii As Integer) Dim c$ c = ___(1)________ If "A" <= c And c <= "Z" Then Select Case c Case "A", "E", "I", "O", "U" County = County + 1 Case Else countc = countc + 1 End Select End If If ___(2)________ Then Print "元音字母有"; County; " 个; " Print "其他字母有"; countc; "个; " End If End Sub 【答案】 （1） UCase(Chr(KeyAscii)) （2） KeyAscii = 13 【解析】事件参数 KeyAscii 是按键的 ASCII 码，需要转成字符串才能做字母比较。文本框中按回车，会发送 ASCII 码 13（即 vbCr）。检测到回车就意味着输入结束 3、 程序功能：子过程CountN用来统计字符串中各数字字符（0-9）出现的个数；主调程序对在textbox1框输入的文本，每次单击“统计”按钮，调用该子过程，在List1框显示结果。 Private Sub Command1_Click() Dim n(9) As Integer, i% Call CountN(n(), Text1.Text) List1.Clear For i = 0 To 9 If n(i) Then ___(1)________ "字符" & i & "出现的次数为" & n(i) Next End Sub Sub CountN(ByRef num%(), ByVal s As String) Dim c As String * 1, i%, m%, j% For i = 0 To 9 num(i) = 0 Next i m = Len(s) For i = 1 To m ___(2)________ If c >= "0" And c <= "9" Then j = Val(c) num(j) = num(j) + 1 End If Next i End Sub 【答案】 （1） List1.AddItem （2） c = Mid(s, i, 1) 【解析】主过程已经把统计结果放在数组 n(0)…n(9) 中，需要逐行写入 List1，子过程要遍历字符串s的每个字符。用Mid(字符串, 起始位, 长度) 截取单个字符，长度给 1 即可。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 《Visual Basic程序设计（第6版）》 期末复习卷（五） 时间：90分钟 总分：100分 班级 姓名 学号 成绩 一、选择题(本大题共25小题，每小题2分，共50分) 1、VB 6.0集成开发环境中不能完成的功能是（ ）。 A.输入编辑源程序 B.编译生成可招待程序 C.调试运行程序 D.自动生成查找并改正程序中的错误 2、在VB中，通过代码在运行时设置属性的语法格式为（ ）。 A.对象名＝属性 .新值 B.对象名.属性＝新值 C.对象名.新值=属性 .新值 D.对象名.属性=属性 .新值 3、以下叙述错误的是（ ）。 A.打开一个工程文件时，系统自动装入与该工程有关的窗体文件 B.打开一个窗体文件时，系统自动装入与该窗体有关的工程文件 C.保存VB应用程序时，应分别保存窗体文件和工程文件 D.事件可以由用户激发,也可以由系统激发 4、Dim b1,b2 as boolean语句显式声明变量（ ）。 A. b1和b2都为布尔型变量 B. b1是整型，b2是布尔型 C. b1是变体型，b2是布尔型 D. b1和b2都是变体型 5、Cint函数返回值类型是( )。 A.整型 B.字符串 C.变体 D.双精度浮点型 6、Inputbox函数的参数中，必选参数Prompt的作用是（ ）。 A.输出信息 B.定义提示信息 C.定义隐含信息 D.定义输入的位置 7、在VB中，Int(198.555*100+0.5)/100的值为（ ） A.198 B.199.6 C.198.56 D.200 8、下列关于变体数据类型的叙述中正确的是（ ）。 A.变体是一种没有类型的数据 B.给变体变量赋某一种类型数值后，就不能再赋给另一种类型数值 C.一个变量没有定义就赋值，该变量即为变体类型 D.变体的空值就表示该变体值为0 9、下面语句定义的数组元素个数中（ ） Dim a(-3 To 4, 3 To 6) A.18 B.28 C.21 D.32 10、下列有关控件数组与一般控件的区别的叙述中，最合理的是( ) A.控件数组可以由多个不同类型的控件组成,一般控件只有一个控件 B.控件数组的Index为0,一般控件的Index为空 C.控件数组的Index为1,一般控件的Index为0 D.控件数组的建立通过Dim语句声明,一般控件不必声明 11、下列程序的执行结果为（ ）。 Dim intsum As Integer Dim I As Integer intsum=0 For I=20.2 To 5 Step -4.7 intsum=intsum +I Next I Print intsum A.150 B.200 C.50 D.0 12、要使Print 方法在Form_Load事件中起作用，要对窗体的( )属性进行设置。 A. BackColor B. ForeColor C. AutoRedraw D. Caption 13、当文本框的ScrollBars 属性设置了非零值，却没有效果，原因为( ) A.文本框中没有内容 B.文本框的MultiLine属性为False C.文本框的MultiLine属性为True D.文本框的Locked属性为True 14、若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是( )。 A.用鼠标右键单击此按钮 B.按键盘上的Esc键 C.按键盘上的回车键 D.用鼠标右键双击此按钮 15、假如列表框有4个数据项,那么把数据项”china”添加到列表框的最后,应使用( )语句。 A.List1.Additem 3,“china” B.List1.Additem “china”,List1.listcount-1 C.List1.Additem “china”,3 D.List1.Additem “china”,List1.listcount 16、在VB中，为了把焦点移到某个指定的控件,所使用指定的控件的( )方法. A. Visible B. Refresh C. SetFocus D. GetFocus 17、在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句，单击该窗体，其中（ ）一定可以将Hello显示在当前窗体上。 A．Form.Print "Hello " B．Me.Print "Hello " C．Debug.Print " Hello " D．Form2.Print "Hello " 18、如有以下程序代码： Option Base 1 Private Sub Command1_Click(index As Integer) Dim arr1(12) As Integer, arr2(3) As Integer Dim sum As Integer sum = 2 For i = 1 To 12 arr1(i) = i Next i For i = 1 To 3 arr2(i) = arr1(i * i) Next i For i = 1 To 3 sum = sum + arr2(i) Next i Print sum End Sub 运行程序后，在窗体上输出的内容为（ ） A.16 B.24 C.32 D.36 19、下面语句中，可以在窗体上绘制正方形的语句是（ ）。 ①Shape1.Shape=1 ②Line(500, 1500)-(1200, 2000) ③Shape1.Shape=0 ④Line(500,1500)-(1000,2000), ,B A．③② B．①② C．③④ D．①④ 20、以下有关Line划线方法的说明，错误的是（ ）。 A．Line方法既可用于单个划线，也可用于连续划线 B．Line方法中的Step选项用于指定由CurrentX、CurrentY属性决定的图形坐标位置 C．Line方法划线的宽度由DrawWidth属性决定 D．当使用F选项时，Line方法可用于绘制矩形 21、下面程序运行结果是( ) Public sub proc(a%( )) Static I% Do A(i)=a(i)+a(I+1) I=I+1 Loop while I<2 End sub Private sub command1_click( ) Dim m%,I%,x%(10) For I=0 to 4 : x(i)=I+1 : next I For I=1 to 2 : call proc(x) : next I For I=0 to 4 : print x(i); : next I End sub A.3 4 7 5 6 B.3 5 7 4 5 C.2 3 4 4 5 D.4 5 6 7 8 22、编写如下程序代码： Private Sub Command1_Click() Call sub_pro End Sub Sub sub_pro( ) Static sum As Integer Dim i As Integer For i = 1 To 10 Step 2 sum = sum + i Next Print sum End Sub 程序运行后，第三次单击命令按钮Command1时，输出结果为（ ）。 A.25 B. 75 C. 55 D. 165 23、用以下方式声明的变量，（ ）可以在整个程序中通用。 A.在窗体模块用Dim进行声明 B.在窗体模块用Public进行声明 C.在窗体模块用Private进行声明 D.在窗体模块用Static进行声明 24、以下关于过程及过程参数的描述中，错误的是( )。 A.过程的参数可以是控件名称 B.用数组作为过程的参数时，使用的是“传地址”方式 C.只有函数过程能够将过程中处理的信息传回到调用的程序中 D.窗体可以作为过程的参数 25、下面几个关键字均表示文件的打开方式，只能进行读不能写的是（ ）。 A. Input B. Output C. Random D. Append 二、填空题(本大题共10小题，每小题2分，共20分) 1、VB是一种面向________的程序设计语言，采用了________编程机制。 2、在VB中，将数学表达式x2+改写成VB表达式为________。 3、以下语句的执行结果是________。 I = Format(5459.4, "##,##0.00") Print I 4、在VB中，表达式”ABC”>”Abc”的值为______。 5、文本框 Text1 的内容被改变时触发的事件是______ ，按下单个字符键时触发的事件是______。 6、当用户单击滚动条空白处时，滑块的增量值由______属性决定。 7、清空动态数组 arr 并释放内存，语句：______ ；清空静态数组仅重置元素为默认值，仍占用内存。 8、在VB中，设置绘图线条颜色，需改变______属性；填充颜色由______属性决定。 9、在VB中，容器的实际可用高度和宽度由______和______属性确定。 10、______函数判断一个表示文件指针是否到了文件结束。______函数返回文件的字节数。 三、程序填空题(本大题共3小题，每题10分，共30分) 1、程序功能：利用随机函数生成一个4×4的矩阵,范围是[20,50]内的整数,输出每行中的最大值和下标。 Dim a%(3, 3), i%, j%, imax% Private Sub Command1_Click() For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 31 + 20) Picture1.Print a(i, j); ""; Next j Picture1.Print Next i imax = 0 For i = 0 To 3 For j = 0 To 3 If ___(1)________Then imax = j End If Next j Picture1.Print "第"; i + 1; "行"; "最大值为"; ___(2)________; "下标为"; "("; i; imax; ")" Next i End Sub 2、程序功能：从文本框1中输入字符，统计有多少个元音字母，有多少其他字母，直到按了回车键结束并显示结果。大小写不区分。 Dim County%, countc% Private Sub Text1_KeyPress(KeyAscii As Integer) Dim c$ c = ___(1)________ If "A" <= c And c <= "Z" Then Select Case c Case "A", "E", "I", "O", "U" County = County + 1 Case Else countc = countc + 1 End Select End If If ___(2)________ Then Print "元音字母有"; County; " 个; " Print "其他字母有"; countc; "个; " End If End Sub 3、 程序功能：子过程CountN用来统计字符串中各数字字符（0-9）出现的个数；主调程序对在textbox1框输入的文本，每次单击“统计”按钮，调用该子过程，在List1框显示结果。 Private Sub Command1_Click() Dim n(9) As Integer, i% Call CountN(n(), Text1.Text) List1.Clear For i = 0 To 9 If n(i) Then ___(1)________ "字符" & i & "出现的次数为" & n(i) Next End Sub Sub CountN(ByRef num%(), ByVal s As String) Dim c As String * 1, i%, m%, j% For i = 0 To 9 num(i) = 0 Next i m = Len(s) For i = 1 To m ___(2)________ If c >= "0" And c <= "9" Then j = Val(c) num(j) = num(j) + 1 End If Next i End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $