vb实验__数据文件.docVIP

实验H 数据文件 一、实验目的 1．掌握顺序文件、随机文件及二进制文件的特点和使用。 2．掌握各类文件的打开、关闭和读/写操作。 3．学会在应用程序中使用文件。 二、实验内容 1．编写如图H．1所示的应用程序。若单击“建立文件”按钮，则分别用Print#和Write#语句将三个同学的学号、姓名和成绩写入文件Score．dat和Scorel．dat；若单击“读取文件”按钮，则用Line Input语句按行将两个文件中的数据送往相应的文本框。 要求：学号和姓名是字符串类型，成绩是整型。 Private Sub Command1_Click() Open C:\Users\Administrator\Desktop\第八章\H1\score For Output As #1 Print #1, 051023, 王海涛, 66 Print #1, 052498, 周文英, 88 Print #1, 050992, 陈建东, 77 Open C:\Users\Administrator\Desktop\第八章\H1\score1 For Output As #2 Write #2, 051023, 王海涛, 66 Write #2, 052498, 周文英, 88 Write #2, 050992, 陈建东, 77 Close i1 = Shell(NOTEPAD.exe + c:\score, vbNormalNoFocus) i2 = Shell(NOTEPAD.exe + c:\score1, vbNormalNoFocus) End Sub Private Sub Command2_Click() Dim no As String, name As String, s As Integer Open C:\Users\Administrator\Desktop\第八章\H1\score For Input As #1 Do While Not EOF(1) Line Input #1, linedata List1.AddItem linedata Loop Open C:\Users\Administrator\Desktop\第八章\H1\score1 For Input As #2 Do While Not EOF(2) Input #2, no, name, s List2.AddItem no name s Loop Close End Sub 2．将斐波那契数列的前1 0项写入文件Fb .dat，然后从该文件将数据读取出来并计算合计和平均数，最后送入列表框。 要求：文件数据格式如图H．2所示，列表框中项目格式如图H．3所示。 Private Sub Command1_Click() Dim fib%(0 To 9), i% Open C:\Users\Administrator\Desktop\第八章\H2\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:\Users\Administrator\Desktop\第八章\H2\Fb.dat, vbNormalNoFocus) Close #1 End Sub Private Sub Command2_Click() Dim st$, n%, sum% Open C:\Users\Administrator\Desktop\第八章\H2\Fb.dat For Input As #1 Do While Not EOF(1)