[工作总结]vb实验报告.doc

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