实验十二 文件

1、实验十二 文件实验目的：1、 掌握顺序文件、随机文件和二进制文件的特点和使用。2、 掌握文件的打开、关闭和读写操作。3、 学会文件在应用程序的使用。实验内容：1、 初始窗体上有四个命令按钮两个文本框（如下图）。 要求：1）建立文件名为“t1.txt”的顺序文件，内容来自文本框text1。要求：每按一次回车键则将文本框text1的内容写入文件，并清除文本框text1的内容，直到文本框text1内输入“end”字符串(不区分大小写)，关闭文件。2）单击“复制文件”按钮，则把“t1.txt”的顺序文件的内容全部复制到新文件“t2.txt”中，并给出相应提示。（只能使用一个变量，不能使用控件。）（如下

2、图）3）单击“合并文件”按钮，则将“t2.txt”内容合并“t1.txt”末尾，给出相应提示。4）单击“显示”按钮，则把“t1.txt”的内容读出来显示在text2中。注意：程序运行过程中，暂时不用的控件要隐藏或不可用(如下图)。 private sub form_load()command1.enabled = falsecommand2.enabled = falsecommand3.enabled = falsetext1.text = text2.text = text2.visible = falseend subprivate sub text1_keypress(keyascii

3、 as integer)if (keyascii = 13) thenif ucase(text1.text) = end thencommand1.enabled = truetext1.visible = false elseopen h:/t1.txt for append as #1 print #1, text1.text text1.text = close #1end ifend ifend subprivate sub command1_click()dim ch open h:/t1.txt for input as #1 open h:/t2.txt for output

4、as #2 do while not eof(2) line input #1, ch print #2, ch loopmsgbox 已复制文件 closecommand2.enabled = trueend subprivate sub command2_click()dim s$open h:/t1.txt for append as #1open h:/t2.txt for input as #2do while not eof(2) input #2, ch print #1, ch loop close msgbox 已完成合并 command3.enabled = true en

5、d subprivate sub command3_click()text2.visible = trueopen h:t1.txt for input as #1 do while not eof(1) line input #1, ch text2.text = text2.text + ch + vbcrlf loop close #1end subprivate sub command4_click()endend sub2、 窗体上有五个命令按钮标题分别为“建立文件”、“读取文件”、“计算”、“添加到文件”、“结束”和列表框（list1）、图片框（picture1）、标签（label

6、1）。要求：label1list1picture11）单击“建立文件”按钮，则随机产生任意个100,500的随机整数，存入数组a中，并把数组a的各元素值（按每行5个元素输出）写入文件mylist.dat中，同时也在窗体的picture框中显示出来。（数组的元素个数可通过inputbox输入）2）单击“读取文件”按钮，则将文件mylist.dat的数据读出来存放到数组b中，并把数组b中的元素，添加到列表框中。3) 单击“计算”按钮，则计算并在窗体上输出数组b的最大值和平均值。4）单击“添加到文件”，则将数组b的最大值和平均值添加到“mylist.dat”的末尾。5）单击“退出”按钮，则退出应用程

7、序。option base 1dim a%(), b%(), max%, aver!, sum%private sub form_load()randomizeend subprivate sub command1_click() n = inputbox(请输入数组元素的个数：) redim a(n) open .mylist.dat for output as #1 for i = 1 to n a(i) = int(rnd * 401 + 100) picture1.print a(i); 写入picture框 print #1, a(i); 写入磁盘文件 if i mod 5 = 0

8、then picture1.print 在picture框中换行 print #1, 在文件中换行 end if next close #1end subprivate sub command2_click() open .mylist.dat for input as #1 i = 1 do while not eof(1) redim preserve b(i) input #1, b(i) 将读出的数据存放在数组中 list1.additem b(i) i = i + 1 loop close #1end subprivate sub command3_click() for i = lbound(b) to ubound(b) if b(i) max then max = b(i) sum = sum + b(i) next aver = sum / (ubound(b) - lbound(b) + 1) label1 = 最大值： & max & vbcrlf & 平均值： & averend subprivate sub command4_click() open mylist.dat for appe