第七章 vb实验报告.docVIP

实 验 报 告 课程名称 程序设计基础——VB 实验项目名称 数据文件 实验学生班级 模具设计101 实验学生姓名 赵立骏 学　　　　号 205100237 同组学生姓名 实验时间 2011.11.20 实验地点 实验成绩评定 指导教师签字 　 年　月　日 一、实验目的和要求 1．实验目的： 程序设计中的掌握顺序文件、随机文件及二进制文件的特点和使用。 掌握各类文件的打开、关闭和读/写操作。 学会在应用程序中使用文件。 2．上机调试之前必须携带已经编写完毕的程序源代码，实验过程中主要是进行调试。 3．上机时间不足以完成实验项目的同学利用课外时间做完所有项目。 4．根据所选实验内容完成实验报告。 二、实验主要仪器和设备 计算机 三、实验方法与步骤（需求分析、算法设计思路、流程图等） 1．编写如图所示的应用程序。若单击“建立文件”按钮，则分别用Print#和Write#语句将三个同学的学号、姓名和成绩写入文件Score．dat和Scorel．dat；若单击“读取文件”按钮，则用Line Input语句按行将两个文件中的数据送往相应的文本框。 要求：学号和姓名是字符串类型，成绩是整型。 实验步骤：1打开VB 2画控件写代码 3运行程序 2．将斐波那契数列的前1 0项写入文件Fb .dat，然后从该文件将数据读取出来并计算合计和平均数，最后送入列表框。 要求：文件数据格式如图所示，列表框中项目格式如图所示。 实验步骤：1打开VB 2画控件写代码 3运行程序 3．设计一个如图所示的应用程序。 要求： 单击“打开文件”按钮弹出一个通用对话框，选择文件后显示在文本框中。 单击“保存文件”按钮后弹出通用对话框，确定文件名后保存。 单击“查找下一个”按钮后在文本文件中查找单词“VB”，找到后以高亮度显示。若再单击“查找下一个”按钮，则继续查找。 实验步骤：1打开VB 2画控件写代码 3运行程序 四、实验原始纪录（源程序、数据结构等） 1.源代码如下： Option Explicit Private Sub Command1_Click() Open d:\VB\Score.dat For Output As #1 Print #1, 051023, 王海涛, 66 Print #1, 052498, 周海英, 88 Print #1, 050992, 陈建栋, 71 Close #1 Open d:\VB\Score1.dat For Output As #2 Write #2, 051023, 王海涛, 66 Write #2, 052498, 周海英, 88 Write #2, 050992, 陈建栋, 71 Close #2 End Sub Private Sub Command2_Click() Dim a$, b$ Open d:\VB\Score.dat For Input As #1 Do While Not EOF(1) Line Input #1, a Text1.Text = Text1.Text + a + vbCrLf Loop Close #1 Open d:\VB\Score1.dat For Input As #2 Do While Not EOF(2) Line Input #2, b Text2.Text = Text2.Text + b + vbCrLf Loop Close #2 End Sub 2.源代码如下 Private Sub Command1_Click() Dim Fib(0 To 9) As Integer For i = 0 To 9 If i = 0 Then Fib(i) = 0 Else If i = 1 Then Fib(i) = 1 Else Fib(i) = Fib(i - 1) + Fib(i - 2) End If End If Open d:\VB\Fb.dat For Append As #1 Write #1, Fib( i ), Fib(i) Close #1 Next i End Sub Private Sub Command2_Click() D