神马品牌网台式机加装ssd教程:VB新手求助！！！
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 08:27:58
运行程序时：
①单击"显示"按钮，从文件in9.txt中读取文本,并显示在文本框Text1中.
②单击"统计" 按钮，则统计Text1中字母R、T、D（不区分大小写）出现的次数，统计结果分别保存在窗体变量intR、intT、intD中，同时显示在文本框Text2中（显示格式不限）。
③单击"保存"按钮，可将intR、intT、intD中的数据保存到exam9文件夹下out9.txt文件中
高手们 帮我编一下 谢谢。。
①单击"显示"按钮，从文件in9.txt中读取文本,并显示在文本框Text1中.
②单击"统计" 按钮，则统计Text1中字母R、T、D（不区分大小写）出现的次数，统计结果分别保存在窗体变量intR、intT、intD中，同时显示在文本框Text2中（显示格式不限）。
③单击"保存"按钮，可将intR、intT、intD中的数据保存到exam9文件夹下out9.txt文件中
高手们 帮我编一下 谢谢。。
从in9.txt 读取一行显示出来
dim linetxt as string
open "c:\in9.txt" for input as #1 '打开C:\下面的in9.txt
line input #1,linetxt
me.text1.text=linetxt '读出显示到text
'-------------------------------------------------
统计这个字符
dim IntR,IntT,IntD
for i=1 to len(me.text1.text)
if mid(i,1)="R" then intr=intr+1
if mid(i,1)="T" then intt=intt+1
if mid(i,1)="D" then intd=intd+1
next
me.text2.text="R" & intr & "/T" & intt & "/D" & intd '显示到text2
'--------------------------------
保存到out9.txt
open "c:\out9.txt" for output as #1
print #1,intr
print #1,intt
print #1,intd
close #1
买个等级考试单机版(VB)
里面有各种题的解释.