VB实验报 告7

《VB实验报 告7》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、台州学院《VB程序设计》实验报告实验七：常用控件班级：10物理2学号：姓名：实验日期：2011一、实验目的和要求1．掌握基本控件的重要属性、事件；2．熟练掌握在窗体上建立上述控件的操作方法；3．熟练掌握事件过程代码的编写；4．初步掌握建立基于图形界面的应用程序的过程。二、实验主要仪器和设备计算机一台，WindowsXP操作系统，VisualBasic环境。三、实验内容实验7.1设计一个字体修饰的程序，界面如图7-1所示。要求：框架1中有两个复选框，可以选择粗体和斜体对标签中的文字进行修饰；框架2中有两个单选按钮，可以选择宋体或楷体对标

2、签中的文字进行修饰；标签Label1的文字内容为“VisualBasic程序设计”，宋体，常规，三号；文字对齐方式为居中。图7-1字体修饰实验7.2设计一个点菜的程序，界面如图7-2所示。要求：框架中的复选框提供可选择的三种套餐，右边的文本框中可以输入数量；输入时文本框只接受数字键；并且只有选取了相应的套餐后才可以进行输入；如果没有选取套餐，那么文本框不能编辑并清空；单击“确定”按钮，统计点餐的金额，并用消息框显示出来；图7-2点菜实验7.3设计一密码修改程序，要求。1）当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若

3、一致且都为“admin”，则继续执行步骤2；否则弹出消息框，提示用户出错，并让用户重新输入。2）比较“新密码(N)”和“新密码(S)”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。3）当单击“取消”按钮后，程序终止执行。图7-3密码修改实验7.4（选做）设计一个拨号盘的程序。界面如图7-4所示。要求：命令按钮数组构成数字键，单击数字键按钮，将拨号的内容显示在文本框Text1中；单击“重拨”按钮，再现原来的拨号过程；（提示：再现过程由定时器实现）定时器的时间间隔为0.5秒；设置文本框最多接受10

4、个字符。图7-4拨号盘四、实验原始纪录实验7.1程序的界面设计。程序代码。PrivateSubCheck1_Click()IfCheck1.Value=1ThenLabel1.FontBold=TrueElseLabel1.FontBold=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenLabel1.FontItalic=TrueElseLabel1.FontItalic=FalseEndIfEndSubPrivateSubOption1_Click()Labe

5、l1.FontName=Option1.CaptionEndSubPrivateSubOption2_Click()Label1.FontName=Option2.CaptionEndSub实验7.2程序的界面设计。程序代码。PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.Enabled=TrueElseText1.Enabled=FalseText1.Text=""EndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText

6、2.Enabled=TrueElseText2.Enabled=FalseText2.Text=""EndIfEndSubPrivateSubCheck3_Click()IfCheck3.Value=1ThenText3.Enabled=TrueElseText3.Enabled=FalseText3.Text=""EndIfEndSubPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=Val(Text1.Text)*13+Val(Text2.Text)*18+Val(Text3.

7、Text)*25b=MsgBox("总金额为"&a&"元",vbInformation,"金额")EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSubPrivateSubText3_KeyPress(KeyAsciiAsIn

8、teger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSub实验7.3程序的界面设计。程序代码。PrivateSubCommand1_Click()a=Text1.Textb=