VB实验报告7台州学院.doc

台州学院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运行结果。（选做）六、实验总结与思考（主要写一些在实验过