VB控制結(jié)構(gòu).ppt

《VB控制結(jié)構(gòu).ppt》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、結(jié)構(gòu)化程序設(shè)計(jì)思想自頂向下、逐步細(xì)化、模塊化自頂向下：先從全局、整體設(shè)計(jì)逐步細(xì)化：將一個(gè)問(wèn)題分解成幾個(gè)較小的問(wèn)題解決模塊化：將一個(gè)大任務(wù)分解成若干個(gè)較小的部分，每個(gè)部分承擔(dān)一定功能，稱(chēng)為“功能模塊”第五章VB控制結(jié)構(gòu)練習(xí)一輸入時(shí)間（小時(shí)，分和秒），然后使用輸出消息框輸出總計(jì)多少秒。使用文本框輸入數(shù)據(jù)，使用消息框輸出計(jì)算結(jié)果，程序運(yùn)行界面如圖所示。程序運(yùn)行界面順序結(jié)構(gòu)PrivateSubForm_Load()'初始化對(duì)象屬性Form1.Caption="計(jì)算時(shí)間"Label1.Caption="小時(shí)"Label2.Caption="分："Label3.Cap

2、tion="秒："Text1="":Text2="":Text3=""Command1.Caption="計(jì)算"Command2.Caption="結(jié)束"EndSubPrivateSubCommand1_Click()'計(jì)算Dimhh%,mm%,ss%,Totals!DimOutstr$hh=Val(Text1)mm=Val(Text2)ss=Val(Text3)Totals=hh*3600+mm*60+ssOutstr=hh&"小時(shí)"&mm&"分"&ss&"秒"Outstr=Outstr&vbCrLf&"總計(jì)："&Totals&"秒"MsgBoxOuts

3、tr,,"輸出結(jié)果"EndSubPrivateSubCommand2_Click()EndEndSub練習(xí)二編一程序，求一內(nèi)半徑R1=10cm，外半徑R2=20cm的球環(huán)的體積。要求按四舍五入保留到小數(shù)點(diǎn)后4位。球的體積公式:本題所求的球環(huán)面的體積公式:PrivateSubForm_Click()DimR1AsDouble,R2AsDouble'R1，R2表示球的內(nèi)外半徑DimVolAsDouble'Vol表示體積ConstPI#=3.1415926'定義符號(hào)常量PI代表πR1=10:R2=20Vol=4/3*PI*(R2^3-R1^3)Vol=Fix(V

4、ol*10000+0.5)/10000'保留小數(shù)點(diǎn)后4位Print"球環(huán)的體積：V=";Vol;"立方厘米"EndSubPrivateSubForm_Click()Dimr!,s!,d!,pipi=3.14159r=InputBox("請(qǐng)輸入圓的半徑：")s=r*r*pid=2*pi*rPrint"r=",rPrint"s=",sPrint"d=",dEndSub練習(xí)三已知半徑R,求園的面積s和周長(zhǎng)dPrivateSubForm_Click()Dima!,b!,c!,s!,area!a=InputBox("請(qǐng)輸入a：")b=InputBox("請(qǐng)輸入b："

5、)c=InputBox("請(qǐng)輸入c：")s=(a+b+c)/2area=Sqr(s*(s-a)*(s-b)*(s-c))Print"area=",areaEndSub練習(xí)四已知三邊長(zhǎng)a,b,c,求三角形面積areaarea=Sqr(s*(s-a)*(s-b)*(s-c))s=(a+b+c)/2練習(xí)1從鍵盤(pán)輸入兩個(gè)整數(shù)x和y，輸出兩者中的大者。PrivateSubForm_Click()Dimx%,y%,max%,ms$x=Val(InputBox("請(qǐng)輸入一個(gè)整數(shù)給x"))y=Val(InputBox("請(qǐng)輸入一個(gè)整數(shù)給y"))max=xIfmax

6、enmax=yms=(x&","&y&"兩者中的大數(shù)是："&max)MsgBox(ms)EndSub選擇結(jié)構(gòu)程序設(shè)計(jì)PrivateSubForm_Click()Dimx%,y%,t%x=Val(InputBox("請(qǐng)輸入一個(gè)整數(shù)給x"))y=Val(InputBox("請(qǐng)輸入一個(gè)整數(shù)給y"))Ifx0Theny=sin(x)+sqr(x*x+1)雙分支結(jié)構(gòu)實(shí)現(xiàn):Ifx<>0Theny=sin(x)+sqr(

7、x*x+1)Elsey=cos(x)－x^3+3*xEndIf練習(xí)3:計(jì)算分段函數(shù)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練習(xí)4求一元二次方程根對(duì)比例題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