vb上机实验
实验二 命令按钮、文本框和标签
【实验目的】
1．掌握命令按钮、文本框和标签常用属性值的设置方法。
2．学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。 3．掌握命令按钮的主要事件的使用。
【实验内容】
1． 利用命令按钮、文本框和标签判断密码是否正确。 2． 建立应用程序，对两个文本框中输入的内容进行交换。
【实验要求与步骤】
1． 实验内容
要求: 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”；在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。 步骤：
（1）设计界面
在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图2－1所示。
图2－1初始界面 图2－2 设置属性后的界面
（2）设置属性
设置属性后的界面如图2－2所示。
表2－1属性设置
对象 Label1 属性 Caption 6
属性值 请输入密码： zjh
vb上机实验
Command1 Command2 Label2 Label2 Text1 Text1 Text1 Form1 （3）编写程序代码
Private Sub Command1_Click()
If Text1.Text=“goodbaby” Then
Label2.Caption=“欢迎使用本系统！” Else
Label2.Caption=“密码错误！请重新输入密码！” End If End Sub
Private Sub Command2_Click() End End Sub （4）运行程序
① 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。运行结果如图2－3所示。
Caption Caption Caption BorderStyle Text MaxLength PasswordChar Caption 登陆 退出 1-Fixed Single 16 * 登陆界面
图2－3 输入的密码正确
② 在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。运行结果如图2－4所示。
7 zjh
vb上机实验
图2－4 输入的密码错误
2． 实验内容 （1）设计界面
在窗体上放置两个Label 控件、两个TextBox控件和三个CommandButton控件。初 界面如图2－5所示。
图2－5 初始界面 图2—6 属性设置后的界面
（2）属性设置
设置属性后的界面如图2－6所示。
表2－2属性设置
对象 Form1 Label1 Label2 Text1 Text2 Command1 Command2 Command3
属性名称 Caption Caption Caption Text Text Name Caption Default Name Caption Name Caption
属性值 交换 输入第1个数 输入第2个数
空 空 CmdChange 交换 Ture CmdClear 清空 CmdExit 退出
（3）编写程序代码 Option Explicit
Private Sub CmdChange_Click( ) Dim temp As Integer
8
zjh
vb上机实验
temp=Text1.Text
Text1.Text=Text2.Text Text2.Text=temp End Sub
Private Sub CmdExit_Click( ) Unload Me End Sub
Private Sub CMdCLear_Click( ) Text1.Text=”” Text2.Text=”” Text1.SetFocus End Sub (4) 运行程序
执行结果如图2-7（a）、（b）所示。单击“清空”按钮并再数入数据，进行交换。
图2-7（a）交换前的界面 图2-7（b）单击交换后的界面
实验三 表达式、InputBox函数和MsgBox语句
9
zjh
vb上机实验
【实验目的】
1．掌握表达式的构成和如何求表达式的值。 2．掌握赋值语句的使用。
3．掌握InputBox函数的使用。 4．掌握MsgBox语句的使用。
【实验内容】
1.利用InputBox函数和MsgBox语句求圆的周长。
2.利用InputBox函数输入三角形的三边的长度a,b,c,计算三角形的面积并显示在窗体上。
【实验步骤与指导】
1．实验内容 (1) 设计界面
在窗体上添加一个命令按钮。初始界面如图3－1所示。
图3－1 初始界面 图3－2 设置属性后的界面 (2)．设置属性
表3－1 属性设置 对象 Command1 Form1 属性 Caption Caption 属性值 计算圆的周长 InputBox和MsgBox举例
设置属性后的界面如图3－2所示。 (3)．编写程序代码
Private Sub Command1_Click( )
Const pi = 3.14159
Dim r As Single, s As String, s2 As String Dim zhouchang As Single
s = InputBox(\请输入半径\输入半径\
r = Val(s)
10
zjh