【正文】 nextA(1) A(2) … A(N1)A(N)90信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組 數(shù)組的應(yīng)用 例子：排序 (6)*輸出排序后的結(jié)果 (每行輸出 4個(gè)數(shù)據(jù) )for i=1 to n if mod(i1,4)=0 ? endif??A(i),” ”nextreturn91信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組 數(shù)組的應(yīng)用 總結(jié)n 數(shù)組賦值q Store 表達(dá)式 to 數(shù)組列表 |數(shù)組元素列表q 數(shù)組名 |數(shù)組元素 = 表達(dá)式 n 數(shù)據(jù)表中記錄數(shù)據(jù)與數(shù)組之間的傳送q Scatter [fields 字段列表 ] to 數(shù)組名 [MEMO]q Gather from 數(shù)組名 [fields 字段列表 ][MEMO]n 針對(duì)數(shù)組的系統(tǒng)函數(shù)q AINS — 在數(shù)組中增加元素q ADEL— 在數(shù)組中刪除元素q ASORT— 給數(shù)組排序q ACOPY— 復(fù)制數(shù)組92信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組習(xí)題n 以循環(huán)方式輸出 1到 10的數(shù)字n 求 0～ 100之間奇數(shù)之和n 統(tǒng)計(jì)學(xué)生表中少數(shù)民族學(xué)生人數(shù)n 學(xué)生表中，成績(jī)?cè)?560分以下的加 20分93信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組習(xí)題n 假定對(duì)齊的列為屏幕上的第 20列，行不做要求，編寫程序輸出下列二種圖形 第 20列 第 20列94信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組休息一下！Next section: 程序的模塊化設(shè)計(jì)方法95信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組 程序的模塊化設(shè)計(jì)方法 (1)n 了解程序的模塊化設(shè)計(jì)方法n 了解子程序、過(guò)程和用戶自定義函數(shù)n 了解全局變量和局部變量的區(qū)別96信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組程序的模塊化設(shè)計(jì)方法n 一個(gè)實(shí)際的應(yīng)用系統(tǒng)往往比較復(fù)雜，按其功能組成可劃分為若干模塊n 相應(yīng)的軟件系統(tǒng)由許多程序文件（ 子程序 ，過(guò)程文件 ）所組成。每一個(gè)功能模塊一般即是一個(gè)相對(duì)獨(dú)立的程序文件或過(guò)程文件。n 模塊間從上到下逐級(jí)調(diào)用，然后從下到上逐級(jí)返回，相應(yīng)地，程序也從上到下逐級(jí)調(diào)用，然后從下到上逐級(jí)返回。97信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組應(yīng)用系統(tǒng)功能劃分教學(xué)管理信息系統(tǒng)信息添加 信息修改 信息查詢教學(xué)管理數(shù)據(jù)庫(kù)學(xué)生 班級(jí) 課程 成績(jī) 學(xué)生 班級(jí) 課程 成績(jī)主模塊子模塊 1 子模塊 2 子模塊 3子模塊11子模塊21子模塊12…… ……子模塊22……. ……程序的模塊化設(shè)計(jì)98信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組模塊化程序設(shè)計(jì)示例n 求 1~1000之內(nèi)的素?cái)?shù)之和主程序 ClearSet talk offFlag=.F. amp。amp。定義局部變量Sum = amp。amp。定義局部變量For k=1 to 1000 step 1 do check with k if Flag=.T.sum=sum+kFlag=.F.??k,’,’ endifEndfor? “sum =”,sum*判斷一個(gè)給定的整數(shù)是否素?cái)?shù)的程序*參數(shù) xParameter xxx=int(sqrt(x))For i=2 to xx step 1 if (mod(x,i)=0) exit endifEndforIf(ixx) Flag=.T. amp。amp。注意這里的變量 FlagEndifreturn子程序 99信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組主程序與子程序n 通常，被調(diào)用的程序稱為 子程序 ，調(diào)用程序的程序稱為 主程序 ，或者說(shuō)，當(dāng)兩個(gè)程序之間存在調(diào)用關(guān)系，被調(diào)用者稱為子程序，調(diào)用者稱為主程序。n 主程序與子程序的概念是相對(duì)的 ，當(dāng)子程序又調(diào)用下一級(jí)子程序時(shí)，則此子程序相對(duì)于下一級(jí)子程序便是主程序了，而對(duì)于調(diào)用它的主程序而言，它仍然是子程序。因此， “主”和 “子 ”要看相對(duì)于 “誰(shuí) ”而言。100信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組 程序的模塊化方法 (2)n 對(duì)于一個(gè)用 FoxPro開發(fā)的應(yīng)用系統(tǒng)，通常只有一個(gè)主程序，其余均為分級(jí)調(diào)用的子程序。n 在 FoxPro中， 子程序與主程序一樣，均為程序文件 （.PRG文件），都可由 MODIFY COMMAND命令來(lái)建n 子程序的最后一條語(yǔ)句通常為 RETURN，以便當(dāng)子程序執(zhí)行結(jié)束后能將控制轉(zhuǎn)到調(diào)用它的上級(jí)程序處。命令格式： RETURN [表達(dá)式 |TO MASTER |TO 程序文件名 ] 命令功能： 中止一個(gè)子程序、過(guò)程或用戶定義函數(shù)的執(zhí)行，返回到上一級(jí)調(diào)用程序 (默認(rèn) )、最高級(jí)調(diào)用程序、另外一個(gè)程序或者命令窗口。101信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組 程序的模塊化方法 (3)n 子程序的調(diào)用n 子程序調(diào)用命令與主程序執(zhí)行命令相同，其格式都為： DO 程序文件名 |過(guò)程名 [WITH 參數(shù)表 ]　其中， WITH 參數(shù)表 子句指定傳遞到程序或過(guò)程的參數(shù)，在 參數(shù)表 中列出的參數(shù)可以是表達(dá)式、內(nèi)存變量、常量、字段名或用戶定義函數(shù)。各參數(shù)用逗號(hào)分隔。n 可把參數(shù)放在圓括號(hào)中表示使用傳值方式，否則使用地址引用方式。102信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組子 程序的嵌套DO sub1DO sub2RETURNDO sub11DO sub21RETURNDO sub11RETURNRETURNRETURN TO MASTERmaster sub1sub2sub11sub21103信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組過(guò)程（自學(xué)）n 過(guò)程定義Procedure 過(guò)程名 [Parameters 參數(shù)表 ]語(yǔ)句塊 ReturnEndprocn 過(guò)程可以保存在主程序中，也可以保存為獨(dú)立的文件（稱為過(guò)程文件）n 調(diào)用Set procedure to 過(guò)程文件名 [ADDITIVE]Release procedure …[,…]Do 過(guò)程名 [with 參數(shù)表 ]104信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組用戶自定義函數(shù)（自學(xué)）n 函數(shù)定義Function 函數(shù)名 [Parameters 參數(shù)表 ]語(yǔ)句塊 Return 表達(dá)式 amp。amp。必須返回一個(gè)值Endfuncn 用戶函數(shù)可以保存在主程序中，也可以保存為獨(dú)立的程序文件n 函數(shù)調(diào)用q 函數(shù)名 ([參數(shù)表 ]) amp。amp。圓括號(hào)不能省略q 參考例 624105信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組變量的存在范圍（自學(xué)）n 全局變量：q 作用范圍：作用于任何命令或程序中q 命令窗口中定義的變量為全局變量q 程序中必須用 public聲明全局變量：n Pulibc 變量名列表n 局部變量：q 作用于定義 /聲明它的程序中 以及q 作用于定義 /聲明程序所調(diào)用的任何一級(jí)子程序中q 程序中未用 public聲明的全部為局部變量n 變量屏蔽：本地聲明的局部變量將 自動(dòng)屏蔽同名的全局變量或上級(jí)程序中的同名變量106信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組第 6章 小結(jié)n 了解程序設(shè)計(jì)一般步驟n 了解算法的概念和一般特征n 掌握 VF程序文件的操作命令和操作方法n 了解 VF程序的調(diào)試方法n 掌握分支選擇結(jié)構(gòu)的程序設(shè)計(jì)方法和命令語(yǔ)句q 二重分支 if…else… endifq 多重分支 do case… case…otherwise… endcase n 掌握循環(huán)結(jié)構(gòu)的程序設(shè)計(jì)方法和命令語(yǔ)句q Do while …[ loop][exit]… enddoq for …[ loop][exit]… endfor/nextq scan …[ loop][exit]… endscann 了解模塊化程序設(shè)計(jì)方法107信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組習(xí)題課n 寫出以下程序的運(yùn)行結(jié)果set talk offi=1do while i=3j=5do while j=7? i,jj=j+1enddoi=i+1Enddon 將上面這個(gè)程序改為 for循環(huán)實(shí)現(xiàn)108信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組習(xí)題課n 編一個(gè)程序，將華氏溫度 F度變換成攝氏溫度C，并將結(jié)果顯示出來(lái)q 計(jì)算公式為： C=5(F32)247。9109信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組習(xí)題課n 求出學(xué)生表中年齡最大和年齡最小的學(xué)生記錄n 求 S=1!+2!+3!+…+5! 的值。n S=2+4+6+…+100n Y=1+1/2+1/3+ … +1/30n S=1+(1+2)+(1+2+3)+…+(1+2+3+4+…+100）110信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組習(xí)題課n 編一個(gè)程序計(jì)算應(yīng)收學(xué)費(fèi)，輸入學(xué)號(hào) I及學(xué)分U，輸出學(xué)號(hào)及應(yīng)繳學(xué)費(fèi) T。q 學(xué)分在 12分以下的收費(fèi) 4000元，若超過(guò) 12學(xué)分，則超過(guò)部分每學(xué)分加收 200元，也即學(xué)費(fèi)應(yīng)收4000 如果 U≤12?4000+200(U12) 如果 U＞ 12111信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課程組習(xí)題課n 假定對(duì)齊的列為屏幕上的第 20列，行不做要求，編寫程序輸出下列二種圖形 第 20列 第 20列112信息管理學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用》課