已阅读5页,还剩5页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
台州学院VB程序设计实验报告实验七:常用控件班级: 学号:姓名: 实验日期: 一、实验目的和要求1掌握基本控件的重要属性、事件;2熟练掌握在窗体上建立上述控件的操作方法;3熟练掌握事件过程代码的编写;4初步掌握建立基于图形界面的应用程序的过程。二、实验主要仪器和设备计算机一台,Windows XP操作系统,Visual Basic环境。三、实验内容实验7.1 设计一个字体修饰的程序,界面如图7-1所示。要求:框架1中有两个复选框,可以选择粗体和斜体对标签中的文字进行修饰;框架2中有两个单选按钮,可以选择宋体或楷体对标签中的文字进行修饰;标签Label1的文字内容为“Visual Basic 程序设计”,宋体,常规,三号;文字对齐方式为居中。图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程序的界面设计。程序代码。Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End IfEnd SubPrivate Sub Option1_Click() Label1.FontName = 宋体End SubPrivate Sub Option2_Click() Label1.FontName = 楷体_GB2312End Sub 实验7.2程序的界面设计。程序代码。Private Sub Check1_Click(Index As Integer) If Check1(Index).Value = 0 Then Text1(Index).Enabled = FalseElse Text1(Index).Enabled = True Text1(Index).SetFocus End IfEnd SubPrivate Sub Command1_Click() Dim n As Integer, i As Integer For i = 0 To 2 If Check1(i).Value = 1 Then n = n + 13 * Val(Text1(i).Text) End If Next i MsgBox (您要付: & n & 元!)End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End IfEnd Sub实验7.3程序的界面设计。程序代码。Private Sub Command1_Click() If Text1.Text = admin And Text2.Text = admin Then If Text3.Text = Text4.Text Then MsgBox 密码修改成功。 End ElseMsgBox 输入的新密码不一致,请重新输入。 End If Else MsgBox 用户名或密码错误,请重新输入。 End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub实验7.4(选做)程序的界面设计。程序代码。Dim s As String, step As IntegerPrivate Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text + Command1(Index).CaptionEnd SubPrivate Sub Command2_Click() s = Text1.Text Text1.Text = step = 0 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() step = step + 1 If step = Len(s) Then Text1.Text = Text1.Text + Mid(s, step, 1) End IfEnd Sub五、实验结果及分析实验7.1运行结果。实验7.2运行结果。实验7.3运行结果。 实验7.4运行结果。(选做)六、实验总结与思考(主要写一些在实验过
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 液体橡胶项目综合评估报告
- 空气处理化学品:光触媒项目可行性研究报告
- 工业污水处理项目可行性分析报告
- 停车场项目实施方案(2篇)
- 商业项目实施方案(2篇)
- 中医护理方案总结(2篇)
- 社区营销方案总结报告(2篇)
- 化学人教版九上精创导学案:3.3.2 元素符号 元素周期表(学生版)
- 私域玩家手册
- 2024-2034年中国释压阀行业发展前景预测及投资战略研究报告
- 农村商业银行集中取款事件应急预案
- 雅安介绍课件
- 2023年淄博热力有限公司招聘笔试题库及答案解析
- 运动治疗技术考试题及答案
- 中建二局“大商务”管理实施方案20200713(终稿)
- 2023年中铁集装箱运输有限责任公司校园招聘笔试题库及答案解析
- 铁道部劳动合同书范本
- 《信息技术在幼儿园教育运用中存在的问题及优化策略(论文)4100字》
- 互联网+生态农业创业计划方案书-互联网-农业计划书
- 智慧水务项目部署实施步骤说明
- 保洁知识考试题库250题(含答案)
评论
0/150
提交评论