文档详情

VB实验六 数据文件.doc

发布:2017-12-18约3.68千字共6页下载文档
文本预览下载声明
实验(六):数据文件 一、实验目的: 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)
显示全部
相似文档