在窗体上画1个文本框，名称为Text1(multiline属性为True)，然后再添加三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图所示。程序的功能是：单击“读数”按钮，则把考生文件夹下的in5.txt文件中的所有英文字符放入Text1(MutiLine属性为True)中；单击“统计”按钮，找出并统计英文字母i，j，k，l，m，n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母i到n出现次数的统计结果依次存到考生目录下的顺序文件out5. txt中。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt5. vbp，窗体文件名保存为sjt5. frm。
参考答案：[解题思路] Format()函数用于按指定格式返回字符串。
在“统计”按钮的事件过程中，可用For循环语句和Mid()函数将文本框中的字符逐一取出，通过Select Case语句分别判断其题为英文字母i，j，k，l，m或n(不区分大小写)，并分别将结果统计到F个变量中。最后在文本框中按指定的格式显示统计结果，为使每个结果各占一行，可在每个结果后面加一个回车换行符vbCrLf。
[操作步骤]
步骤A：建立界面，并设置控件的属性。程序中用到的控件及属性见表A和表B。
表A 控件 命令按钮A 命令按钮B 属性 Name Caption Name Caption 设置值 CommandA 读数 CommandB 统计
步骤B：分析并编写程序代码。 表B 控件 命令按钮C 文本框 属性 Name Caption Name MultiLine 设置值 CommandC 存盘 TextA Ture
程序提供代码
程序结束
参考答案：
Option Explicit
Private Sub CommandA_Click()
Dim a As String
Dim s As String
Open App. Path & " \inE. txt" For Input As #A
Do While Not EOF(A)
a =Input(A, #A)
s =s & a
Loop
Close #A
TextA = s
End Sub
Private Sub CommandB_Click()
Dim str As String
Dim nA As Integer
Dim nB As Integer
Dim nC As Integer
Dim nD As Integer
Dim nE As Integer
Dim nF As Integer
Dim i As Integer
For i = A To Len(TextA)
str = Mid(TextA, i, A)
Select Case str
Case "i", "I"
nA = nA + A
Case "j" , "J"
nB = nB + A
Case "k", "K"
nC = nC + A
Case "l", "L"
nD = nD + A
Case "m", "M"
nE = nE + A
Case "n", "N"
nF = nF + A
End Select
Next
TextA="字母i或I出现的次数为" & Format(nA, "00") & vbCrLf
TextA=TextA & "字母j或J出现的次数为" & Format(nB, "00") & vbCrLf
TextA=TextA & "字母k或K出现的次数为" & Format(nC, "00") & vbCrLf
TextA=TextA & "字母l或L出现的次数为" & Fonnat(nD, "00") & vbCrLf
TextA=TextA & "字母m或M出现的次数为" & Format(nE, "00") & vbCrLf
TextA=TextA & "字母n或N出现的次数为" & Format(nF, "00")
End Sub
Private Sub CommandC_Click()
Open "outE. txt" For" Output As #A
Print #A, TextA. Text
Close A
End Sub
步骤C：调试并运行程序，关闭程序后按题目要求存盘。