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

admin2019-05-14  34

问题 在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.tim。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计”和“保存”。运行程序时,单击“显示”按钮,从文件。in5.txt中读取文本,并显示在文本框Text1中,如图3-92所示。单击“统计”按钮,则统计Text1中字母R、T、D(不区分大小写)出现的次数,统计结果分别保存在窗体变量intR、intT、intD中,同时显示在文本框Text2中(显示格式不限)。单击“保存”按钮,可将intR、intT、intD中的数据保存到考生文件夹下out5.txt文件中。

    要求:
    1)去掉“显示”按钮事件过程中的注释,把程序中的?改为能实现上述要求的正确内容。
    2)编写统计字母R、T、D出现次数的事件过程。
    3)不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用原文件名存盘。

选项

答案【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Line Input #1,str1 Text1.Text=str1 步骤2:按指定位置编写“统计”按钮的单击事件过程。参考代码: Private Sub Command2_Click( ) Dim i As Integer intR=0:intT=0:intD=0 For i=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(strl,i,1)="D"Or Mid (Str1,i,1)="d"Then intD=intD+1 End If Next Text2.Text=intR&" "&intT&" _"&intD End Sub 步骤3:按<F5>键运行程序,先单击“显示”按钮,接着单击“统计”按钮,最后单击“保存”按钮。 步骤4:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/THUp777K
0

最新回复(0)