vb顺序结构实验报告

《vb顺序结构实验报告》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、实验报告（2011—2012学年第2学期）课程名称：计算机程序设计（VB）xxx经济管理学院姓名：学院：会计学专业专业：xxxxxxxxxxx年级：2011级学号：实验报告2012年03月23日第7.8节综合楼624号室进入实验室时间进入时仪器设备状况离开实验室时间离开时仪器设备状况机器号13：35正常15：10正常30实验项目名称实验二顺序结构一、实验目的1.掌握正确书写表达式、赋值语句的规则；2.掌握常用函数的使用；3.掌握InputBox和MsgBox的使用；4.掌握Print方法和Format格式的使用。。二、实验内容1.计算某人的BMI指数（体重健康指数）

2、2.计算商品总金额（实验教程2.4）。3.课本实验3.3.1。三、实验过程（步骤、命令）及结果（截图、源程序）（一）做自行选题1(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性Label1Caption=”身高”；Font属性：字号为二号，字体为隶书Label2Caption=”体重”；Font属性：字号为二号，字体为隶书Command1Capion=”BMI指数”Text1Text=””Text2Text=””Text3Text=””设置后的界面如下图（2）设置代码。对Comman

3、d1的Click（单击）事件添加如下代码：Dimh!,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)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性Form1Caption="计算商品总金额"Label1Caption=”商品1”；Font属性：字号为二号，字体为隶书Lab

4、el2Caption=”商品2”；Font属性：字号为二号，字体为隶书Label3Caption=”商品3”；Font属性：字号为二号，字体为隶书Label4Caption=”单价”；Font属性：字号为二号，字体为隶书Label5Caption=”数量”；Font属性：字号为二号，字体为隶书Label6Caption=”总计”；Font属性：字号为二号，字体为隶书Label7Caption=”0”；Font属性：字号为二号，字体为隶书Command1Capion=”计算”Text1Text=””Text2Text=””Text3Text=””Text4Text=”

5、”Text5Text=””Text6Text=””设置后的界面如下图（2）设置代码对Command1的Click（单击）事件添加如下代码：PrivateSubCommand1_Click()Dima1AsSingle,b1AsSingle,c1AsSingleDima2AsInteger,b2AsInteger,c2AsIntegerDimxAsSinglea1=Val(Text1.Text)a2=Val(Text4.Text)b1=Val(Text2.Text)b2=Val(Text5.Text)c1=Val(Text3.Text)c2=Val(Text6.Tex

6、t)x=a1*a2+b1*b2+c1*c2Label7.Caption=Val(Label7.Caption)+xEndSub设置后详见下图：运行后在文本框中输入“15”，“2”，“13","7","24","1"单击按钮后的界面图如下：（三）做自行选题3(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性Command1Capion=”比较”Text1Text=””Text2Text=””Text3Text=””Text4Text=””Text5Text=””Label1Caption

7、=”A”；Font属性：字号为二号，字体为隶书Label2Caption=”B”；Font属性：字号为二号，字体为隶书Label3Caption=”C”；Font属性：字号为二号，字体为隶书Label4Caption=”D”；Font属性：字号为二号，字体为隶书设置后的界面如下图（2）设置代码对Command1的Click（单击）事件添加如下代码：Privatesubcmd_click()DimS1!,s2!,AB!,BD!,AC!,CD!AB=Val(Text1.Text)BD=Val(Text2.Text)AC=Val(Text2.Text)CD=Val(T