注意：下面出现的“考生文件夹”均为%USER%

在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是：单击“显示”命令按钮，则把考生目录下的 in5.txt文件中的所有字符放入Text1（可多行显示），如图所示；如果单击“统计”命令按钮，则统计文本框中字母A、B、C、D各自出现的次数，并依次放到窗体变量an，bn，cn，dn之中（放在其他变量中将无成绩）；如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的out5.txt文件中。文件中已给出了“显示”和“保存”按钮的Click事件过程。请编写“统计”按钮的Click事件过程。

要求：

统计每个字母出现的次数时，不区分大小写。

注意：

不能修改已经给出的程序部分；在结束程序运行之前，必须单击“保存”按钮，把结果存入out5.txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。

解题思路：

启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

由于所提供的窗体程序不完整，需添加事件过程。

单击“统计”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

Private Sub Command2_Click()

n = Len(Text1)

For k = 1 To n

ch = Mid(Text1, k, 1)

If UCase(ch) = "A" Then

an = an + 1

End If

If UCase(ch) = "B" Then

bn = bn + 1

End If

If UCase(ch) = "C" Then

cn = cn + 1

End If

If UCase(ch) = "D" Then

dn = dn + 1

End If

Next k

Text1 = an & " " & bn & " " & cn & " " & dn

End Sub

参考文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.frx、sjt5.vbw、out5.txt

请把这些文件复制到c:wexam26990001中，然后打开sjt5.vbp文件并运行。