VB实验报告7参考模板

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

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

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

4、.Value = 1 ThenLabel1.FontBold = TrueElseLabel1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenLabel1.FontItalic = TrueElseLabel1.FontItalic = FalseEnd IfEnd SubPrivate Sub Option1_Click()Label1.FontName = Option1.CaptionEnd SubPrivate Sub Option2_Click()Label1.FontNa

5、me = Option2.CaptionEnd Sub实验7.2程序的界面设计。程序代码。Private Sub Check1_Click()If Check1.Value = 1 ThenText1.Enabled = TrueElseText1.Enabled = FalseText1.Text = ""End IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenText2.Enabled = TrueElseText2.Enabled = FalseText2.Text = ""En

6、d IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 ThenText3.Enabled = TrueElseText3.Enabled = FalseText3.Text = ""End IfEnd SubPrivate Sub Command1_Click()Dim a As Integer, b As Integera = Val(Text1.Text) * 13 + Val(Text2.Text) * 18 + Val(Text3.Text) * 25b = MsgBox("总金额为"

7、& a & "元", vbInformation, "金额")End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0End SubPrivate Sub

8、Text3_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0End Sub实验7.3程序的界面设计。程序代码。Private Sub Command1_Click()a = Text1.Textb = Text2.Textc = Text3.Textd = Text4.TextIf (a = "admin") And (b = "admin") ThenIf c = d ThenMsgBox "密码修改成功"El

9、seMsgBox "密码输入不一致，请重新输入"Text3.Text = ""Text4.Text = ""End IfElseMsgBox "用户名与密码不一致，请重新输入"Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub实验7.4（选做）程序的界面设计。程序代码

10、。Dim b As String, i As Integer, d As String, c As IntegerPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0a = Text1.Text & 1Text1.Text = aCase 1a = Text1.Text & 2Text1.Text = aCase 2a = Text1.Text & 3Text1.Text = aCase 3a = Text1.Text & 4Text1.Text = aCase 4a = Text

11、1.Text & 5Text1.Text = aCase 5a = Text1.Text & 6Text1.Text = aCase 6a = Text1.Text & 7Text1.Text = aCase 7a = Text1.Text & 8Text1.Text = aCase 8a = Text1.Text & 9Text1.Text = aCase 9a = Text1.Text & 0Text1.Text = aEnd SelectEnd SubPrivate Sub Timer1_Timer()k = Len(b)i = i + 1c = Mid(b, i, 1)d = d & cIf i Mod k = 0 Then Timer1.Enabled = FalseText1.Text = dEnd SubPrivate Sub Command2_Click()b = Text1.TextText1