实验报告一
实验目的
（1）熟悉Visual Basic6.0集成开发环境
（2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握选择控制结构（If、Select case）语句实现程序分支
（4）掌握控制结构相关控件（单选按钮、复选框）
（5）能综合运用选择及循环控制结构解决较复杂的问题
实验内容
一、VB环境和顺序结构
【实验1】设计一个简单VB程序（10分）
它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。
实验结果：
【实验1 代码】
Private Sub Command1_Click()
T ext1.T ext = "Visual Basic的程序设计示例"
Form1.Print "你好"
End Sub
T ext1.T ext = "" '清除文本框中的内容
Form1.Cls '清除窗体上打印的内容
End Sub
Private Sub Command3_Click()
End
End Sub
【实验1 典型结果】
【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分）
程序界面如下所示
实验结果：
【实验2 代码】
Dim a As Integer, b%, c%
Dim s As Integer
a = T ext1.T ext:
b = T ext2.T ext:
c = T ext3.T ext
s = (a + b + c) / 2
T ext4.T ext = Sqr(s * (s - a) * (s - b) * (s - c))
End Sub
Private Sub Command2_Click()
End
End Sub
【实验2 典型结果】
【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分）
实验结果：
【方法1 代码】
Private Sub Form_Click()
Dim a, b, c, d, e
a = Int(Rnd * 900 + 100)
c = Right(a, 1) & Mid$(a, 2, 1) & Left(a, 1) Print a; T ab(20); c
End Sub
Private Sub Form_Load()
Print "随机数", T ab(20); "逆序数"
End Sub
【方法1 典型结果】
【方法2 代码】
Private Sub Form_Click()
Dim a, c, b, d, e
a = Int(Rnd * 900 + 100)
b = a \ 100:
c = (a Mo
d 100) \ 10: d = a Mod 10
e = d * 100 + c * 10 + b
Print a; T ab(20); e
End Sub
Private Sub Form_Load()
Print "随机数", T ab(20); "逆序数"
End Sub
【方法2 典型结果】
二、选择结构
【实验3】输入一年份，判断它是否为闰年，并显示有关信息。判断闰年的条件为：1.能被4整除，但不能被100整除，2.或者能被400整除（注意各个条件表达式的括号）（20分）
实验结果：
【实验3 代码】
Private Sub Command1_Click()
Dim year As Integer
year = InputBox("请输入年份")
If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then MsgBox year & "是闰年"
Else
MsgBox year & "不是闰年"
End If
End Sub
【实验3 典型结果】
【实验4】任意输入三个数，求三个数中最大数和最小数（15分）
实验结果：
【实验4 代码】
Private Sub Command1_Click()
Dim a%
Dim b%
Dim c%
a = T ext1.T ext:
b = T ext2.T ext:
c = T ext3.T ext
If a > b Then
T ext4.T ext = a: T ext5.T ext = b
Else
T ext4.T ext = b: T ext5.T ext = a
End If
If c > a Then
T ext4.T ext = c
Else
T ext4.T ext = T ext4.T ext
End If
If c < b Then
T ext5.T ext = c
Else
