VB实验一 实验报告

实验报告一

实验目的

（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

T ext5.T ext = T ext5.T ext

End If

End Sub

【实验4 典型结果】

【实验5】使用Inputbox任意输入三个边长，判断是否能构成三角形，若能构成三角形，

则判断该三角形是等边、等腰还是一般三角形（15分）

实验结果：

【实验5 代码】Private Sub Form_click()

Dim a%, b%, c%

a = Val(InputBox(x)):

b = Val(InputBox(x)):

c = Val(InputBox(x))

If a + b > c And a + c > b And b + c > a Then

If a = b And b = c Then

Print "是等边三角形"

ElseIf a = b Or b = c Or a = c Then

Print "是等腰三角形"

Else

Print "是一般三角形"

End If

Else

Print "不是三角形"

End If

End Sub

【实验5 典型结果】

【选做2】求解分段函数，要求输入x的值，输出计算得到的y值（5分）

实验结果：

?

?

?

?

?

?

?

≥

<

≤

<

≤

<

=

2000

3

2000

1000

2

1000

500

5.1

500

x

x

x

x

x

x

x

x

y

【选做2 代码】

Private Sub Form_Click()

T ext1.T ext = Val(InputBox("请输入一个数")) x = T ext1.T ext

Select Case x

Case Is >= 2000

T ext2.T ext = 3 * x

Case Is < 500

T ext2.T ext = x

Case Is >= 500, Is < 1000

T ext2.T ext = 1.5 * x

Case Is >= 1000, Is < 2000

T ext2.T ext = 2 * x

End Select

End Sub

【选做2 典型结果】

实验小结

1.遇到的问题：

2.对课程的建议：