VisualBasic程序设计教学全套课件第2版 宋汉珍电子资源 VB 作业6.doc

《VisualBasic程序设计教学全套课件第2版 宋汉珍电子资源 VB 作业6.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、小组成员：（机制1103）李猛-17，贾毅-16，张亚宾-32，杨晓坤-25，秦学朴-02《VisualBasic程序设计》综合作业题目：计算邮资说明：邮局对邮寄包裹有如下规定：若包裹长、宽、高任一尺寸超过一米或重量超过30千克，不予邮寄。对可以邮寄的包裹每件收手续费0.20元，重量与收费标准之间的关系如表所示。（邮资=手续费+重量*收费标准）重量（千克）收费标准（元）Wei<100.8010

2、千克，则不能邮寄包裹，否则可以邮寄，邮资=手续费+重量*收费标准。一、分析1．使用了2个文本框，1个用来输入数据，1个用来显示结果。属性设置为：Text1：Text空Text2：Text空2.使用3个标签，1个用于表示包裹重量，另2个用于表示单位属性设置为：Label1：Caption：请输入包裹重量Label2：Caption：千克Label3：Caption：元3.利用If条件语句完成了判断包裹是否符合邮寄条件及计算邮寄不同重量包裹所需邮资的功能。二、程序功能Text1控件用于输入包裹的重量，Text2控件用于显示计算结果，Label1控件用于提示信息Label2、La

3、bel3表示单位，Command1控件用于执行计算命令。三、程序代码PrivateSubCommand1_Click()DimlengthAsSingleDimwidAsSingleDimheiAsSingleDimweiAsSingleDimmAsSingleDimrAsSinglelength=Val(InputBox("请输入包裹的长度/米","长度"))wid=Val(InputBox("请输入包裹的宽度/米","宽度"))hei=Val(InputBox("请输入包裹的高度/米","高度"))wei=Val(Text1.Text)Iflength>1Orwid>1

4、Orhei>1Orwei>30ThenMsgBox"包裹不符合邮寄条件，不予邮寄！",,"提示"Text1.Text=""Text2.Text=""Text1.SetFocusElseIfwei<=10Thenr=0.8m=0.2+wei*rElseIfwei>10Andwei<=20Thenr=0.75m=0.2+wei*rElser=0.7m=0.2+wei*rEndIfEndIfText2.Text=Str(m)EndSub四、运行界面五、总结这次VB程序设计实验我们使用到了VB中的文本框控件（TEXT）、标签控件、命令按钮控件。我们按照老师的要求完成了程序设计。在其

5、过程中，我们遇到了很多问题和困难，发现在之前的学习中，所学的东西不能完全掌握。这次综合作业，是我在学习上的一次考验，让我深深体会到了实际操作的重要性，我们对所学知识有了进一步的理解。它使我了解自己的短处，让我知道要从什么方面对自己进行补充，这对我今后的学习和工作将产生很大的影响。六、新任务判断某种材料是脆性材料还是塑性在工程选材时，需要考虑材料的塑性，根据材料断裂对塑性变形的大小，通常把断后伸长率大于或等于5%的材料称为塑性材料。把断后伸长率小于5%的材料称为脆性材料。断后伸长率于长度关系为:&=（L1-L）/L*100%提示：设材料的原长为L，材料被拉断后的长度为L1，&

6、为断后伸长率，当&>=5%时，称为塑性材料；当&<5%时，称为脆性材料。