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

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

admin2010-09-02  40
问题 在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件。其功能是：单击“显示”命令按钮，则把考生目录下的in5．txt文件中的所有字符放入Textl(可多行显示)，如图1-108所示；如果单击“统计”命令按钮，则统计文本框中字母A、B、C、D各自出现的次数，并依次放到窗体变量an、bn、cn、血之中(放在其他变量中将无成绩)；如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的out5．txt文件中。文件中已给出了“显示”和“保存”按钮的Click事件过程。请编写“统计”按钮Click事件过程。要求：统计每个字母出现的次数时，不区分大小写。
注意：不能修改已经给出的程序部分；在结束程序运行之前，必须单击“保存”按钮，把结果存入out3．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5．vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： n=Len(Textl) For k=l To n ch=Mid(Textl，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工f If UCase(ch)="D"Then dn=dn+1 End If Next k Textl=an&""&bn&""&cn&""&dn 步骤2：按要求将文件保存至考生文件夹中。 步骤3：按键键运行程序，先单击“显示”按钮，接着单击“统计”按钮，最后单击“保存”按钮。
解析 “统计”按钮的单击事件过程设计思路：利用For循环语句和Mid()函数将文本框中的字符逐一取出，通过Select Case语句分别判断其是否为字母A、B、C或D，并分别统计到对应的四个窗体变量中。
转载请注明原文地址:https://www.kaotiyun.com/show/fFmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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