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

admin2016-01-31  37

问题 在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3-67所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5.txt文件中的所有英文字符放入Text1(可多行显示);单击“统计”按钮,找出并统计英文字母i、j、k、l、m、n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i~n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
    注意:存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。
   

选项

答案审题分析 程序设计思路:在“读数”按钮的单击事件过程中,用Open语句以Input方式打开数据文件in5.txt,并用Input()函数读出所有字符后显示在文本框中;在“统计”按钮的单击事件过程中,通过For循环用Mid函数逐一取出文本框中的字符并转换成小写,用Select Case语句对取出的字符进行检查,并用窗体数组变量sum(1)~sum(6)记录字母i、j、k、l、m、n出现的次数。 在“存盘”按钮的单击事件过程中,用Open语句以Output方式打开数据文件out5.txt,并通过For循环用Print#方法逐一将数组中的元素存入该文件。 操作步骤 步骤1:新建一个“标准EXE”工程,如表4-39所示,在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: OptiOn Base 1 Dim Sum(6)As Integer Prirate Sub Command1_C1ick() Open App.Path&"\in5.txt:"For Input As #1 Text1.Text=Input(LOF(1),#1) Close #1 End Sub Private Sub Command2_Click() For i=1 To 6 sum(i)=0 Next i If Len(Text1.Text)=0 Then NsgBox"请先使用“读数”功能!" 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:按要求将文件保存至考生文件夹中。 考点链接 多分支结构、For循环结构、顺序文件。

解析
转载请注明原文地址:https://kaotiyun.com/show/puLp777K
0

最新回复(0)