5003612936vb顺序结构实验报告.doc
实 验 报 告（ 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.4）。3.课本实验3.3.1。三、实验过程（步骤、命令）及结果（截图、源程序） （一）做自行选题1(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性Label1Caption=”身高”；Font属性：字号为二号，字体为隶书Label2Caption=”体重”；Font属性：字号为二号，字体为隶书Command1Capion=”BMI指数”Text1Text=”Text2Text=”Text3Text=” 设置后的界面如下图（2） 设置代码。 对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)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性Form1Caption="计算商品总金额"Label1Caption=”商品1”；Font属性：字号为二号，字体为隶书Label2Caption=”商品2”；Font属性：字号为二号，字体为隶书Label3Caption=”商品3”；Font属性：字号为二号，字体为隶书Label4Caption=”单价”；Font属性：字号为二号，字体为隶书Label5Caption=”数量”；Font属性：字号为二号，字体为隶书Label6Caption=”总计”；Font属性：字号为二号，字体为隶书Label7Caption=”0”；Font属性：字号为二号，字体为隶书Command1Capion=”计算”Text1Text=”Text2Text=”Text3Text=”Text4Text=”Text5Text=”Text6Text=” 设置后的界面如下图 （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.Text) c1 = Val(Text3.Text) c2 = Val(Text6.Text) x = a1 * a2 + b1 * b2 + c1 * c2 Label7.Caption = Val(Label7.Caption) + xEnd Sub设置后详见下图： 运行后在文本框中输入“15”，“2”，“13","7","24","1"单击按钮后的界面图如下：（三）做自行选题3(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性Command1Capion=”比较”Text1Text=”Text2Text=”Text3Text=”Text4Text=”Text5Text=”Label1Caption=”A”；Font属性：字号为二号，字体为隶书Label2Caption=”B”；Font属性：字号为二号，字体为隶书Label3Caption=”C”；Font属性：字号为二号，字体为隶书Label4Caption=”D”；Font属性：字号为二号，字体为隶书设置后的界面如下图（2）设置代码对Command1的Click（单击）事件添加如下代码： Private sub cmd_click() Dim S1!, s2!, AB!, BD!, AC!, CD! AB = Val(Text1.Text) BD = Val(Text2.Text) AC = Val(Text2.Text) CD = Val(Text2.Text) S1 = AB + BD S2 = AC + CD If S1 > S2 Then Text5.Text = "经C城到D城快“ Else Text5.Text = "经B城到D城快“ End If End Sub设置后详见下图：n 运行后在文本框中输入“223”，“200”，“155","143"单击按钮后的界面图如下：四、存在问题及解决方法存在问题：1.码编写过程中，出现数据不完整红字提示。 2.无法运算结果解决办法：1.仔细检查并与书中例题相对照查处错因在代码末尾多加了一个逗号。 2.代码格式书写错误.五、 思考题解答1. 如何使用InputBox函数输入一个数?InputBox(<提示信息>，<对话框标题>，<输入区的默认值>，<对话框坐标> 说明：1） 提示信息：用于提示用户在输入框内输入什么样的信息，该项不能省略，长度不能超过1024个字符。2） 对话框标题：用于显示输入对话框的标题信息。3） 输入区的默认值：该信息显示在输入框内，如果用户不输入新值，当用户单击“确定”钮后，该值被当做默认只返回。4） 对话框坐标：用于确定对话框的位置，表示对话框的左上角到屏幕左边界和上边界的距离，必须成对出现，用个逗号分隔。2. 如何使用Msgbox函数或Msgbox过程输出一行提示信息?MsgBox(,< 提示信息> , <对话框类型> , <对话框标题>)3. Print方法中的“,”与“;”有什么区别?如何输出一个空行？语句尾部加分号“；”代表将光标定位在上一个显示的字符之后。逗号“，”代表将光标定位在下一个打印区的开始位置。表达式列表如果省略则打印一个空白行。一、实验目的5. 掌握正确书写表达式、赋值语句的规则；6. 掌握常用函数的使用；7. 掌握InputBox和MsgBox的使用；8. 掌握Print方法和Format格式的使用。三、 实验内容 1. 从以下内容中自选三个题： 2. 做实验二中实验内容； 3. 教材中的例题及习题； 4. 符合本次实验要求的自选题。三、实验过程（步骤、命令）及结果（截图、源程序） （一）做自行选题1(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性Label1Caption=”身高”；Font属性：字号为二号，字体为隶书Label2Caption=”体重”；Font属性：字号为二号，字体为隶书Command1Capion=”BMI指数”Text1Text=”Text2Text=”Text3Text=” 设置后的界面如下图（2） 设置代码 对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)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性Label1Caption=”商品1”；Font属性：字号为二号，字体为隶书Label2Caption=”商品2”；Font属性：字号为二号，字体为隶书Label3Caption=”商品3”；Font属性：字号为二号，字体为隶书Label4Caption=”单价”；Font属性：字号为二号，字体为隶书Label5Caption=”数量”；Font属性：字号为二号，字体为隶书Label6Caption=”总计”；Font属性：字号为二号，字体为隶书Label7Caption=”0”；Font属性：字号为二号，字体为隶书Command1Capion=”计算”Text1Text=”Text2Text=”Text3Text=”Text4Text=”Text5Text=”Text6Text=” 设置后的界面如下图 （2）设置代码对Command1的Click（单击）事件添加如下代码： Private sub cmd_click() Dim al As Single, b1 As Single, c1 As Single Dim a2 As Integer, b2 As Integer, c2 As Integer Dim x As Single al = Val(Text1.Text) a2 = Val(Text2.text) b1 = Val(Text3.text) b2 = Val(Text4.text) c1= Val(Text5.text) c2 = Val(Text6.text) x = a1 * a2 + a1 * b1 + c1 *c2 Lb17.Caption = Val(Lb17.caption) + xEnd Sub设置后详见下图： 运行后在文本框中输入“15”，“13”，“24","2","7","1"单击按钮后的界面图如下：（三）做自行选题3(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性Command1Capion=”比较”Text1Text=”Text2Text=”Text3Text=”Text4Text=”Text5Text=”Label1Caption=”A”；Font属性：字号为二号，字体为隶书Label2Caption=”B”；Font属性：字号为二号，字体为隶书Label3Caption=”C”；Font属性：字号为二号，字体为隶书Label4Caption=”D”；Font属性：字号为二号，字体为隶书设置后的界面如下图（2）设置代码对Command1的Click（单击）事件添加如下代码： Private sub cmd_click() Dim S1!, s2!, AB!, BD!, AC!, CD! AB = Val(Text1.Text) BD = Val(Text2.Text) AC = Val(Text2.Text) CD = Val(Text2.Text) S1 = AB + BD S2 = AC + CD If S1 > S2 Then Text5.Text = "经C城到D城快“ Else Text5.Text = "经B城到D城快“ End If End Sub设置后详见下图： 运行后在文本框中输入“223”，“155”，“200","143"单击按钮后的界面图如下：四、存在问题及解决方法存在问题：码编写过程中，出现数据不完整红字提示。解决办法：仔细检查并与书中例题相对照查处错因在代码末尾多加了一个逗号。 以后应该多看书，多与同学交流。六、 思考题解答3. 如何使用InputBox函数输入一个数?InputBox(<提示信息>，<对话框标题>，<输入区的默认值>，<对话框坐标> 说明：5） 提示信息：用于提示用户在输入框内输入什么样的信息，该项不能省略，长度不能超过1024个字符。6） 对话框标题：用于显示输入对话框的标题信息。7） 输入区的默认值：该信息显示在输入框内，如果用户不输入新值，当用户单击“确定”钮后，该值被当做默认只返回。8） 对话框坐标：用于确定对话框的位置，表示对话框的左上角到屏幕左边界和上边界的距离，必须成对出现，用个逗号分隔。4. 如何使用Msgbox函数或Msgbox过程输出一行提示信息?MsgBox(,< 提示信息> , <对话框类型> , <对话框标题>)3. Print方法中的“,”与“;”有什么区别?如何输出一个空行？语句尾部加分号“；”代表将光标定位在上一个显示的字符之后。逗号“，”代表将光标定位在下一个打印区的开始位置。表达式列表如果省略则打印一个空白行。
