在窗体上画一个文本框，名称为Text1(可显示多行)，然后再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图3－136所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5

admin2019-05-14 26

问题在窗体上画一个文本框，名称为Text1(可显示多行)，然后再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图3－136所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5．txt文件中的所有英文字符放入Text1(可多行显示)；单击“统计”按钮，找出并统计英文字母i、1、k、1、m、n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母i～n出现次数的统计结果依次存到考生目录下的顺序文件out5．txt中。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt5．vbp，窗体文件名为sjt5．frm。

选项

答案【操作步骤】步骤1：新建一个“标准EXE”工程，如表4－80所示，在窗体中画出控件并设置其相关属性。 [*] 步骤2：打开代码编辑窗口，编写相应事件过程。参考代码： Option Base 1 Dim sum(6) As Integer Private Sub Command1_Click( ) pen App．Path ＆"＼in5．txt" For Input At ＃1 Text1．Text＝Input(LOF(1)，＃1) CioSe ＃1 End Sub Private Sub Command2_Click( ) For i＝1 To 6 sum(i)＝0 Next i If Len(Text1．Text)＝0 Then MsgBox "请先使用“读数”功能!" Else For i＝1 To Len(Text1．Text) C＝LCase(Mid(Text1．Text，i，1)) Select Case c Case "i" sum(1)＝sum(1)＋1 Case "j" sum(2)＝sum(2) ＋1 Case "k" sum(3)＝sum(3)＋1 CaSe "1" sum(4)＝sum(4)＋1 CaSe "m" sum(5)＝sum(5)＋1 CaSe "n" sum(6)＝sum(6)＋1 End Select Next i End If End Sub Private Sub Command3_Click( ) Open App．Path ＆"＼out5．txt"For Output As ＃1 For i＝1 To 6 Print ＝1，sum(i) Next i Close ＝1 End Sub 步骤3：按要求将文件保存至考生文件夹中。

解析

转载请注明原文地址:https://kaotiyun.com/show/uTUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类