实验十二文件

实验十二文件
实验目的:
1、掌握顺序文件、随机文件和二进制文件的特点和使用
2、掌握文件的打开、关闭和读写操作。

3、学会文件在应用程序的使用。

实验内容:
1、初始窗体上有四个命令按钮两个文本框（如下图）
要求:
1）建立文件名为“ t1.txt ”的顺序文件，内容来自文本框Textl。

要求：每按一次回车键则将文本框Textl的内容写入文件，并清除文本框Textl 的内容，直到文本框Textl内输入“ END'字符串（不区分大小写），关闭文件2）单击“复制文件”按钮，则把“ t1.txt ”的顺序文件的内容全部复
制到新文件“ t2.txt ”中，并给出相应提示。

（只能使用一个变量，不能使用
控件。

）（如下图）
3）单击“合并文件”按钮，则将“t2.txt ”内容合并“ t1.txt ”末尾, 给出相应提示。

4）单击“显示”按钮，则把“ t1.txt ”的内容读出来显示在Text2中
注意：程序运行过程中，暂时不用的控件要隐藏或不可用（如下图）
PriVate Sub Form_Load() Comma nd1.E nabled = False Comma nd2.E nabled = False
Comma nd3.E nabled = False Text1.Text ="" Text2.Text ="" Text2.Visible = False End SUb PriVate SUb text1_keypress(keyascii AS In teger)
If (keyascii = 13) The n
If UCaSe(TeXt1.Text) = "END" The n Comma nd1.E nabled = TrUe Text1.Visible = False Else
OPen "h:/t1.txt" For APPend AS #1 Print #1, Text1.Text Text1.Text ="" Close #1 End If End If End SUb
PriVate SUb Comma nd1_Click() Dim Ch OPen "h:/t1.txt" For InPUt AS #1 OPe n "h:/t2.txt" For OUtPUt AS #2 Do While Not EOF(2) Line Input #1, ch Print #2, ch Loop
MsgBox " 已复制文件 " Close
区
P
月⅛月
⅛
SS tq±s 望融
头⅛⅛
在兗本眶申⅛1∖^⅛ 就中文，搖叵1车键写 人文件T1.TXT 屯以
W En t i U （不区分大小 写）结兎.
蔑制弐件
E 并文件
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Dim s$
Open "h:/t1.txt" For Append As #1
Open "h:/t2.txt" For Input As #2
Do While Not EOF(2)
Input #2, ch
Print #1, ch
Loop
Close
MsgBox " 已完成合并"
Command3.Enabled = True
End Sub
Private Sub Command3_Click()
Text2.Visible = True
Open "h:\t1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, ch
Text2.Text = Text2.Text + ch + vbCrLf
Loop
Close #1
End Sub
Private Sub Command4_Click()
End
End Sub
2、窗体上有五个命令按钮标题分别为“建立文件” 、“读取文件”、“计算”、添加到文件” 、“结束”和列表框( List1 )、图片框( Picture1 )、标签Label1 ）。

要求：
1) 单击“建立文件”按钮，则随机产生任意个[100,500] 的随机整数，
存入数组A中，并把数组A的各元素值(按每行5个元素输出)写入文件MyList.dat 中，同时也在窗体的PiCtUre 框中显示出来。

(数组的元素个数可通过InPutbOX 输入)
2) 单击“读取文件”按钮，则将文件
MyList.dat 的数据读出来存放到数组B中，并把数组B中的元素，添加到列表框中。

3) 单击“计算”按钮，则计算并在窗体上输出数组B的最大值和平均值。

4) 单击“添加到文件”，则将数组B的最大值和平均值添加到
“ MyList.dat ”的末尾。

5) 单击“退出”按钮，贝U退出应用程序。

Optio n BaSe 1
Dim a%(), b%(), max%, aver!, sum%
PriVate SUb Form_Load()
Ran domize
End SUb
PriVate SUb Comma nd1_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 Then
Picture1.Print '在Picture 框中换行
Print #1, '在文件中换行
End If
Next
Close #1
End Sub
Private 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 #1
End Sub
Private 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 & " 平均值：" & aver End Sub
Private Sub Command4_Click()
Open "\MyList.dat" For Append As #1 '以追加模式打开文件
Print #1,
Print #1, " 最大值和平均值分别为："; max; aver '写入磁盘文件Close #1
MsgBox " 已写入文件！"
End Sub
Private Sub Command5_Click()
End
End Sub。