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

《vb程序设计实验要求及报告8答案详解》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、上海立信会计学院本科实验报告班级：学号：姓名：指导教师：系部：专业：实验时间：实验8数据文件及图形操作一、实验目的1．掌握顺序文件的特点和使用2．掌握顺序文件的打开、关闭和读写操作3．掌握在应用程序中使用文件4．掌握图形操作二、实验要求1．在C:下建立子文件夹“VB实验8”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(81.vbp)、窗体文件(81.frm)及可执行文件（81.exe），本实验中的第二题，需保存的文件有：工程文件(82.vbp)、窗体文件(82.frm)及可执行文件（82.exe

2、），其余实验依此类推。2．撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。三、实验内容：1.设计一个应用程序，窗体内所有控件字体为宋体、大小为五号，运行界面如图8-1所示。若单击“建立文件”按钮，则分别用Print#和Write#语句将三个同学的学号、姓名和成绩写入（当前目录）文件Score.dat和Score1.dat；若单击“读取文件”按钮，则用lineInput语句按行将两个（当前目录）文件中的数据送往相应的文本框。其中：学号和姓名是字符串类型，成绩是整型：数据如下："051023","王海涛",66"051024","周文

3、英",88"051025","王海涛",71图8-1PrivateSubCommand1_Click()Open"score.dat"ForOutputAs#1Print#1,"051023","王海涛anghai",66Print#1,"051024","周文英",88Print#1,"051025","王

4、海涛",71Close#1Shell"notepadscore.dat"Open"score1.dat"ForOutputAs#1Write#1,"051023","王海涛",66Write#1,"051024","周文英",88Write#1,"051025","王海涛",71Close#1Shell"notepadscore1.dat"EndSubPrivateSubCommand2_Click()DiminputdataAsStringOpen"score.dat"ForInputAs#1DoWhileNotEOF(1)LineInput#

5、1,inputdataText1.Text=Text1.Text+inputdata+vbCrLfLoopClose#1Open"score1.dat"ForInputAs#1DoWhileNotEOF(1)LineInput#1,inputdataText2.Text=Text2.Text+inputdata+vbCrLfLoopClose#1EndSubPrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSub1.设计一个应用程序，界面如图8-2(1)，窗体内所有控件字体为宋体、大小为五号，点击

6、“建立文件”按钮，则建立数组num，数组元素为10个小于100的随机整数，将数组数据写入文件（当前目录）Fb.dat，文件内容及格式如图8-2(2)；点击“读取文件”按钮，则从（当前目录）Fb.dat文件中将数据读取出来，显示在列表框中，并计算这些数的合计与平均数，并把计算结果也显示在列表框中。图8-2(1)图8-2(2)PrivateSubCommand1_Click()Dimnum(9)AsIntegerDimi%,outputstringAsStringOpen"Fb.dat"ForOutputAs#1Fori=0To9num(i)=Int

7、(Rnd*100)outputstring="num("&i&")="Write#1,outputstring,num(i)NextiClose#1EndSubPrivateSubCommand2_Click()Dimsum%,ave!DiminputstringAsString,inputdataAsIntegerOpen"Fb.dat"ForInputAs#1sum=0DoWhileNotEOF(1)Input#1,inputstring,inputdataList1.AddIteminputstring&inputdatasum=sum+i

8、nputdataLoopClose#1List1.AddItem"合计："&sumave=sum/10List1.AddItem"平均：