2. 计算机
  3. 在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件。其功能是：单击“显示”命令按钮，则把考生目录下的in5．txt文件中的所有字符放入Text1(可多行显示)，如图所示；如果单击“统计”命令按钮，则统计文本框中字母A，B，C，D各自出现的

在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件。其功能是：单击“显示”命令按钮，则把考生目录下的in5．txt文件中的所有字符放入Text1(可多行显示)，如图所示；如果单击“统计”命令按钮，则统计文本框中字母A，B，C，D各自出现的

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

    要求：
    统计每个字母出现的次数时，不区分大小写。
    注意：
不能修改已经给出的程序部分；在结束程序运行之前，必须单击“保存”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim an As Integer Dim bn As Integer Dim cn As Integer Dim dn As Integer Private Sub Command1_Click() Open App.Path & "\in5.txt" For Input As #1 Do While Not EOF(1) Input #1, a$ s = s & a$ Loop Close 1 Text1.Text = s End Sub Private Sub Command2_Click() ’需要考生编写的内容 End Sub Private Sub Command3_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, an, bn, cn, dn Close 1 End Sub 程序结束 参考答案 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 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/2wHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)