常見(jiàn)的資料結(jié)構(gòu)佇列(QUEUE):排隊(duì)(FIFO)CFDYT入口出口ABXFDYTABXCDYTABXCF1常見(jiàn)的資料結(jié)構(gòu)堆疊(STACK):堆貨物(LIFO)入口出口APUSHCPUSHFCAPOPFCAPOPCAAPUSHA2副程式呼叫使用堆疊結(jié)構(gòu)副程式c:F呼叫副程式f：Endc主程式：：：：A呼叫副程式a：：副程式a:C呼叫副程式c：Enda使用結(jié)構(gòu)化程式設(shè)計(jì)的程式APUSHCPUSHFACPOPFACPOPACAPUSHA副程式f：Endf3結(jié)構(gòu)化程式設(shè)計(jì)的概念結(jié)構(gòu)化程式設(shè)計(jì)：一種可使程式的設(shè)計(jì)與維護(hù)較易於進(jìn)行的程式設(shè)計(jì)技術(shù)。副程式a：Enda：a：gotob：c：gotod：b：gotoe：d：gotoa：e：gotoc：主程式：呼叫副程式a：：：呼叫副程式b：：副程式b：Endb未使用結(jié)構(gòu)化程式設(shè)計(jì)的程式使用結(jié)構(gòu)化程式設(shè)計(jì)的程式4結(jié)構(gòu)化程式設(shè)計(jì)的概念由上到下的程式設(shè)計(jì)：先由整個(gè)程式的主要功能開(kāi)始設(shè)計(jì)，再依序往下設(shè)計(jì)各個(gè)子功能。統(tǒng)一入學(xué)測(cè)驗(yàn)成績(jī)處理系統(tǒng)計(jì)分處理成績(jī)統(tǒng)計(jì)榜單服務(wù)卡片讀取分?jǐn)?shù)計(jì)算…分?jǐn)?shù)排序級(jí)距統(tǒng)計(jì)…榜單列印榜單查詢…~~~~~~~~~~~~檢查記錄……比較交換顯示…檢查顯示…5結(jié)構(gòu)化程式設(shè)計(jì)的實(shí)作副程式：一段獨(dú)立的程式區(qū)塊，由Sub與EndSub之間的程式敘述所組成。使用呼叫（call）的方式來(lái)執(zhí)行副程式。..Call

副程式A....Sub

副程式A...EndSub

呼叫返回執(zhí)行主程式副程式6結(jié)構(gòu)化程式設(shè)計(jì)的實(shí)作副程式：語(yǔ)法說(shuō)明：呼叫副程式的語(yǔ)法：

Call

副程式名稱(參數(shù)1,參數(shù)2,…)副程式的語(yǔ)法：Sub副程式名稱(參數(shù)1As資料型別,參數(shù)2As資料型別,…)

程式敘述區(qū)塊EndSub7SubSUM_N(MAsInteger)

DimIAsIntegerDimSumAsInteger Sum=0

Fori=1ToM Sum=Sum+i

Nexti

Print"1+2+…+"&M_&"="&SumEndSub結(jié)構(gòu)化程式設(shè)計(jì)的實(shí)作副程式：副程式的範(fàn)例：

..N=InputBox("請(qǐng)輸入N_

值：")CallSUM_N(N).....主程式副程式返回呼叫8SubGood(sAsInteger) S=S+1EndSubSubBad(byvalTAsInteger) T=T-2EndSubPrivateSubForm_activate() DimAAsInteger A=0 CallGood(a) CallBad(a) PrintAEndsubForm_activateA=01goodS1BadTT=1-1傳址呼叫(CallByRef)傳值呼叫(CallByVal)9SubGood(SAsInteger) S=S+1EndSubPrivateSubForm_activate() DimAAsInteger A=0 CallGood(A) CallGood(A) PrintAEndsub2傳址呼叫(CallByRef)(ByvalSAsInteger)傳值呼叫(CallByVal)011CallGood((A))CallGood(A+2)10PrivateSubForm_activate() DimaAsInteger DimbAsInteger DimcAsInteger a=2:b=3:c=0 Calladd(a,b,(c)) Printa,b,cEndsubSubadd(xAsInteger,yAsInteger,zAsInteger) ForI=1to4 x=x+1 ForJ=1to3 y=y+1:z=x+y NextJ NextIEndSubForm_activatea=2b=3c=06addxyz=0傳址呼叫(CallByRef)傳值呼叫(CallByVal)1521615011結(jié)構(gòu)化程式設(shè)計(jì)的實(shí)作自定函數(shù)：由Function與EndFunction之間的程式敘述所組成。..V=自定函數(shù)A()...Function

自定函數(shù)A()AsInteger..

自定函數(shù)A()=100EndFunction將值100傳回給變數(shù)V呼叫返回執(zhí)行主程式自定函數(shù)12結(jié)構(gòu)化程式設(shè)計(jì)的實(shí)作（7/10）自定函數(shù)：語(yǔ)法說(shuō)明：呼叫自定函數(shù)的語(yǔ)法：變數(shù)名稱＝自定函數(shù)名稱名稱(參數(shù)1,參數(shù)2,…)自定函數(shù)的語(yǔ)法：Function

自定函數(shù)名稱(參數(shù)1As

資料型別,參數(shù)2As

資料型別,…)As

資料型別 程式敘述區(qū)塊 自定函數(shù)名稱=傳回值EndFunction13結(jié)構(gòu)化程式設(shè)計(jì)的實(shí)作自定函數(shù)：自定函數(shù)的範(fàn)例：

.

.area=r_area(10)

Print"圓面積為"&area

.

.Functon

r_area(r)AsDouble

ConstpiAsDouble=3.14159

r_area=pi*r^2EndFunction

主程式自定函數(shù)呼叫返回14FunctionFAP(X) FAP=X*X+XEndFunctionPrivateSubForm_activate() FORK=1TO4 T=T+FAP(K) NEXTK PRINTTEndsubK