VB控制结构.ppt

《VB控制结构.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、结构化程序设计思想自顶向下、逐步细化、模块化自顶向下：先从全局、整体设计逐步细化：将一个问题分解成几个较小的问题解决模块化：将一个大任务分解成若干个较小的部分，每个部分承担一定功能，称为“功能模块”第五章VB控制结构练习一输入时间（小时，分和秒），然后使用输出消息框输出总计多少秒。使用文本框输入数据，使用消息框输出计算结果，程序运行界面如图所示。程序运行界面顺序结构PrivateSubForm_Load()'初始化对象属性Form1.Caption="计算时间"Label1.Caption="小时"Label2.Caption="分："Label3.Cap

2、tion="秒："Text1="":Text2="":Text3=""Command1.Caption="计算"Command2.Caption="结束"EndSubPrivateSubCommand1_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&"秒"MsgBoxOuts

3、tr,,"输出结果"EndSubPrivateSubCommand2_Click()EndEndSub练习二编一程序，求一内半径R1=10cm，外半径R2=20cm的球环的体积。要求按四舍五入保留到小数点后4位。球的体积公式:本题所求的球环面的体积公式:PrivateSubForm_Click()DimR1AsDouble,R2AsDouble'R1，R2表示球的内外半径DimVolAsDouble'Vol表示体积ConstPI#=3.1415926'定义符号常量PI代表πR1=10:R2=20Vol=4/3*PI*(R2^3-R1^3)Vol=Fix(V

4、ol*10000+0.5)/10000'保留小数点后4位Print"球环的体积：V=";Vol;"立方厘米"EndSubPrivateSubForm_Click()Dimr!,s!,d!,pipi=3.14159r=InputBox("请输入圆的半径：")s=r*r*pid=2*pi*rPrint"r=",rPrint"s=",sPrint"d=",dEndSub练习三已知半径R,求园的面积s和周长dPrivateSubForm_Click()Dima!,b!,c!,s!,area!a=InputBox("请输入a：")b=InputBox("请输入b："

5、)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练习1从键盘输入两个整数x和y，输出两者中的大者。PrivateSubForm_Click()Dimx%,y%,max%,ms$x=Val(InputBox("请输入一个整数给x"))y=Val(InputBox("请输入一个整数给y"))max=xIfmax

6、enmax=yms=(x&","&y&"两者中的大数是："&max)MsgBox(ms)EndSub选择结构程序设计PrivateSubForm_Click()Dimx%,y%,t%x=Val(InputBox("请输入一个整数给x"))y=Val(InputBox("请输入一个整数给y"))Ifx0Theny=sin(x)+sqr(x*x+1)双分支结构实现:Ifx<>0Theny=sin(x)+sqr(

7、x*x+1)Elsey=cos(x)－x^3+3*xEndIf练习3:计算分段函数PrivateSubCommand1_Click()Dimx!,y!x=InputBox("PleaseInputx:")Ifx<>0Theny=Sin(x)+Sqr(x*x+1)Elsey=Cos(x)-x^3+3*xEndIfPrint"x=";x,"y=";yEndSub练习4求一元二次方程根对比例题5-3PrivateSubCommand1_Click()Dima!,b!,c!,x1!,x2!,disc!a=Val(Trim(Text1.Text))b=Val(Tri

8、m(Text2.Text))c=Val(Trim(Text3.Te