VB上机实验报告.docVIP

VB上机实验报告 实验名称：程序设计语言（VB） 实验日期： 指导老师： 实验地点： 姓 名： 班 级： 学 号： 一、实验名称：实验5 顺序结构程序设计 二、实验目的： （1）掌握基本的输入输出操作（Inputbox、Msgbox、Print使用）。 （2）掌握顺序结构的程序设计方法。 三、实验内容： 1.课本的3.3、3.4、3.5、3.6、3.7、3.8 2.用图形、图像框控件实现图片切换和图片放大缩小。 3.根据提示，补充下列程序段，并在VB环境下调试： （1）鸡兔同笼问题。 （2）计算三角形的面积。 四、实验步骤及结果： 1、3.3： Private Sub Command1_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 3.4： Private Sub Command1_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 3.5： Private Sub Command1_Click() Dim r As Single, h As Single Dim area As Single, v As Single r = InputBox(请输入半径) h = InputBox(请输入高度) area = 2 * 3.14 * r * r + 2 * 3.14 * r * h v = 3.14 * r * r * h Print 圆柱体的半径为: r; 高为: h Print 表面积为: area Print 体积为: v End Sub 3.6： Private Sub Command1_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 3.7： Private Sub Command1_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 3.8： Private Sub Command1_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 Sub Command1_Click() Picture1.Picture = LoadPicture(App.Path + \春.jpg) End Sub Private Sub Command2_Click() Picture1.Picture = LoadPicture(App.Path + \夏.jpg) End Sub Private Sub Command3_Click() Picture1.Picture = LoadPicture(App.Path + \秋.jpg) End Sub Private Sub Command4_Click() Picture1.Picture = LoadPicture(App.Path + \冬.jpg) End Sub Private Sub Comm