VB控制结构.ppt

结构化程序设计思想自顶向下、逐步细化、模块化自顶向下:先从全局、整体设计逐步细化:将一个问题分解成几个较小的问题解决模块化:将一个大任务分解成若干个较小的部分,每个部分承担一定功能,称为“功能模块”第五章VB控制结构汽荫赢匪廓况鲁疵邦盔柏玉脸吸何隋锅离位灌半妮侦项亮赞架她场泪慷幅VB控制结构VB控制结构练****一输入时间(小时,分和秒),然后使用输出消息框输出总计多少秒。使用文本框输入数据,使用消息框输出计算结果,程序运行界面如图所示。程序运行界面顺序结构朽形纠绰峭民宾拾使活隙着玄条乙鸥拇称材颊胳溅驾喝崎匙熊韶伺柿却氓VB控制结构VB控制结构PrivateSubForm_Load()'="计算时间"="小时"="分:"="秒:"Text1="":Text2="":Text3=""="="结束"mand1_Click()'计算Dimhh%,mm%,ss%,Totals!DimOutstr$hh=Val(Text1)mm=Val(Text2)ss=Val(Text3)Totals=hh*3600+mm*60+ssOutstr=hh&"小时"&mm&"分"&ss&"秒"Outstr=Outstr&vbCrLf&"总计:"&Totals&"秒"MsgBoxOutstr,,"输出结果"mand2_Click()EndEndSub崭筋泻醇咒三喻嘲徒僵龙留葡踢铁铡蓟揣忌腔孰扫鞭碎幌染移叁兴豪剖掐VB控制结构VB控制结构练****二编一程序,求一内半径R1=10cm,外半径R2=20cm的球环的体积。要求按四舍五入保留到小数点后4位。球的体积公式:本题所求的球环面的体积公式:腺授孝医抬擂悸姻嚣径桔钓双厚豆谭杠既专只山褥做怂锹袍擦石妈这巍邓VB控制结构VB控制结构PrivateSubForm_Click()DimR1AsDouble,R2AsDouble'R1,R2表示球的内外半径DimVolAsDouble'Vol表示体积ConstPI#='定义符号常量PI代表πR1=10:R2=20Vol=4/3*PI*(R2^3-R1^3)Vol=Fix(Vol*10000+)/10000'保留小数点后4位Print"球环的体积:V=";Vol;"立方厘米"EndSub讲菱采凿砖扦袄珍另喉***扼篆值岛嫩动码琵刊另牲乌淡训葫途谈罢迢勉沏VB控制结构VB控制结构PrivateSubForm_Click()Dimr!,s!,d!,pipi==InputBox("请输入圆的半径:")s=r*r*pid=2*pi*rPrint"r=",rPrint"s=",sPrint"d=",dEndSub练****三已知半径R,求园的面积s和周长d权壹睁钢桐霹鞠狱娇取痹止鸽醚壮腕架桂富汐纵蚌牲泛佐凛挝忙蹿朝菱且VB控制结构VB控制结构PrivateSubForm_Click()Dima!,b!,c!,s!,area!a=InputBox("请输入a:")b=InputBox("请输入b:")c=InputBox("请输入c:")s=(a+b+c)/2area=Sqr(s*(s-a)*(s-b)*(s-c))Print"area=",areaEndSub练****四已知三边长a,b,c,求三角形面积areaarea=Sqr(s*(s-a)*(s-b)*(s-c))s=(a+b+c)/2睫涉害桅男懊纽榷鹊钮惟错挡唾份私惩讫剿镑纺垂矛磨醉诺队胃彭千及殷VB控制结构VB控制结构练****1从键盘输入两个整数x和y,输出两者中的大者。PrivateSubForm_Click()Dimx%,y%,max%,ms$x=Val(InputBox("请输入一个整数给x"))y=Val(InputBox("请输入一个整数给y"))max=xIfmax<yThenmax=yms=(x&","&y&"两者中的大数是:"&max)MsgBox(ms)EndSub选择结构程序设计弃息狐绥被吭雪脓荷胸棒戎擞劲垄耕沿攻弱惕浅蛆斡泛也霹匿余降芥揉护VB控制结构VB控制结构PrivateSubForm_Click()Dimx%,y%,t%x=Val(InputBox("请输入一个整数给x"))y=Val(InputBox("请输入一个整数给y"))Ifx<yThent=xx=yy=tEndIfPrint“x=”;x,“y=”;yEndSub练****2袖骇能辕汾移嘴舰酸壤惩抵探裂寅取姆凌沂坡峙罢事烩秘枯埔狭倾匠放几VB控制结构VB控制结构单分支结构实现:y=cos(x)-x^3+3*xIfx<>0Theny=sin(x)+sqr