VB顺序结构实验报告

1、实验报告（2011 2012 学年第2 学期）课程名称：计算机程序设计（vb）姓名：学院：专业：年级：2011 级学号：会计学专业经济管理学院xxx xxxxxxxxxxx 实验报告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)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性label1 caption=” 身高” ；font 属性：字号为二号，字体为隶书label2 caption=” 体重” ；font 属性：字号为二号，字体为隶书command1 capion=” bmi 指数”text1 text=”text2 text=”text3 text=”设置后的界面如下图（2） 设置代码。对

3、 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 captio

4、n=” 商品 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=” 计算”

5、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

6、 = 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) + x end sub 设置后详见下图：运行后在文本框中输入“15” ， “2” ， “13,7,24,1 单击按钮后的界面图如下：（三）做自行选题3 (1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性command

7、1 capion=” 比较”text1 text=”text2 text=”text3 text=”text4 text=”text5 text=”label1 caption=” a” ；font 属性：字号为二号，字体为隶书label2 caption=” b” ；font 属性：字号为二号，字体为隶书label3 caption=” c” ；font 属性：字号为二号，字体为隶书label4 caption=” d” ；font 属性：字号为二号，字体为隶书设置后的界面如下图（2）设置代码对 command1的 click（单击）事件添加如下代码：private sub cmd_clic

8、k() 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单击按钮后的界面图如下：四、存在问题及解决方法存在问

9、题： 1.码编写过程中，出现数据不完整红字提示。2.无法运算结果解决办法： 1.仔细检查并与书中例题相对照查处错因在代码末尾多加了一个逗号。2.代码格式书写错误 . 五、思考题解答1.如何使用 inputbox 函数输入一个数 ? inputbox(， ， ， 说明：1）提示信息：用于提示用户在输入框内输入什么样的信息，该项不能省略，长度不能超过1024 个字符。2）对话框标题：用于显示输入对话框的标题信息。3）输入区的默认值：该信息显示在输入框内，如果用户不输入新值，当用户单击“确定”钮后，该值被当做默认只返回。4）对话框坐标：用于确定对话框的位置，表示对话框的左上角到屏幕左边界和上边界的距

10、离，必须成对出现，用个逗号分隔。2.如何使用 msgbox函数或 msgbox过程输出一行提示信息 ? msgbox(, , , ) 3. print 方法中的“ ,”与“ ;”有什么区别 ?如何输出一个空行？语句尾部加分号“；”代表将光标定位在上一个显示的字符之后。逗号“，”代表将光标定位在下一个打印区的开始位置。表达式列表如果省略则打印一个空白行。一、实验目的5.掌握正确书写表达式、赋值语句的规则；6.掌握常用函数的使用；7.掌握 inputbox 和 msgbox 的使用；8.掌握 print 方法和 format格式的使用。三、实验内容1. 从以下内容中自选三个题：2. 做实验二中实验

11、内容；3. 教材中的例题及习题；4. 符合本次实验要求的自选题。三、实验过程（步骤、命令）及结果（截图、源程序）（一）做自行选题1 (1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性label1 caption=” 身高” ；font 属性：字号为二号，字体为隶书label2 caption=” 体重” ；font 属性：字号为二号，字体为隶书command1 capion=” bmi 指数”text1 text=”text2 text=”text3 text=”设置后的界面如下图（2）设置代码对 command

12、1的 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)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性label1 caption=” 商品 1” ；font 属性：字号为二号，字体为隶书

13、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

14、text=”text4 text=”text5 text=”text6 text=”设置后的界面如下图（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.t

15、ext) c1= val(text5.text) c2 = val(text6.text) x = a1 * a2 + a1 * b1 + c1 *c2 lb17.caption = val(lb17.caption) + x end sub 设置后详见下图：运行后在文本框中输入“15” ， “13” ， “24,2,7,1 单击按钮后的界面图如下：（三）做自行选题3 (1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性command1 capion=” 比较”text1 text=”text2 text=”tex

16、t3 text=”text4 text=”text5 text=”label1 caption=” a” ；font 属性：字号为二号，字体为隶书label2 caption=” b” ；font 属性：字号为二号，字体为隶书label3 caption=” c” ；font 属性：字号为二号，字体为隶书label4 caption=” d” ；font 属性：字号为二号，字体为隶书设置后的界面如下图（2）设置代码对 command1的 click（单击）事件添加如下代码：private sub cmd_click() dim s1!, s2!, ab!, bd!, ac!, cd! ab =

17、 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）对话框标题：用于显示输入对话框的