2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，相应的窗体文件为sjt5．frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3，标题分别是“显示”、“统计”和“保存”。运行程序时，单击“显示”按钮，从文件in5．txt中

在考生文件夹下有一个工程文件sjt5．vbp，相应的窗体文件为sjt5．frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3，标题分别是“显示”、“统计”和“保存”。运行程序时，单击“显示”按钮，从文件in5．txt中

admin2016-01-31  55
问题 在考生文件夹下有一个工程文件sjt5．vbp，相应的窗体文件为sjt5．frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3，标题分别是“显示”、“统计”和“保存”。运行程序时，单击“显示”按钮，从文件in5．txt中读取文本，并显示在文本框Text1中，如图3-10所示。单击“统计”按钮，则统计Text1中字母R、T、D(不区分大小写)出现的次数，统计结果分别保存在窗体变量intR、intT、intD中，同时显示在文本框Text2中(显示格式不限)。单击“保存”按钮，可将intR、intT、intD中的数据保存到考生文件夹下out5．txt文件中。
    要求：
    1)去掉“显示”按钮事件过程中的注释，把程序中的?改为能实现上述要求的正确内容。
    2)编写统计字母R、T、D出现次数的事件过程。
    3)不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用原文件名存盘。
   
选项
答案审题分析 根据题目源程序，要使单击“显示”按钮时，从文件in5．txt中读取文本，并显示在文本框Text1中，需要首先以Input方式打开文件，然后使用Line Input#语句将文件号指明的文件中的内容读入到指定的字符串变量中，然后将该变量赋给文本框的Text属性。 要在单击“统计”按钮时，统计字母“R”、“T”、“D”的出现次数，可在“统计”按钮的单击事件过程中，通过For循环用Mid函数逐一取出str1中的每个字符进行判断，若其为对应字符，则对应的计数器增加1。循环结束时，三个计数器变量中的值就是该字符出现的次数。 操作步骤 步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“′”，将问号“?”改为正确的内容。 参考代码： Line Input #1， str1 Text1．Text=str1 步骤2：按指定位置编写“统计”按钮的单击事件过程。 参考代码： PriVate Sub Command2_Click() Dim i As Inteaer intR=0：intT=0：intD=0 Fori=1 To Len(str1) If Mid(str1， i， 1)= "R" Or Mid (str1， i， 1)= "r" Then intR=intR+1 End If If Mid(str1， i， 1)= "T" Or Mid (str1， i， 1)="t" Then intT=intT+1 End If If Mid(str1， i， 1)="D" Or Mid (str1， i， 1)="d" Then intD=intD+1 End If Next Text2．Text=intR＆" "＆ intT＆" "＆ int D End Sub 步骤3：按键运行程序，先单击“显示”按钮，接着单击“统计”按钮，最后单击“保存”按钮。 步骤4：按要求将文件保存至考生文件夹中。 考点链接 顺序文件、常用内部函数。
解析
转载请注明原文地址:https://kaotiyun.com/show/7wLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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