VB实验六 数据文件.docVIP

实验（六）：数据文件 一、实验目的： 1、掌握顺序文件、随机文件和二进制文件的特点和使用。 2、掌握各类文件的打开、关闭和读/写操作。 3、学会在应用程序中使用文件 二、实验内容： 1、将斐波那契数列的前10项写入文件Fb.txt，然后从该文件将数据读取出来并计算合计和平均数，最后送入列表框。 要求：文件数据格式、列表框中项目格式如图示。 2、编写一个随机文件程序。要求：（1）建立一个具有5个学生的学号、姓名和成绩的随机文件（Random.txt）；（2）读出Random.txt文件中的内容，然后按成绩排序，最后按顺序写入另一个随机文件（Random1.txt）。（3）再一次读出文件的内容，按文件中的顺序将学生的信息显示在屏幕上。 3、在窗体上添加一个驱动器列表框（D1）、目录列表框（Dir1）、文件列表框(F1)、组合框、文本框。组合框中选项有：所有文件、可执行文件、文本文件、JPG文件、DOC文档等（运行时添加）。运行时D1、Dir1、F1路径一致。组合框中选项变化时，F1中显示相应的文件类型。在F1中选择一个可执行文件时，双击则运行该文件，并且完整的文件名显示在文本框中。 三、实验步骤 1、（1）双击vb6.0图标，选择标准进入，在窗体中添加command1，command2和list1.如下图： （2）双击command1和command2进行编程，程序如下： Private Sub Command1_Click() Dim fib%(0 To 9), i% Open c:\fb.dat For Output As #1 For i = 0 To 9 If i = 0 Or i = 1 Then fib(i) = i Else fib(i) = fib(i - 1) + fib(i - 2) End If Print #1, Fib( i ), fib(i) Next i Close #1 i = Shell(NOTEPAD.exe + c:\fb.dat, vbNormalNoFocus) End Sub Private Sub Command2_Click() Dim st$, n%, sum% Open c:\fb.dat For Input As #1 Do While Not EOF(1) Input #1, st, n sum = sum + n List1.AddItem st = n Loop Close #1 List1.AddItem 合计： sum List1.AddItem 平均： sum / 10 End Sub （3）运行程序，分别单击command1和command2，结果如下图： 2.（1）1）双击vb6.0图标，选择标准进入，在窗体中添加command1，command2和command3如下图： （2）双击command1和command2，command3进行编程，程序如下： Private Type studtype no As String * 1 name As String * 6 mark As Single End Type Dim student As studtype, stud(1 To 5) As studtype, t As studtype Private Sub Command1_Click() Open d:\score.dat For Random As #1 Len = Len(student) With student .no = 1 .name = 李静 .mark = 66 End With Put #1, 1, student With student .no = 2 .name = 张曼玉 .mark = 57 End With Put #1, 2, student With student .no = 3 .name = 徐若瑄 .mark = 88 End With Put #1, 3, student With student .no = 4 .name = 刘德华 .mark = 55 End With Put #1, 4, student With student .no = 5 .name = 小沈阳 .mark = 77 End With Put #1, 5, student Close #1 End Sub Private Sub Command2_Click() Open d:\score.dat For Random As #1 Len = Len(student)