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

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

1、小组成员：(机制1101)张凯-11，孙永亚-36，徐世昌-15，王亚杰-23，李洪兵-33。《VisualBasic程序设计》综合作业题目：某服装店销售套服说明：某服装店销售套服，也可以单件出售。若购买不少于50套，每套80元;不足50套，每套90元；只买上衣每件60元；只买裤子每条45元。计算并输出应付款设上衣为C，裤子为T，服装款为M（1）若买的是套装，既C=T如果才C>=50则m=c*50否则m=c*90（2）如买的不是套服：①当上衣多余裤子则m=t*80+(c-t)*60否则m=t*90+(c-t)*60②当裤子多余上衣，既t>c如果c>=50则=c*80+(t-c)*45否则

2、m=c*90+(t-c)*45一、分析1．使用3个文本框，2个用来输入数据，1个用来显示结果。属性设置为：Text1.Text空Text2.ext空Text3.ext空2．使用2个标签Label属性设置为：Label：caption请输入上衣件数Labe2：caption请输入下衣件数3．一个命令按钮。属性设置为Command：Caption计算服装款4．能够进行简单的加、减、乘运算。5．利用三个If判断语句，每个语句嵌套一个小的判断If<条件1>thenIf<条件2>then[语句组1]Else[语句组2]EndifEndif二、程序功能1．运用公式及条件计算出不同条件下的服装款。2．

3、简单的加、减、乘运算。三、程序代码PrivateSubCommand1_Click()DimcAsIntegerDimtAsIntegerDimmAsIntegerc=Val(Text1.Text)t=Val(Text2.Text)Ifc=tThenIfc>=50Thenm=80*cElsem=90*cEndIfEndIfIfc>tThenIft>=50Thenm=t*80+(c-t)*60Elsem=t*90+(c-t)*60EndIfEndIfIft>cThenIfc>=50Thenm=c*80+(t-c)*45Elsem=c*90+(t-c)*45EndIfEndIfText3.T

4、ext=mEndSub四、运行界面五、总结1．学会了用VB程序制作简单的加、减、乘、除的运算程序2．懂得了控件数组的的使用方法3．学会运用各种控件以及各个控件的属性六、新任务给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。分析：从几何学可知，三角形的两边之和大于第三边。因此，如果输入的三角形的三条边中两边之和小于或等于另一边长，则不能构成三角形。在这种情况下，给出适当的信息，并要求重新输入。如果能构成三角形，则输出该三角形的面积。