VB实验报告7.docx
- 文档编号:23063303
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:12
- 大小:140.44KB
VB实验报告7.docx
《VB实验报告7.docx》由会员分享,可在线阅读,更多相关《VB实验报告7.docx(12页珍藏版)》请在冰豆网上搜索。
VB实验报告7
台州学院
《VB程序设计》实验报告
实验七:
常用控件
一、实验目的和要求
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="宋体"
EndSub
PrivateSubOption2_Click()
Label1.FontName="楷体"
EndSub
实验7.2
程序的界面设计。
程序代码。
PrivateSubCheck1_Click()
IfCheck1.Value=0Then
Text1.Text=""
Text1.Enabled=False
Else
Text1.Enabled=True
EndIf
EndSub
PrivateSubCheck2_Click()
IfCheck2.Value=0Then
Text2.Text=""
Text2.Enabled=False
Else
Text2.Enabled=True
EndIf
EndSub
PrivateSubCheck3_Click()
IfCheck3.Value=0Then
Text3.Text=""
Text3.Enabled=False
Else
Text3.Enabled=True
EndIf
EndSub
PrivateSubCommand1_Click()
DimsAsSingle
IfCheck1.Value=1Thens=13*Val(Text1.Text)
IfCheck2.Value=1Thens=s+18*Val(Text2.Text)
IfCheck3.Value=1Thens=s+25*Val(Text3.Text)
MsgBox"总价"&s&"元"
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text1.Enabled=False
Text2.Text=""
Text2.Enabled=False
Text3.Text=""
Text3.Enabled=False
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii
KeyAscii=0
EndIf
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii
KeyAscii=0
EndIf
EndSub
PrivateSubText3_KeyPress(KeyAsciiAsInteger)
IfKeyAscii
KeyAscii=0
EndIf
EndSub
实验7.3
程序的界面设计。
程序代码。
PrivateSubCommand1_Click()
IfText1.Text="admin"AndText2.Text="admin"Then
IfText3.Text=Text4.TextThen
MsgBox"密码修改成功。
"
End
Else
MsgBox"输入的新密码不一致,请重新输入。
"
EndIf
Else
MsgBox"用户名或密码错误,请重新输入。
"
EndIf
EndSub
PrivateSubCommand2_Click()
End
EndSub
实验7.4(选做)
程序的界面设计。
程序代码。
DimNumberAsString
DimnAsInteger
PrivateSubForm_Load()
Timer1.Enabled=False
Text1.MaxLength=10
Timer1.Interval=200
EndSub
PrivateSubCommand1_Click(IndexAsInteger)
Text1.Text=Text1.Text&Command1(Index).Caption
EndSub
PrivateSubCommand2_Click()
Number=Val(Text1.Text)
Text1.Text=""
n=0
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
Ifn n=n+1 Text1.Text=Text1.Text&Mid(Number,n,1) Else Timer1.Enabled=False EndIf EndSub 五、实验结果及分析 实验7.1运行结果。 实验7.2运行结果。 实验7.3运行结果。 实验7.4运行结果。 (选做) 六、实验总结与思考(主要写一些在实验过程中,遇到的问题、所犯的错误,以及是如何发现纠正的。 大约100至200字左右。 ) 又遇到了新的问题了,虽然在这个问题上花了很多时间,不过在老师的指导下终于解决问题了。 只是进度慢了很多。 希望以后能够快点结束。 不懂而且时间不够的话就果断问老师,以求节省时间。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 报告
![提示](https://static.bdocx.com/images/bang_tan.gif)