vb顺序结构实验报告.docVIP

实 验 报 告 （ 2011 —2012 学年第 2 学期） 课程名称： 计算机程序设计（VB） 姓 名： 学 院： 专 业： 年 级： 2011 级 学 号： 实 验 报 告 2012 年 03 月 23日 第 7.8 节 综合 楼 624 号室 进入实验室 时间 进入时仪器 设备状况 离开实验室 时间 离开时仪器 设备状况 机器号 13：35 正常 15：10 正常 30 实验项目名称 实验二 顺序结构 一、实验目的 掌握正确书写表达式、赋值语句的规则； 掌握常用函数的使用； 掌握InputBox和MsgBox的使用； 掌握Print方法和Format格式的使用。。 实验内容 1.计算某人的BMI指数（体重健康指数） 2.计算商品总金额（实验教程2.4）。 3.课本实验3.3.1。 三、实验过程（步骤、命令）及结果（截图、源程序） （一）做自行选题1 (1)设置用户界面并进行属性设置 创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。 控件及属性设置表 控件名 属性 Label1 Caption=”身高”；Font属性：字号为二号，字体为隶书 Label2 Caption=”体重”；Font属性：字号为二号，字体为隶书 Command1 Capion=”BMI指数” Text1 Text=”” Text2 Text=”” Text3 Text=”” 设置后的界面如下图 设置代码。 对Command1的Click（单击）事件添加如下代码： Dim h ! , t ! , bmi ! h = Val (Text1 . Text) T = Val (Text2 .Text) Bmi = Round(t / (h * h), 2) Text3.Text = Str(bmi) 设置后详见下图： 运行后在文本框中输入“1.70”，“85”单击按钮后的界面图如下： （二）做自行选题2 (1)设置用户界面并进行属性设置 创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。 控件及属性设置表 控件名 属性 Form1 Caption=计算商品总金额 Label1 Caption=”商品1”；Font属性：字号为二号，字体为隶书 Label2 Caption=”商品2”；Font属性：字号为二号，字体为隶书 Label3 Caption=”商品3”；Font属性：字号为二号，字体为隶书 Label4 Caption=”单价”；Font属性：字号为二号，字体为隶书 Label5 Caption=”数量”；Font属性：字号为二号，字体为隶书 Label6 Caption=”总计”；Font属性：字号为二号，字体为隶书 Label7 Caption=”0”；Font属性：字号为二号，字体为隶书 Command1 Capion=”计算” Text1 Text=”” Text2 Text=”” Text3 Text=”” Text4 Text=”” Text5 Text=”” Text6 Text=”” 设置后的界面如下图 （2）设置代码 对Command1的Click（单击）事件添加如下代码： Private Sub Command1_Click() Dim a1 As Single, b1 As Single, c1 As Single Dim a2 As Integer, b2 As Integer, c2 As Integer Dim x As Single a1 = Val(Text1.Text) a2 = Val(Text4.Text) b1 = Val(Text2.Text) b2 = Val(Text5.Te