VB实验报告.docx
《VB实验报告.docx》由会员分享，可在线阅读，更多相关《VB实验报告.docx（7页珍藏版）》请在冰豆网上搜索。
VB实验报告
台州学院
《VB程序设计》实验报告
实验七：
常用控件
班级：
10物理2
学号：
姓名：
实验日期：
2011
一、实验目的和要求
1．掌握基本控件的重要属性、事件；
2．熟练掌握在窗体上建立上述控件的操作方法；
3．熟练掌握事件过程代码的编写；
4．初步掌握建立基于图形界面的应用程序的过程。
二、实验主要仪器和设备
计算机一台，WindowsXP操作系统，VisualBasic环境。
三、实验内容
实验7.1设计一个字体修饰的程序，界面如图7-1所示。
要求：
框架1中有两个复选框，可以选择粗体和斜体对标签中的文字进行修饰；框架2中有两个单选按钮，可以选择宋体或楷体对标签中的文字进行修饰；标签Label1的文字内容为“VisualBasic程序设计”，宋体，常规，三号；文字对齐方式为居中。
图7-1字体修饰
实验7.2设计一个点菜的程序，界面如图7-2所示。
要求：
框架中的复选框提供可选择的三种套餐，右边的文本框中可以输入数量；输入时文本框只接受数字键；并且只有选取了相应的套餐后才可以进行输入；如果没有选取套餐，那么文本框不能编辑并清空；单击“确定”按钮，统计点餐的金额，并用消息框显示出来；
图7-2点菜
实验7.3设计一密码修改程序，要求。
1）当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若一致且都为“admin”，则继续执行步骤2；否则弹出消息框，提示用户出错，并让用户重新输入。
2）比较“新密码（N）”和“新密码（S）”，若两者一致，弹出密码修改成功消息框，程序终止执行。
否则弹出错误消息，并让用户重新输入。
3）当单击“取消”按钮后，程序终止执行。
图7-3密码修改
实验7.4（选做）设计一个拨号盘的程序。
界面如图7-4所示。
要求：
命令按钮数组构成数字键，单击数字键按钮，将拨号的内容显示在文本框Text1中；单击“重拨”按钮，再现原来的拨号过程；
（提示：
再现过程由定时器实现）定时器的时间间隔为0.5秒；设置文本框最多接受10个字符。
图7-4拨号盘
四、实验原始纪录
实验7.1
程序的界面设计。
程序代码。
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
Label1.FontBold=True
Else
Label1.FontBold=False
EndIf
EndSub
PrivateSubCheck2_Click（）
IfCheck2.Value=1Then
Label1.FontItalic=True
Else
Label1.FontItalic=False
EndIf
EndSub
PrivateSubOption1_Click（）
Label1.FontName=Option1.Caption
EndSub
PrivateSubOption2_Click（）
Label1.FontName=Option2.Caption
EndSub
实验7.2
程序的界面设计。
程序代码。
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
Text1.Enabled=True
Else
Text1.Enabled=False
Text1.Text=""
EndIf
EndSub
PrivateSubCheck2_Click（）
IfCheck2.Value=1Then
Text2.Enabled=True
Else
Text2.Enabled=False
Text2.Text=""
EndIf
EndSub
PrivateSubCheck3_Click（）
IfCheck3.Value=1Then
Text3.Enabled=True
Else
Text3.Enabled=False
Text3.Text=""
EndIf
EndSub
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
a=Val（Text1.Text）*13+Val（Text2.Text）*18+Val（Text3.Text）*25
b=MsgBox（"总金额为"&a&"元",vbInformation,"金额"）
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0
EndSub
PrivateSubText2_KeyPress（KeyAsciiAsInteger）
IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0
EndSub
PrivateSubText3_KeyPress（KeyAsciiAsInteger）
IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0
EndSub
实验7.3
程序的界面设计。
程序代码。
PrivateSubCommand1_Click（）
a=Text1.Text
b=Text2.Text
c=Text3.Text
d=Text4.Text
If（a="admin"）And（b="admin"）Then
Ifc=dThen
MsgBox"密码修改成功"
Else
MsgBox"密码输入不一致，请重新输入"
Text3.Text=""
Text4.Text=""
EndIf
Else
MsgBox"用户名与密码不一致，请重新输入"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
实验7.4（选做）
程序的界面设计。
程序代码。
DimbAsString,iAsInteger,dAsString,cAsInteger
PrivateSubCommand1_Click（IndexAsInteger）
SelectCaseIndex
Case0
a=Text1.Text&1
Text1.Text=a
Case1
a=Text1.Text&2
Text1.Text=a
Case2
a=Text1.Text&3
Text1.Text=a
Case3
a=Text1.Text&4
Text1.Text=a
Case4
a=Text1.Text&5
Text1.Text=a
Case5
a=Text1.Text&6
Text1.Text=a
Case6
a=Text1.Text&7
Text1.Text=a
Case7
a=Text1.Text&8
Text1.Text=a
Case8
a=Text1.Text&9
Text1.Text=a
Case9
a=Text1.Text&0
Text1.Text=a
EndSelect
EndSub
PrivateSubTimer1_Timer（）
k=Len（b）
i=i+1
c=Mid（b,i,1）
d=d&c
IfiModk=0ThenTimer1.Enabled=False
Text1.Text=d
EndSub
PrivateSubCommand2_Click（）
b=Text1.Text
Text1.Text=""
Timer1.Enabled=True
d=""
i=0
EndSub
五、实验结果及分析
实验7.1运行结果。
实验7.2运行结果。
实验7.3运行结果。
实验7.4运行结果。
（选做）
六、实验总结与思考（主要写一些在实验过程中，遇到的问题、所犯的错误，以及是如何发现纠正的。
大约100至200字左右。
）
升级会员 