台州学院《VB程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
》实验报告实验七:常用控件班级: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=1ThenLabel1.FontBold=TrueElseLabel1.FontBold=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenLabel1.FontItalic=TrueElseLabel1.FontItalic=FalseEndIfEndSubPrivateSubOption1_Click()Label1.FontName=Option1.CaptionEndSubPrivateSubOption2_Click()Label1.FontName=Option2.CaptionEndSub实验7.2程序的界面设计。程序代码。PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.Enabled=TrueElseText1.Enabled=FalseText1.Text=""EndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText2.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.Text)*25b=MsgBox("总金额为"&a&"元",vbInformation,"金额")EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSubPrivateSubText3_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSub实验7.3程序的界面设计。程序代码。PrivateSubCommand1_Click()a=Text1.Textb=Text2.Textc=Text3.Textd=Text4.TextIf(a="admin")And(b="admin")ThenIfc=dThenMsgBox"密码修改成功"ElseMsgBox"密码输入不一致,请重新输入"Text3.Text=""Text4.Text=""EndIfElseMsgBox"用户名与密码不一致,请重新输入"Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndIfEndSubPrivateSubCommand2_Click()EndEndSub实验7.4(选做)程序的界面设计。程序代码。DimbAsString,iAsInteger,dAsString,cAsIntegerPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0a=Text1.Text&1Text1.Text=aCase1a=Text1.Text&2Text1.Text=aCase2a=Text1.Text&3Text1.Text=aCase3a=Text1.Text&4Text1.Text=aCase4a=Text1.Text&5Text1.Text=aCase5a=Text1.Text&6Text1.Text=aCase6a=Text1.Text&7Text1.Text=aCase7a=Text1.Text&8Text1.Text=aCase8a=Text1.Text&9Text1.Text=aCase9a=Text1.Text&0Text1.Text=aEndSelectEndSubPrivateSubTimer1_Timer()k=Len(b)i=i+1c=Mid(b,i,1)d=d&cIfiModk=0ThenTimer1.Enabled=FalseText1.Text=dEndSubPrivateSubCommand2_Click()b=Text1.TextText1.Text=""Timer1.Enabled=Trued=""i=0EndSub五、实验结果及分析实验7.1运行结果。实验7.2运行结果。实验7.3运行结果。实验7.4运行结果。(选做)六、实验总结与思考(主要写一些在实验过程中,遇到的问题、所犯的错误,以及是如何发现纠正的。大约100至200字左右。)