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

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

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

    要求：统计每个字母出现的次数时，不区分大小写。
    注意：不能修改已经给出的程序部分；在结束程序运行之前，必须单击“保存”按钮，把结果存入out5.txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： 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 步骤2：按要求将文件保存至考生文件夹中。 步骤3：按＜F5＞键键运行程序，先单击“显示”按钮，接着单击“统计”按钮，最后单击“保存”按钮。
解析
转载请注明原文地址:https://kaotiyun.com/show/KUUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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