VB实验报告1
《软件开发工具》实验报告
实验一 VB环境、可视化编程和顺序结构
实验学时：4学时
班级名称：信管091班
学生学号：0810*******
学生姓名：郝培军
指导教师：赵苑苑
实验时间：2012-9-20
一、实验目的：
1.了解Visual Basic系统的安装
2.掌握启动与退出Visual Basic的方法
3.掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程
4.掌握基本控件（窗体、文本框、标签、命令按钮）的应用
二、实验内容及步骤：
1.启动Visual Basic6.0，创建一个“标准EXE”类型的应用程序，要求：在屏幕上显示“欢迎学习Visual Basic”，并在“请输入你的姓名”标签后的文本框Text1中输入姓名；单击“你输入的姓名是”按钮，在label3标签显示在文本框Text1输入的姓名
（1）创建工程
打开[开始]-----[程序]---[ Microsoft Visual Basic6.0中文版]，在弹出窗口选择[标准EXE]
（2）设计界面。
拖动一个命令按钮（CommandButton1）和三个标签控件（Label，label2，label3）以及一个文本框（text1）到窗体上，调整各控件的大小和位置。
（3）设计属性。
从属性列表框中设置各控件的属性，设置Command1的Caption(标题)属性为“你输入的名字是”，设置设置Label1的Caption(标题)属性为“请输入你的姓名”。如图1.11所示。
（4）编写程序代码。
代码如下：
If Text1.Text = "" Then
MsgBox ("请先输入您的姓名！")
Else
Label3.Caption = Text1.Text
End If
（5）实验结果
单击确定按钮时，标签上显示“郝培军”，如图1.12所示。
图1.11 图1.12
2．命令按钮、字号、内容和格式的复制练习。
（1）创建工程
打开[开始]-----[程序]---[ Microsoft Visual Basic6.0中文版]，在弹出窗口选择[标准EXE]
（2）设计界面。
拖动两个命令按钮（Command1和Command2）和一个标签控件（Label1）以及两个文本框（text1，text2）到窗体上，调整各控件的大小和位置。
（3）设计属性。
从属性列表框中设置各控件的属性，设置Command1的Caption 属性为“隶书25磅”，设置Command2的Caption(标题)属性为“复制=>”，设置Label1的Caption(标题)属性为“复制效果 输入文本”, 设置text1的text 属性为“VB 功能强大，但要下功夫学习才能学好” 如图1.21所示。
图1.21
（4）编写程序代码。
代码如下：
Private Sub Command1_Click() If Text1.Text = "" Then MsgBox ("请输入文字！")
Else Text1.FontSize = 25 https://www.wendangku.net/doc/8310489253.html, = "隶书"
End If End Sub Private Sub Command2_Click() If Text1.Text = "" Then MsgBox ("请输入文字！")
ElseIf Text1.SelText = "" Then MsgBox ("请选择要复制文本！")
Else Text2.Text = "" Text2.FontSize = 25
https://www.wendangku.net/doc/8310489253.html, = "隶书"
Text2.Text = Text1.SelText End If
End Sub
Private Sub Form_Load()
Label1.Caption = "输入文本"
Label2.Caption = "复制文本"
Command1.Caption = "隶书25磅"
Command2.Caption = "复制=>"
Command1.FontSize = 15 Command2.FontSize = 15
Text1.Text = "" Text2.Text = ""
End Sub
（5）实验结果
单击“隶书25磅”按钮时，如图1. 22所示。单击“复制=>”按钮时，如图1. 23所示。
图1.22 图1.23
3、编一个华氏温度与摄氏温度之间转换的程序，运行界面下图所示，转换显示保留两位小数。
（1）创建工程
打开[开始]-----[程序]---[ Microsoft Visual Basic6.0中文版]，在弹出窗口选择[标准EXE]
（2）设计界面。
拖动两个命令按钮（Command1和Command2）和一个标签控件（Label1）以及两个文本框（text1，text2）到窗体上，调整各控件的大小和位置。
（3）设计属性。
从属性列表框中设置各控件的属性，设置Command1的Caption属性为“华氏转摄氏”，设置Command2的Caption(标题)属性为“摄氏转华氏”，设置Label1的Caption属性为“华氏温度摄氏温度”, 如图1.31所示。
图1.31
（4）编写程序代码。
代码如下：
Private Sub Command1_Click(Index As Integer)
If Text1(0).Text = "" Then
MsgBox ("“华氏温度”不得为空！")
ElseIf IsNumeric(Text1(0).Text) = False Then
MsgBox ("请输入数字！")
Text1(0).Text = ""
Else
f = Val(Text1(0).Text)
Text1(1).Text = 5 / 9 * (f - 32)
End If
End Sub
Private Sub Command2_Click(Index As Integer) If Text1(1).Text = "" Then
MsgBox ("“摄氏温度”不得为空！”") ElseIf IsNumeric(Text1(1).Text) = False Then MsgBox ("请输入数字！")
Text1(1).Text = ""
Else
c = Val(Text1(1).Text)
Text1(0).Text = 9 / 5 * c + 32
End If
End Sub
Private Sub Command3_Click()
If Text1(0).Text = "" And Text1(1).Text = "" Then MsgBox "已经为空！"
Else Text1(0).Text = ""
Text1(1).Text = ""
MsgBox "清空完毕！"
End If
End Sub
Private Sub Form_Load()
Label1(0).Caption = "华氏温度" Label1(1).Caption = "摄氏温度" Text1(0).Text = ""
Text1(1).Text = ""
Command1(0).Caption = "华氏转" Command2(1).Caption = "摄氏转" Command3.Caption = "清除" Dim f As Integer, c As Integer End Sub
（5）实验结果
单击“华氏转摄氏”按钮时，如图1.32所示。单击“摄氏转华氏”按钮时，如图1.32所示。
图1.32 图1.33
三、实验中遇到的问题及解决方法：
在本次实验中遇到以下几个问题：
1、把label写成lable,caption写成name，并把label的captiong 属性写成了text；
2、在第二个程序中的“复制=>”按钮执行时，不能把text1中的内容在执行“隶书25磅”
按钮后的效果复制到text2中，最后在“复制=>”按钮的click事件中添加了相关代码得以实现；
3、Msgbox函数后面加括号与不加括号的效果竟然差别那么大，一个有返回值，一个可以没
有返回值，通过msgbox函数得出，vb语言比pb语言更加灵活。