VB顺序结构实验报告.doc

实验报告( 2011 — 2012 学年第 2 学期) 课程名称: 计算机程序设计( VB ) 姓名: 学院: 专业: 年级: 2011 级学号: 会计学专业经济管理学院 xxx xxxxxxxxxxx 实验报告 2012 年 03月 23日第 节综合楼 624 号室进入实验室时间进入时仪器设备状况离开实验室时间离开时仪器设备状况机器号 13:35正常 15:10正常 30 实验项目名称实验二顺序结构一、实验目的 、赋值语句的规则; ; InputBox 和 MsgBox 的使用; Print 方法和 Format 格式的使用。。二、实验内容 1. 计算某人的 BMI 指数(体重健康指数) 2. 计算商品总金额(实验教程 )。 3. 课本实验 。三、实验过程(步骤、命令)及结果(截图、源程序) (一)做自行选题 1 (1) 设置用户界面并进行属性设置创建一个新的窗体,在窗体中加入控件并设置相应的属性,详见控件及属性设置表。控件及属性设置表控件名属性 L abel1 C aption= ”身高”; Font 属性:字号为二号,字体为隶书 L abel2 C aption= ”体重”; Font 属性:字号为二号,mand1 Capion= ” BMI 指数” Text1 T ext= ”” Text2 T ext= ”” Text3 T ext= ””设置后的界面如下图(2)设置代码。 mand1 的 Click (单击)事件添加如下代码: Dim h!,t!, bmi !h= Val (Text1 . Text) T= Val (Text2 .Text) Bmi = Round(t / (h* h), 2) = Str(bmi) 设置后详见下图: 运行后在文本框中输入“ ”,“85”单击按钮后的界面图如下: (二)做自行选题 2 (1) 设置用户界面并进行属性设置创建一个新的窗体,在窗体中加入控件并设置相应的属性,详见控件及属性设置表。控件及属性设置表控件名属性 Form1 Caption=" 计算商品总金额" L abel1 C aption= ”商品 1”; Font 属性:字号为二号,字体为隶书 L abel2 C aption= ”商品 2”; Font 属性:字号为二号,字体为隶书 L abel3 C aption= ”商品 3”; Font 属性:字号为二号,字体为隶书 L abel4 C aption= ”单价”; Font 属性:字号为二号,字体为隶书 L abel5 C aption= ”数量”; Font 属性:字号为二号,字体为隶书 L abel6 C aption= ”总计”; Font 属性:字号为二号,字体为隶书 L abel7 C aption= ”0”; Font 属性:字号为二号,mand1 Capion= ”计算” Text1 T ext= ”” Text2 T ext= ”” Text3 T ext= ”” Text4 T ext= ”” Text5 T ext= ”” Text6 T ext= ””设置后的界面如下图( 2)设置代码 mand1 的 Click (单击)事件添加如下代码: Private mand1_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() a2= Val() b1= Val() b2= Val() c1= Val() c2= Val() x= a1* a2+ b1* b2+ c1* c2 = Val() +x End Sub 设置后详见下图: 运行后在文本框中输入“15”,“2”,“ 13","7","24","1" 单击按钮后的界面图如下: (三)做自行选题 3 (1) 设置用户界面并进行属性设置创建一个新的窗体,在窗体中加入控件并设置相应的属性,详见控件及属性设置表。控件及属性设置表控件名 mand1 Capion= ”比较” Text1 T ext= ”” Text2 T ext= ”” Text3 T ext= ”” Text4 T ext= ”” Text5 T ext= ”” L abel1 C aption= ”A”; Font 属性:字号为二号,字体为