资源描述：
《vb实验h__数据文件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、实验H数据文件一、实验目的1．掌握顺序文件、随机文件及二进制文件的特点和使用。2．掌握各类文件的打开、关闭和读/写操作。3．学会在应用程序中使用文件。二、实验内容1．编写如图H．1所示的应用程序。若单击“建立文件”按钮，则分别用Print#和Write#语句将三个同学的学号、姓名和成绩写入文件Score．dat和Scorel．dat；若单击“读取文件”按钮，则用LineInput语句按行将两个文件中的数据送往相应的文本框。要求：学号和姓名是字符串类型，成绩是整型。PrivateSubCommand1_C
2、lick()Open"C:UsersAdministratorDesktop第八章H1score"ForOutputAs#1Print#1,"051023","王海涛",66Print#1,"052498","周文英",88Print#1,"050992","陈建东",77Open"C:UsersAdministratorDesktop第八章H1score1"ForOutputAs#2Write#2,"051023","王海涛",66Write#2,"052498","周文英",
3、88Write#2,"050992","陈建东",77Closei1=Shell("NOTEPAD.exe"+"c:score",vbNormalNoFocus)i2=Shell("NOTEPAD.exe"+"c:score1",vbNormalNoFocus)EndSubPrivateSubCommand2_Click()DimnoAsString,nameAsString,sAsIntegerOpen"C:UsersAdministratorDesktop第八章H1score"For
4、InputAs#1DoWhileNotEOF(1)LineInput#1,linedataList1.AddItemlinedataLoopOpen"C:UsersAdministratorDesktop第八章H1score1"ForInputAs#2DoWhileNotEOF(2)Input#2,no,name,sList2.AddItemno&name&sLoopCloseEndSub2．将斐波那契数列的前10项写入文件Fb.dat，然后从该文件将数据读取出来并计算合计和平均数，最后送入
5、列表框。要求：文件数据格式如图H．2所示，列表框中项目格式如图H．3所示。PrivateSubCommand1_Click()Dimfib%(0To9),i%Open"C:UsersAdministratorDesktop第八章H2Fb.dat"ForOutputAs#1Fori=0To9Ifi=0Ori=1Thenfib(i)=iElsefib(i)=fib(i-1)+fib(i-2)EndIfPrint#1,"""Fib("&i&")"","&fib(i)NextiClose#1i=Sh
6、ell("NOTEPAD.exe"+"C:UsersAdministratorDesktop第八章H2Fb.dat",vbNormalNoFocus)Close#1EndSubPrivateSubCommand2_Click()Dimst$,n%,sum%Open"C:UsersAdministratorDesktop第八章H2Fb.dat"ForInputAs#1DoWhileNotEOF(1)Input#1,st,nsum=sum+nList1.AddItemst&"="&n
7、LoopClose#1List1.AddItem"合计："&sumList1.AddItem"平均："&sum/10EndSub3．设计一个如图H．4所示的应用程序。要求：①单击“打开文件”按钮弹出一个通用对话框，选择文件后显示在文本框中。②单击“保存文件”按钮后弹出通用对话框，确定文件名后保存。③单击“查找下一个”按钮后在文本文件中查找单词“VB”，找到后以高亮度显示。若再单击“查找下一个”按钮，则继续查找。PrivateSubCommand1_Click()CommonDialog1.Action=
8、1Text1.Text=""OpenCommonDialog1.FileNameForInputAs#1DoWhileNotEOF(1)LineInput#1,inputdataText1.Text=Text1.Text+inputdata+vbCrLfLoopClose#1EndSubPrivateSubCommand2_Click()CommonDialog1.FileName="Default.Txt"CommonDialog1.De
