【正确答案】[解题思路] Format()函数用于按指定格式返回字符串。
在“统计”按钮的事件过程中，可用For循环语句和Mid()函数将文本框中的字符逐一取出，通过Select Case语句分别判断其题为英文字母i，j，k，l，m或n(不区分大小写)，并分别将结果统计到6个变量中。最后在文本框中按指定的格式显示统计结果，为使每个结果各占一行，可在每个结果后面加一个回车换行符vbCrLf。
[操作步骤]
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表1和表2。

表1
控件	命令按钮1		命令按钮2
属性	Name	Caption	Name	Caption
设置值	Command1	读数	Command2	统计

表2
控件	命令按钮3		文本框
属性	Name	Caption	Name	MultiLine
设置值	Command3	存盘	Text1	Ture

步骤2：分析并编写程序代码。
程序提供代码
程序结束
参考答案
Option Explicit
Private Sub Command1_Click()
Dim a As String
Dim 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 As Integer
For i = 1 To Len(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 "l", "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出现的次数为" & Format(n3, "00") & vbCrLf
Text1=Text1 & "字母l或L出现的次数为" & Fonnat(n4, "00") & vbCrLf
Text1=Text1 & "字母m或M出现的次数为" & Format(n5, "00") & vbCrLf
Text1=Text1 & "字母n或N出现的次数为" & Format(n6, "00")
End Sub
Private Sub Command3_Click()
Open "out5. txt" For" Output As #1
Print #1, Text1. Text
Close 1
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。