IVB程序设计实验要求及报告8答案详解.doc
文本预览下载声明
上海立信会计学院本科实验报告
班级： 学号： 姓名： 指导教师：
系部： 专业： 实验时间：
实验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)
显示全部