vb实验报告Word下载.docx
《vb实验报告Word下载.docx》由会员分享，可在线阅读，更多相关《vb实验报告Word下载.docx（10页珍藏版）》请在冰豆网上搜索。
1．实验目的：
1程序设计中的掌握顺序文件、随机文件及二进制文件的特点和使用。
2掌握各类文件的打开、关闭和读/写操作。
3学会在应用程序中使用文件。
2．上机调试之前必须携带已经编写完毕的程序源代码，实验过程中主要是进行调试。
3．上机时间不足以完成实验项目的同学利用课外时间做完所有项目。
4．根据所选实验内容完成实验报告。
二、实验主要仪器和设备
计算机
三、实验方法与步骤（需求分析、算法设计思路、流程图等）
1．编写如图所示的应用程序。
若单击“建立文件”按钮，则分别用Print#和Write#语句将三个同学的学号、姓名和成绩写入文件Score．dat和Scorel．dat；
若单击“读取文件”按钮，则用LineInput语句按行将两个文件中的数据送往相应的文本框。
要求：
学号和姓名是字符串类型，成绩是整型。
实验步骤：
1打开VB
2画控件写代码
3运行程序
2．将斐波那契数列的前10项写入文件Fb.dat，然后从该文件将数据读取出来并计算合计和平均数，最后送入列表框。
文件数据格式如图所示，列表框中项目格式如图所示。
3运行程序
3．设计一个如图所示的应用程序。
1单击“打开文件”按钮弹出一个通用对话框，选择文件后显示在文本框中。
2单击“保存文件”按钮后弹出通用对话框，确定文件名后保存。
3单击“查找下一个”按钮后在文本文件中查找单词“VB”，找到后以高亮度显示。
若再单击“查找下一个”按钮，则继续查找。
四、实验原始纪录（源程序、数据结构等）
1.源代码如下：
OptionExplicit
PrivateSubCommand1_Click（）
Open"
d:
\VB\Score.dat"
ForOutputAs#1
Print#1,"
051023"
"
王海涛"
66
052498"
周海英"
88
050992"
陈建栋"
71
Close#1
\VB\Score1.dat"
ForOutputAs#2
Write#2,"
Close#2
EndSub
PrivateSubCommand2_Click（）
Dima$,b$
ForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,a
Text1.Text=Text1.Text+a+vbCrLf
Loop
ForInputAs#2
DoWhileNotEOF
（2）
LineInput#2,b
Text2.Text=Text2.Text+b+vbCrLf
2.源代码如下
DimFib（0To9）AsInteger
Fori=0To9
Ifi=0Then
Fib（i）=0
Else
Ifi=1Then
Fib（i）=1
Fib（i）=Fib（i-1）+Fib（i-2）
EndIf
Open"
\VB\Fb.dat"
ForAppendAs#1
Write#1,"
Fib（"
&
i&
"
）"
Fib（i）
Close#1
Nexti
DimxAsString,yAsInteger,sAsInteger,aAsSingle
s=0
Input#1,x,y
List1.AddItemx&
="
y
s=s+y
List1.AddItem"
合计：
"
s
a=s/10
平均:
a
3.源代码如下：
CommonDialog1.Filter="
Textfiles（*.txt）|*.txt|Datafiles（*.dat）|*.dat|Allfiles（*.*）|*.*"
CommonDialog1.FilterIndex=1
CommonDialog1.FileName="
CommonDialog1.Action=1
OpenCommonDialog1.FileNameForInputAs#1
LineInput#1,a
Text1.Text=Text1.Text+a+vbCrLf
CommonDialog1.FilterIndex=2
CommonDialog1.Action=2
OpenCommonDialog1.FileNameForOutputAs#1
Print#1,Text1.Text
PrivateSubCommand3_Click（）
Dimb%
Text1.SetFocus
b=InStr（b+1,Text1,"
VB"
）
Ifb>
0Then
Text1.SelStart=b-1
Text1.SelLength=2
b=b+1
MsgBox"
找不到"
PrivateSubCommand4_Click（）
End
五、实验结果及分析（计算过程与结果、数据曲线、图表等）
实验1结果运行如下图所示，达到实验目的
实验2结果运行如下图所示，达到实验目的
实验3结果运行如下图所示，达到实验目的
六、实验总结与思考
本次实验充分掌握了函数和子过程的调用以及递归的编写，对于递归，老是找不到递归的终止，导致实验6.11的失败，对于6.11的代码，总是会出现堆栈溢出的现象，可是查代码又查不到问题，希望老师对此给出解释
教师评语：
升级会员 