杭州交通信息网赵公口移动营业厅:VB试题哪位老大能帮帮忙呀
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/05 15:05:37
新建一个名为KS的文件夹，在此文件夹中建立二个文本文件分别为in7.txt和out7.txt,在in.txt中写入：abc，然后新建个工程，在窗体上面画一个文本框，名为text1,能多行显示，再画出三个命令按钮，名称分别为C1.C2.C3，标题分别为：输入，转换，保盘。单击输入按钮刚从SK文件夹中读入in7.txt文件，放入text1中。单击转换按钮，则把text1中所有小写字母转换为大写，单击存盘按钮，则把text1中的内容存入out7.txt中
VB
VB
MKDir app.path & "KS"
open app.path & "KS\in7.txt" for output as #1
print #1,"abc"
close #1
open app.path & "KS\out7.txt" for output as #1
close #1
sub c1_click()
dim a as string,b as string
open app.path & "KS\in7.txt" for input as #1
do while not(eof(1))
line input #1,a
b=b & a & chr(13) & chr(10)
loop
close #1
text1.text=b
end sub
sub c2_click()
dim a as string
for i=1 to len(text1.text)
a=a & UCase(mid(text1.text,i,1)
next i
text1.text=a
end sub
sub c3_click()
open app.path & "KS\out.txt"
print #1,text1.text
close #1
end sub
vb还是vb.net