VB最综版实验报告文档格式.docx
《VB最综版实验报告文档格式.docx》由会员分享,可在线阅读,更多相关《VB最综版实验报告文档格式.docx(34页珍藏版)》请在冰豆网上搜索。
1、实验的目的和意义
1)了解VB可视化编程的基本概念(对象的属性、事件和方法);
2)熟悉VB可视化编程的环境(集成开发环境、控件工具箱、工程窗口、属性窗口、窗体设计器、代码窗口、立即窗口、窗体布局窗口);
3)熟练掌握VB可视化编程的步骤(新建一个工程、添加控件、设置属性、编写代码、运行工程、修改工程、保存工程的编译);
4)熟悉控件的基本操作和控件的画法(在窗体上画一个控件、控件的缩放和移动、控件的复制与删除、控件的布局)。
2、实验的基本内容
1)运行窗体时,显示出“欢迎您来到xxx的VB世界!
”;
2)要求在“xxx”处添加自己的班级学号和姓名;
3)实现显示、隐藏图片和标语的功能。
3、实验仪器设备及耗材
计算机一台;
打印机及耗材
4、实验方案和技术路线
(1)分析应用程序需要实现的功能,绘制TOE表:
(2)绘制界面草图:
(3)编写各控件的程序代码;
(4)程序调试和排错;
(5)运行结果分析。
程序要实现的功能:
点击按钮,实现相应功能,显示“欢迎您来到xxx的VB世界!
”
其中,TOE表和界面草图分别为:
TOE表
任务
对象
事件
显示信息
Command1
单击
退出
Command2
以对象为主线
界面草图
第二部分:
实验过程记录(可加页)(包括实验原始数据记录,实验现象记录,实验过程发现的问题等)
1、程序代码
PrivateSubCommand1_Click()
Label1.Caption="
欢迎来到自动化0808班朱明的VB世界!
"
EndSub
PrivateSubCommand2_Click()
End
2、实验结果(界面运行结果截图)
主界面:
3、实验过程中出现的问题
1、当使用print命令时,按钮点击多少次,语句就会重复出现多少次?
解决办法:
使用Label控件,Label1.Caption="
2、在加入背景图片后,若将窗口最大化,而图片却局限在某个角落,不能同时最大化?
解决办法:
图像控件的属性没设好,应该把图像控件的stretch属性设为true。
教师签字__________
第三部分结果与讨论(可加页)
一、实验结果分析(包括数据处理、实验现象分析、影响因素讨论、综合分析和结论等)
二、小结、建议及体会
三、思考题
一、实验结果分析:
运行程序后,点击“显示”按钮,就会在上方显示“欢迎来到自动化0808班朱明的VB世界!
”,重复点击按钮,也不会有重复出现。
点击“退出”按钮,即关闭程序。
二、小结、建议及体会:
小结:
通过本次试验,我初步掌握了VisualBasic基本控件的使用方法,初步了解到布局的规则和如何布局,初步接触到VB代码的编写、调试,以及如何保存工程等,对VisualBasic有了一个比较深刻的印象。
体会:
在本次试验中,我初次接触到了VB的程序界面,很快就让我对VB产生了浓厚的兴趣。
VB程序设计以它简单灵活的设计方法深深的吸引了我。
我相信,通过自己的努力,接下来的VB学习将会非常的有趣。
3、思考题:
1、设计应用程序时,使用到的工具在哪儿?
在哪里可以设置对象的外观和行为的属性?
答:
所有工具都位于工具箱中。
在属性窗口中设置对象的外观和行为的属性。
2、如何阻止用户调整窗体大小、关闭、最大化和最小化窗体?
只要将窗体的BorderStyle属性设为0-None即可。
3、怎样设置,可使标签控件自动根据它的标题调整大小?
只要将该标签控件的Atuosize属性设为True即可。
电脑销售程序设计
2010年5月6日
1)要求学生综合运用所学的控件,能独立设计完成完整的VB程序;
2)熟练掌握变量和常量的用法;
3)熟练掌握多窗体界面设计;
4)熟练运用顺序、选择、循环结构来设计简单的VB程序;
Interlocking软件公司销售经理要求通过电话销售惠普电脑,商业机和学生机可供选择,其中商业机的售价为5000元,学生机的售价为4000元。
Skate-AwaySales公司有20名电话销售员,他们将每个客户的订货信息记录在表格中,内容包括客户姓名,地址以及订购的商业机和学生机的数量,并计算订电脑的总数和总价,总价中要包含5%的销售税。
并希望在提示中增加一条信息,内容为:
谢谢您订购我们的商品,您的销售税是……,再加上税款全额和记录客户订单的销售人员的姓名。
3、实验仪器设备和耗材
4、实验方法和技术路线
(1)分析应用程序需要实现的功能,绘制TOE表
(2)绘制界面草图
应用程序需要实现的功能:
1、得到用户输入的信息
2、计算售出的滑板总数和总价
3、显示订货信息,包括售出的滑板数量和总价
TOE表和界面草图分别为:
TOE表:
进入订货界面
From2.Command1
显示登陆者姓名
Form2.text1
显示登录密码
Form2.text2
1.计算订购的电脑总数和总价
Form1.Command1
2.在label1上显示订购的电脑数量和总价
打印订单信息
Form1.Command2
为下一个订单清屏
Form1.Command3
退出程序
Form1.Command4
显示订购的电脑的总数量
Form1.zongge
显示总价
Form1.zongjia
获得并显示订货信息
Form1.xing,di,chengshi,shengqu,you,shang,xue,shui
界面草图:
1、程序代码
欢迎界面的代码:
End
PrivateSubTimer1_Timer()
UnloadForm3
Form2.Show
PrivateSubTimer2_Timer()
IfPicture2.Left<
Form3.WidthThen
Picture2.Left=Picture2.Left+500
EndIf
登陆界面的代码:
DimzAsString
IfText2.Text="
225516"
Then
Form2.Hide
Form1.Show
ElseIfText2.Text<
>
"
MsgBox"
请输入正确的密码!
vbOKOnly+vbInformation,"
注意"
z=Text1.Text
Form1.Label22.Caption="
销售员:
&
z
PrivateSubForm2_Load()
PrivateSubForm_Load()
strname=Text1.Text
PrivateSubtext1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfText1.Text="
frowse"
AndKeyCode=vbKeyReturnThen
Text2.SetFocus
ElseIfText1.Text<
请输入正确的用户名!
PrivateSubText2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
主程序的代码:
Label13.Caption=Val(Text3.Text)+Val(Text4.Text)
Label16.Caption=Format(Label13.Caption*Val(Text5.Text)*(1+Val(Text6.Text)),"
currency"
)
Label23.Caption=Format(Label13.Caption*Val(Text5.Text)*Val(Text6.Text),"
Label20.Visible=True
Label21.Visible=True
Label22.Visible=True
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
PrintForm
Command1.Visible=True
Command2.Visible=True
Command3.Visible=True
Command4.Visible=True
PrivateSubCommand3_Click()
Text1.Text="
Text2.Text="
Text3.Text="
Text4.Text="
Text7.Text="
Label13.Caption="
Label16.Caption="
Label23.Caption="
Label20.Visible=False
Label21.Visible=False
Label22.Visible=False
PrivateSubCommand4_Click()
PrivateSubCommand5_Click()
Text5.Locked=False
Text6.Locked=False
Label18.Caption=Time
1、实验过程中发现的问题:
1、在总金额和销售税中只能显示数字,而不能显示对应的货币符号。
解决方法:
使用format函数,即可
Label16.Caption=Format(Label13.Caption*Val(Text5.Text)*(1+Val(Text6.Text)),"
Label23.Caption=Format(Label13.Caption*Val(Text5.Text)*Val(Text6.Text),"
2.、在输入密码时,显示了对应数字,而不是“*”。
将该文本框的PasswordChar属性改为“*”即可。
3、在本机器上加载的背景音乐,在其他电脑上运行时会出错。
这是因为设置的音乐路径是绝对的,在其他电脑上运行时,路径不对;
只要将音乐
的路径设置为相对路径即可。
1、实验结果分析:
点击运行软件后,进入欢迎界面。
稍后,弹出对话框,要求输入用户名和密码。
正确输入后,即进入程序主界面。
输入相应信息后,直接按“Enter”或是点击“计算”,就会计算出相应的数值。
点击“打印”,执行相应操作,由于设置了显示当前时间的功能,所以能及时记录交易的时间。
点击“清屏”,清除无关信息。
点击“退出”,关闭软件。
2、小结、建议及体会:
通过本次试验,我进一步的熟悉了VisualBasic的操作,初步掌握了不同界面之间的切换的实现功能,加深了不同界面之间相互关联的认识。
在本次试验中,我综合运用了所有我已学的VB知识,充分达到了对知识融会贯通的效果,加深了我的认识。
我体会到,一个项目,不是一触而就的,必须通过多次的修改,才能一点一点的让它更完美。
1.如何使一个窗体居中?
通过设置窗体属性的Left和Top属性,来使窗体居中。
2.如何让某个按钮在没有获得焦点时,用户还能够通过回车键选择它?
只要将该按钮的Default属性设为True。
3..如何实现两个窗体的程序使用同一个变量?
只要将改变量设为全局变量即可。
小学数学应用程序设计
2010年5月20日
2)熟练掌握调试和排错的方法,了解捕捉和处理运行错误的方法;
3)熟练运用顺序、选择、循环结构来设计简单的VB程序;
小学一年级和二年级学生联系加、减法运算程序。
程序应具有以下功能:
1)屏幕显示加法和减法问题;
2)对于一年级学生,用到1到10之间的数字;
对于一年级学生,用到10到100之间的数字;
3)允许学生回答问题,并且能验证回答的正确性;
4)如果学生的答案是错误的,该程序应能提供更多机会使学生正确回答问题;
5)跟踪学生的做题情况,评估学生的数学能力。
(1)分析应用程序需要实现的功能,绘制TOE表;
(2)绘制界面草图;
实现一二年级学生的加减法运算。
可以在屏幕上显示加法和减法的问题,允许学生回答,并且能检验回答的正确性。
如果学生的答案是错误的,那么程序应提供更多机会使学生回答正确。
进入登陆界面
Form2.Command1
结束应用
From2.Command2,Form1.Command1
1.计算数学运算的正确答案
2.比较正确答案和用户答案
3.显示一个笑脸或哭脸
4.正确或者错误的个数增加1
Form1.Command2
单击
显示等于标志
Form1.Image2
显示笑脸或哭脸图标
Form1.imgIcon
显示加号、减号、乘号或除号
Form1.sigh
显示正确、错误的数量和正确率
Form1.chkdisplay
显示一个随机数
Form1.Text1,Form1.Text2
1.在控件中显示两个随机数
2.在空间中显示加号
Form1.Option3
在控件中显示两个从1到10之间的随机数
Form1.Option1
在控件中显示两个从10到100之间的随机数
Form1.Option2
2.在空间中显示减号
Form1.Option4
2.在空间中显示乘号
Form1.Option5
2.在空间中显示除号
Form1.Option6
欢迎界面form2代码
ConststrcodeAsString="
strname=user.Text
DimiAsInteger
StaticnAsInteger
Ifcode.Text=strcodeThen
UnloadForm2
MsgBox"
请先选择水平和选项!
vbOKOnly+vbExclamation,"
提醒"
Else
n=n+1
Ifn<
3Then
i=MsgBox("
用户名或密码错误,请重新输入!
vbCritical+vbRetryCancel+vbDefaultButton1,"
登录失败"
Ifi=vbRetryThen
user.Text="
code.Text="
user.SetFocus
Else
End
EndIf
三次错误,请退出!
Form2.Move(Screen.Width-Width)/2,(Screen.Height-Height)/2
code.PasswordChar="
*"
主界面form1代码
OptionExplicit
Dimintnum1AsInteger,intnum2AsInteger
PrivateSubRandomNumbers()
DiminttempAsInteger
Randomize
Iflev1.Value=TrueThen
intnum1=Int((10-1+1)*Rnd+1)
intnum2=Int((10-1+1)*Rnd+1)
intnum1=Int((100-10+1)*Rnd+10)
intnum2=Int((100-10+1)*Rnd+10)
Ifoptsub.Value=TrueAndintnum2>
intnum1Then
inttemp=intnum1
intnum1=intnum2
intnum2=inttemp
num1.Caption=intnum1
num2.Caption=intnum2
PrivateSubadd_Click()
sign.Picture=imgadd.Picture
userans.SetFocus
PrivateSubchkdisplay_Click()
Ifchkdisplay.Value=vbCheckedThen
frainfo.Visible=True
frainfo.Visible=False
userans.SetFocus
Form1.Move(Screen.Width-Width)/2,(Screen.Height-Height)/2
Form1.Hide
PrivateSubimghappy_Click()
PrivateSubimgsad_Click()
PrivateSublev1_Click()
CallRandomNumbers
PrivateSublev2_Click()
PrivateSuboptsub_Click()
sign.Picture=imgsub.Picture
Ifnum1-num2<
0Then
CallRandomNumbers
userans.SetF