《VB 程序设计》实验报告 实验七：常用控件.docxVIP

页眉 台州学院 《VB 程序设计》实验报告 实验七：常用控件 班级： 10 物理 2 学号： 姓名： 实验日期： 2011 1 / 12 页眉 一、实验目的和要求 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） 当单击“取消”按钮后，程序终止执行。 2 / 12 页眉 图 7-3 密码修改 实验 7.4（选做）设计一个拨号盘的程序。界面如图 7-4 所示。要求：命令按钮数组构 成数字键，单击数字键按钮，将拨号的内容显示在文本框 Text1 中；单击“重拨”按钮，再 现原来的拨号过程； （提示： 再现过程由定时器实现） 定时器的时间间隔为 0.5 秒；设置文本框最多接受 10 个字符。 7-4 拨号盘 四、实验原始纪录 实验 7.1 程序的界面设计 。 3 / 12 页眉 4 / 12 页眉 程序代码。 Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub Private Sub Option1_Click() Label1.FontName = Option1.Caption End Sub Private Sub Option2_Click() Label1.FontName = Option2.Caption End Sub 实验 7.2 程序的界面设计 。 5 / 12 页眉 程序代码。 Private Sub Check1_Click() If Check1.Value = 1 Then Text1.Enabled = True Else Text1.Enabled = False Text1.Text = End If End Sub Private Sub Check2_Click() 6 / 12 页眉 If Check2.Value = 1 Then Text2.Enabled = True Else Text2.Enabled = False Text2.Text = End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then Text3.Enabled = True Else Text3.Enabled = False Text3.Text = End If End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a = Val(Text1.Text) * 13 + V al(Text2.Text) * 18 + Val(Text3.Text) * 25 b = MsgBox( 总金额为 a 元 , vbInformation, 金额 ) End Sub