应用题
1. 在窗体上画1个文本框，名称为Text1(multiline属性为True)，然后再添加三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图所示。程序的功能是：单击“读数”按钮，则把考生文件夹下的in5.txt文件中的所有英文字符放入Text1(MutiLine属性为True)中；单击“统计”按钮，找出并统计英文字母i，j，k，1，m，n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母i到n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit5.vbp，窗体文件名保存为sjt5.frm。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit5.vbp，窗体文件名保存为sjt5.frm。
【正确答案】[操作步骤]
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表1和表2。
步骤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 AsInteger
Fori=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 &"字母1或L出现的次数为" & Format(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：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表1和表2。
| 表1 | ||||
| 控件 | 命令按钮1 | 命令按钮2 | ||
| 属性 | Name | Caption | Name | Caption |
| 设置值 | Command1 | 读数 | Command2 | 统计 |
| 表2 | ||||
| 控件 | 命令按钮3 | 文本框 | ||
| 属性 | Name | Caption | Name | MultiLine |
| 设置值 | Command3 | 存盘 | Test1 | Ture |
程序提供代码
程序结束
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 AsInteger
Fori=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 &"字母1或L出现的次数为" & Format(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：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】 Format()函数用于按指定格式返回字符串。
在“统计”按钮的事件过程中，可用For循环语句和Mid()函数将文本框中的字符逐一取出，通过Select Case语句分别判断其题为英文字母i，j，k，l，m或n(不区分大小写)，并分别将结果统计到6个变量中。最后在文本框中按指定的格式显示统计结果，为使每个结果各占一行，可在每个结果后面加一个回车换行符vbCrLf。
在“统计”按钮的事件过程中，可用For循环语句和Mid()函数将文本框中的字符逐一取出，通过Select Case语句分别判断其题为英文字母i，j，k，l，m或n(不区分大小写)，并分别将结果统计到6个变量中。最后在文本框中按指定的格式显示统计结果，为使每个结果各占一行，可在每个结果后面加一个回车换行符vbCrLf。