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