Picture2.Left=Picture2.Left+500
EndIf
EndSub
登陆界面的代码：
DimzAsString
PrivateSubCommand1_Click（）
IfText2.Text="225516"Then
Form2.Hide
Form1.Show
ElseIfText2.Text<>"225516"Then
MsgBox"请输入正确的密码！
",vbOKOnly+vbInformation,"注意"
EndIf
z=Text1.Text
Form1.Label22.Caption="销售员：
"&z
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm2_Load（）
Form1.Show
Form2.Show
EndSub
PrivateSubForm_Load（）
strname=Text1.Text
EndSub
PrivateSubtext1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfText1.Text="frowse"AndKeyCode=vbKeyReturnThen
Text2.SetFocus
ElseIfText1.Text<>"frowse"AndKeyCode=vbKeyReturnThen
MsgBox"请输入正确的用户名！
",vbOKOnly+vbInformation,"注意"
EndIf
EndSub
PrivateSubText2_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfText2.Text="225516"AndKeyCode=vbKeyReturnThen
Form2.Hide
ElseIfText2.Text<>"225516"AndKeyCode=vbKeyReturnThen
MsgBox"请输入正确的密码！
",vbOKOnly+vbInformation,"注意"
EndIf
EndSub
主程序的代码：
PrivateSubCommand1_Click（）
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）,"currency"）
Label20.Visible=True
Label21.Visible=True
Label22.Visible=True
EndSub
PrivateSubCommand2_Click（）
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
EndSub
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
EndSub
PrivateSubCommand4_Click（）
End
EndSub
PrivateSubCommand5_Click（）
Text5.Locked=False
Text6.Locked=False
EndSub
PrivateSubTimer1_Timer（）
Label18.Caption=Time
EndSub
2、实验结果（界面运行结果截图）
1、实验过程中发现的问题：
1、在总金额和销售税中只能显示数字，而不能显示对应的货币符号。
解决方法：
使用format函数，即可
Label16.Caption=Format（Label13.Caption*Val（Text5.Text）*（1+Val（Text6.Text））,"currency"）
Label23.Caption=Format（Label13.Caption*Val（Text5.Text）*Val（Text6.Text）,"currency"）
2.、在输入密码时，显示了对应数字，而不是“*”。
解决办法：
将该文本框的PasswordChar属性改为“*”即可。
3、在本机器上加载的背景音乐，在其他电脑上运行时会出错。
解决办法：
这是因为设置的音乐路径是绝对的，在其他电脑上运行时，路径不对；只要将音乐
的路径设置为相对路径即可。
教师签字__________
第三部分结果与讨论（可加页）
一、实验结果分析（包括数据处理、实验现象分析、影响因素讨论、综合分析和结论等）
二、小结、建议及体会
三、思考题
1、实验结果分析：
点击运行软件后，进入欢迎界面。
稍后，弹出对话框，要求输入用户名和密码。
正确输入后，即进入程序主界面。
输入相应信息后，直接按“Enter”或是点击“计算”，就会计算出相应的数值。
点击“打印”，执行相应操作，由于设置了显示当前时间的功能，所以能及时记录交易的时间。
点击“清屏”，清除无关信息。
点击“退出”，关闭软件。
2、小结、建议及体会：
小结：
通过本次试验，我进一步的熟悉了VisualBasic的操作，初步掌握了不同界面之间的切换的实现功能，加深了不同界面之间相互关联的认识。
体会：
在本次试验中，我综合运用了所有我已学的VB知识，充分达到了对知识融会贯通的效果，加深了我的认识。
我体会到，一个项目，不是一触而就的，必须通过多次的修改，才能一点一点的让它更完美。
3、思考题：
1.如何使一个窗体居中？
答：
通过设置窗体属性的Left和Top属性，来使窗体居中。
2.如何让某个按钮在没有获得焦点时，用户还能够通过回车键选择它？
答：
只要将该按钮的Default属性设为True。
3..如何实现两个窗体的程序使用同一个变量？
答：
只要将改变量设为全局变量即可。
实验课程名称：
_可视化程序设计______
实验项目名称
小学数学应用程序设计
实验成绩
实验者
朱明
专业班级
自动化0808班
组别
01
同组者
无
实验日期
2010年5月20日
一部分：
实验预习报告（包括实验目的、意义，实验基本原理与方法，主要仪器设备及耗材，实验方案与技术路线等）
1、实验的目的和意义
1）要求学生综合运用所学的控件，能独立设计完成完整的VB程序；
2）熟练掌握调试和排错的方法，了解捕捉和处理运行错误的方法；
3）熟练运用顺序、选择、循环结构来设计简单的VB程序；
2、实验的基本内容
小学一年级和二年级学生联系加、减法运算程序。
程序应具有以下功能：
1）屏幕显示加法和减法问题；
2）对于一年级学生，用到1到10之间的数字；对于一年级学生，用到10到100之间的数字；
3）允许学生回答问题，并且能验证回答的正确性；
4）如果学生的答案是错误的，该程序应能提供更多机会使学生正确回答问题；
5）跟踪学生的做题情况，评估学生的数学能力。
3、实验仪器设备和耗材
计算机一台；打印机及耗材
4、实验方法和技术路线
（1）分析应用程序需要实现的功能，绘制TOE表；
（2）绘制界面草图；
（3）编写各控件的程序代码；
（4）程序调试和排错；
（5）运行结果分析。
应用程序需要实现的功能：
实现一二年级学生的加减法运算。
可以在屏幕上显示加法和减法的问题，允许学生回答，并且能检验回答的正确性。
如果学生的答案是错误的，那么程序应提供更多机会使学生回答正确。
其中，TOE表和界面草图分别为：
TOE表：
任务
对象
事件
进入登陆界面
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
单击
1.在控件中显示两个随机数
2.在空间中显示减号
Form1.Option4
单击
1.在控件中显示两个随机数
2.在空间中显示乘号
Form1.Option5
单击
1.在控件中显示两个随机数
2.在空间中显示除号
Form1.Option6
单击
以对象为主线
界面草图：
第二部分：
实验过程记录（可加页）（包括实验原始数据记录，实验现象记录，实验过程发现的问题等）
1、程序代码
欢迎界面form2代码
ConststrcodeAsString="225516"
PrivateSubCommand1_Click（）
strname=user.Text
DimiAsInteger
StaticnAsInteger
Ifcode.Text=strcodeThen
UnloadForm2
Form1.Show
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
Else
MsgBox"三次错误，请退出！
",vbOKOnly+vbExclamation,"登录失败"
End
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
Form2.Move（Screen.Width-Width）/2,（Screen.Height-Height）/2
code.PasswordChar="*"
EndSub
主界面form1代码
OptionExplicit
Dimintnum1AsInteger,intnum2AsInteger
PrivateSubRandomNumbers（）
DiminttempAsInteger
Randomize
Iflev1.Value=TrueThen
intnum1=Int（（10-1+1）*Rnd+1）
intnum2=Int（（10-1+1）*Rnd+1）
Else
intnum1=Int（（100-10+1）*Rnd+10）
intnum2=Int（（100-10+1）*Rnd+10）
EndIf
Ifoptsub.Value=TrueAndintnum2>intnum1Then
inttemp=intnum1
intnum1=intnum2
intnum2=inttemp
EndIf
num1.Caption=intnum1
num2.Caption=intnum2
EndSub
PrivateSubadd_Click（）
sign.Picture=imgadd.Picture
userans.SetFocus
EndSub
PrivateSubchkdisplay_Click（）
Ifchkdisplay.Value=vbCheckedThen
frainfo.Visible=True
Else
frainfo.Visible=False
EndIf
userans.SetFocus
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
Form1.Move（Screen.Width-Width）/2,（Screen.Height-Height）/2
Form1.Hide
Form2.Show
EndSub
PrivateSubimghappy_Click（）
EndSub
PrivateSubimgsad_Click（）
EndSub
PrivateSublev1_Click（）
CallRandomNumbers
userans.SetFocus
EndSub
PrivateSublev2_Click（）
CallRandomNumbers
userans.SetFocus
EndSub
PrivateSuboptsub_Click（）
sign.Picture=imgsub.Picture
Ifnum1-num2<0Then
CallRandomNumbers
EndIf
userans.SetF
升级会员 