2013年计算机二级考试VB上机模拟试题及答案六_第3页

　　注意：下面出现的“考生文件夹”均为%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:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.frx、sjt5.vbw、out5.txt

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