IVB程序设计实验要求及报告8答案详解.docVIP

上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验8 数据文件及图形操作 实验目的 掌握顺序文件的特点和使用 掌握顺序文件的打开、关闭和读写操作 掌握在应用程序中使用文件 掌握图形操作 二、实验要求 在C:\下建立子文件夹“VB实验8”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(81.vbp)、窗体文件(81.frm) 及可执行文件（81.exe），本实验中的第二题，需保存的文件有：工程文件(82.vbp)、窗体文件(82.frm) 及可执行文件（82.exe），其余实验依此类推。 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 实验内容： 设计一个应用程序，窗体内所有控件字体为宋体、大小为五号，运行界面如图8-1所示。若单击“建立文件”按钮，则分别用Print # 和 Write # 语句将三个同学的学号、姓名和成绩写入（当前目录）文件Score.dat和Score1.dat；若单击“读取文件”按钮，则用line Input 语句按行将两个（当前目录）文件中的数据送往相应的文本框。其中：学号和姓名是字符串类型，成绩是整型：数据如下： 051023, 王海涛, 66 051024, 周文英, 88 051025, 王海涛, 71 图8-1 Private Sub Command1_Click() Open score.dat For Output As #1 Print #1, 051023, 王海涛anghai, 66 Print #1, 051024, 周文英, 88 Print #1, 051025, 王海涛, 71 Close #1 Shell notepad score.dat Open score1.dat For Output As #1 Write #1, 051023, 王海涛, 66 Write #1, 051024, 周文英, 88 Write #1, 051025, 王海涛, 71 Close #1 Shell notepad score1.dat End Sub Private Sub Command2_Click() Dim inputdata As String Open score.dat For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text1.Text = Text1.Text + inputdata + vbCrLf Loop Close #1 Open score1.dat For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text2.Text = Text2.Text + inputdata + vbCrLf Loop Close #1 End Sub Private Sub Form_Load() Text1.Text = Text2.Text = End Sub 设计一个应用程序，界面如图8-2(1)，窗体内所有控件字体为宋体、大小为五号，点击“建立文件”按钮，则建立数组num，数组元素为10个小于100的随机整数，将数组数据写入文件（当前目录）Fb.dat，文件内容及格式如图8-2(2)；点击“读取文件”按钮，则从（当前目录）Fb.dat文件中将数据读取出来，显示在列表框中，并计算这些数的合计与平均数，并把计算结果也显示在列表框中。 图8-2 (1) 图8-2 (2) Private Sub Command1_Click() Dim num(9) As Integer Dim i%, outputstring As String Open Fb.dat For Output As #1 For i = 0 To 9 num(i)