试验十二文件

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

2、）（如下图）3）单击“合并文件”按钮，则将“t2.txt”内容合并“ t1.txt”末尾,给出相应提示。4）单击“显示”按钮，则把“ t1.txt ”的内容读出来显示在Text2中注意：程序运行过程中，暂时不用的控件要隐藏或不可用 （如下图）Private Sub Form_Load()Comma ndl.E nabled = FalseComma nd2.E nabled = FalseComma nd3.E nabled = False Text1.Text =Text2.Text = Text2.Visible = False End SubPrivate Sub text1_keypr

3、ess(keyascii As In teger)If (keyascii = 13) The nIf UCase(Text1.Text) = END The n Comma nd1.E nabled = True Text1.Visible = FalseElseOpen h:/t1.txt For Append As #1Print #1, Text1.TextText1.Text =Close #1End IfEnd IfEnd SubPrivate Sub Command1_Click()Dim chOpen h:/t1.txt For Input As #1Open h:/t2.tx

4、t For Output As #2Do While Not EOF(2)Line Input #1, chPrint #2, chLoopMsgBox 已复制文件 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, chPrint #1, chLoopCloseMsgBox 已完成合并 Command3.Enabled = Tru

5、eEnd SubPrivate Sub Command3_Click()Text2.Visible = TrueOpen h:t1.txt For Input As #1Do While Not EOF(1)Line Input #1, chText2.Text = Text2.Text + ch + vbCrLfLoopClose #1End SubPrivate Sub Command4_Click()EndEnd Sub2、窗体上有五个命令按钮标题分别为“建立文件”读取文件”、“计算”、“添加到文件”、“结束”和列表框(Listl )、图片框(Picturel )、标签(Labell )

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

7、n Base 1Dim a%(), b%(), max%, aver!, sum%Private Sub Form_Load()Ran domizeEnd SubPrivate Sub Comma nd1_Click()n = InputBox( 请输入数组元素的个数： ) ReDim a(n)Open .MyList.dat For Output As #1For i = 1 To na(i) = Int(Rnd * 401 + 100) Picture1.Print a(i);写入 Picture 框Print #1, a(i); 写入磁盘文件If i Mod 5 = 0 ThenPict

8、ure1.Print 在 Picture 框中换行 Print #1,在文件中换行End IfNextClose #1End SubPrivate Sub Command2_Click()Open .MyList.dat For Input As #1i = 1Do While Not EOF(1)ReDim Preserve b(i)Input #1, b(i)将读出的数据存放在数组中List1.AddItem b(i)i = i + 1LoopClose #1End SubPrivate Sub Command3_Click()For i = LBound(b) To UBound(b)If b(i) max Then max = b(i)sum = sum + b(i)Nextaver = sum / (UBound(b) - LBound(b) + 1)Label1 = 最大值： & max & vbCrLf & 平均值： & aver End SubPrivate Sub Command4_Click()Open MyList.dat For