实验一 VB编程基础

实验一 VB编程基本
一．实验目的
熟悉VB集成开发环境，掌握对象、类、封装、继承等面向对象的概念，掌握基于对象和基于事件的VB编程思想，掌握VB的基本语法，学会VB简单程序的设计。

二．实验条件和环境
Visual Basic6.0集成开发环境
三．实验任务和要求
1.VB集成环境的使用
2.条件判断语句在程序中的应用
3.循环语句在程序中的应用
四．实验内容
1. VB集成环境的使用
实验要求：
设计一个简单的应用程序，在窗体上绘出三个按钮和一个文本框，界面如下，要求单击显示按钮时，在文本框中显示“欢迎来到海事大学”; 单击清空按钮时,文本框内容清空；单击退出按钮时,退出程序。

实验步骤
(1) 新建工程，选择“标准EXE”
(2) 设计界面,用工具箱在窗体上分别绘制一个文本框Text1,和三个命令按纽command1,command2,command3. 然后调整控件大小，调整控件的位置。

(3) 设计属性
（4）编写代码
操作指导
(1)在设计属性时，为Text1文本框的Text属性值删除
(2)用相同的办法，将command1按钮，command2按钮，command3按钮的Caption属性分别设置为”显示”,“清空”,”退出”
(3) 分别为三个按钮编写代码.
Private Sub Command1_Click()
Text1.Text = "欢迎来到海事大学"
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
2. 条件判断语句在程序中的应用
实验要求：
在窗体上绘出两个标签，两个文本框和两个按钮，当用户输入两个数值后，求出两个数中的最大的数，运行如下图所示。

实验步骤
(1) 新建工程，选择“标准EXE”
(2) 设计界面,用工具箱在窗体上分别绘制两个标签，两个文本框,和两个命令按纽。

然后调整控件大小，调整控件的位置。

(3) 设计属性
（4）编写代码
操作指导
（1）在设计属性时，为Text1，Text2文本框的Text属性值删除
(2) 将Label1,Label2的Caption属性分别改为”输入第一个数”，”输入第二个数”
(3) 将command1按钮，command2按钮Caption属性分别设置为”最大值”,”退出”
(4) 分别为两个按钮编写代码.
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
c = a
Else
c = b
End If
MsgBox "两数中的最大数为" & c, , "最大值"
End Sub
Private Sub Command2_Click()
End
End Sub
3. 循环语句在程序中的应用
实验要求：
在窗体上绘出两个标签，一个文本框和一个按钮，当用户输入数值后，求出该数的阶乘，运行如下图所示。

实验步骤
(1) 新建工程，选择“标准EXE”
(2) 设计界面,用工具箱在窗体上分别绘制两个标签，一个文本框,和一个命令按纽。

然后调整控件大小，调整控件的位置。

(3) 设计属性
（4）编写代码
操作指导
（1）在设计属性时，为Text1文本框的Text属性值删除
(2) 将Label1的Caption属性分别改为”请输入一个整数”
Label2的Caption属性值删掉
(3) 将command1按钮的Caption属性设置为”计算”
(4) 为按钮编写代码.
Private Sub Command1_Click()
Dim i As Integer
Dim k As Integer
Dim s As Double
s = 1
k = Val(Text1.Text)
For i = 1 To k
s = s * i
Next
Label2.Caption = k & "!=" & s
End Sub。