VB上机实验报告.doc

文档介绍：VB上机实验报告
实验名称:程序设计语言(VB)
实验日期:
指导老师:
实验地点:
姓名:
班级:
学号:
一、实验名称:实验5 顺序结构程序设计
二、实验目的:
(1)掌握基本的输入输出操作(Inputbox、Msgbox、Print使用)。
(2)掌握顺序结构的程序设计方法。
三、实验内容:
、、、、、
、图像框控件实现图片切换和图片放大缩小。
,补充下列程序段,并在VB环境下调试:
(1)鸡兔同笼问题。
(2)计算三角形的面积。
四、实验步骤及结果:
1、:
Private mand1_Click()
Dim x As Integer, y As Integer
Dim s1 As String, s2 As String
x = 2: y = 1
s1 = x & "+" & y & "=" & x + y
s2 = x & "-" & y & "=" & x - y
MsgBox s1 & vbCrLf & s2, , "输出"
End Sub
:
Private mand1_Click()
Dim x As Integer, y As Integer
x = InputBox("请输入第1个整数", "输入", 0) '
y = InputBox("请输入第2个整数", "输入", 0) '
Print "第1个数为:" & x
Print "第2个数为:" & y
Print "和=" & x + y
Print "差=" & x - y
End Sub
:
Private mand1_Click()
Dim r As Single, h As Single
Dim area As Single, v As Single
r = InputBox("请输入半径")
h = InputBox("请输入高度")
area = 2 * * r * r + 2 * * r * h
v = * r * r * h
Print "圆柱体的半径为:" & r; "高为:" & h
Print "表面积为:" & area
Print "体积为:" & v
End Sub
:
Private mand1_Click()
Dim a As Single, b As Single, c As Single '
Dim s As Single, area As Single '
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
s = (a + b + c) / 2 '
area = Sqr(s * (s - a) * (s - b) * (s - c))
Label2 = "三角形的面积为:" & area '
End Sub
:
Private mand1_Click()
Dim a As Integer, b As Integer, t As Integer
a = Text1
b = Text2
t = a
a = b
b = t
Label2 = "交换后的值为:" & a & "," & b
End Sub
:
Private mand1_Click()
Dim x As Integer, s As Integer
Dim a As Integer, b As Integer
Dim c As Integer, d As Integer
x = InputBox("请输入一个四位整数")
a = x Mod 10
b = x \ 10 Mod 10
c = x \ 100 Mod 10
d = x \ 1000
s = a + b + c + d
Print x; "的各位数字之和为:"; s
End Sub
2、用图形、图像框控件实现图片切换和图片放大缩小:
图片切换:
Private mand1_Click()
= LoadPicture( + "\")
End Sub
Private mand2_Click()
= LoadPicture( + "\")
End Sub
Private mand3_Click()
= LoadPicture( + "\")
End Sub
Pr