【正文】 演講完畢，謝謝觀看！ 。本章介紹了 Visual FoxPro陳序設(shè)計(jì)的基本內(nèi)容，包括程序的概念、程序的基本結(jié)構(gòu)、多模塊程序設(shè)計(jì)等等。 Clear Set Procedure To Input 請從鍵盤輸入一個(gè)數(shù)： To a Input 請從鍵盤輸入一個(gè)數(shù)： To b Do P1 Do P2 Set Procedure To ?a=,a,b=,b ?a+b=,a+b,ab=,ab ?a*b=,a*b,a/b=,a/b Return * Procedure P1 C=1 D=2 C=C+D D=D+C ?c=,C,d=,D Return Procedure P2 ?p2=,200 Return 打開 pp1過程文件放了 2個(gè)過程 P1和 P2 關(guān)閉 【 例 】 編寫計(jì)算園的面積和周長的程序 。為 1～ 8 個(gè)字符； 過程執(zhí)行到 Return處返回到調(diào)用程序或命令窗口。要調(diào)用內(nèi)部過程，需在主程序中首先打開過程文件，然后再調(diào)用過程文件中的過程。過程文件打開后，其中的過程能被任何其它程序調(diào)用。 從表達(dá)式返回函數(shù)值到主程序 自定義函數(shù)格式： 例如 : 主程序： ?a1 (bb) 自定義函數(shù)： Parameters bb …… Return bb 【 例 】 利用自定義函數(shù)計(jì)算圓的面積： *主程序： clear Input “請輸入圓的半徑： “ To bj 7,10 Say 圓的面積為： +str(zcx3(bj),10,2) Return 帶參數(shù)調(diào)用自定義函數(shù) zcx3 *自定義函數(shù) zcx3： Parameters r S=*r**2 Return s 調(diào)用時(shí) bj是半徑，返回時(shí)，bj是面積 *主程序： clear Input “請輸入圓的半徑： “ To bj 7,10 Say 圓的面積為： +str(zcx3(bj),10,2) Return *自定義函數(shù) Function zcx3 Parameters r S=*r**2 Return s 如果主程序和自定義函數(shù)放在一個(gè)文件中，那么一定要加上這么一句。 例如 : 主程序： Do zcx With “張三” , 89，性別 子程序： Parameters a,b,c 變量姓名必須是賦過值的 變量沒有具體值 【 例 】 利用子程序計(jì)算圓的面積： *主程序： Clear ymj=0 初始化用于接收圓面積的變量 Input “請輸入圓的半徑： “ To bj Do zcx2 With bj,ymj 帶參數(shù)調(diào)用子程序 7,10 Say 圓的面積為： +Str(ymj,10,2) Return *子程序 zcx2： Parameters cj, s S=*cj**2 Return 變量 bj初始值為 0 計(jì)算后的面積 函數(shù)名 （實(shí)際參數(shù)表） 3. 自定義函數(shù) 自定義函數(shù)與子程序的區(qū)別在于自定義函數(shù)必須返回一個(gè)函數(shù)值，而子程序則無此限制。 Parameters可以完成此項(xiàng)功能，但是必須是子程序的第一條語句。 主程序和子程序 Do 子程序文件名 Modify Command 〈 過程文件名 〉 文件格式： 與程序一樣 主程序調(diào)用： 返回主程序： Return [To Master] 建立子程序： 沒有可選項(xiàng)，返回到調(diào)用處，有可選項(xiàng)，返回到調(diào)用的最高一級(jí)。子程序的建立和一般命令文件的建立方法相同，都是 Modify Command，文件默認(rèn)的擴(kuò)展名還是 Prg。下面是幾種常見的二重嵌套形式： 1. For I=… . … .. For J=… . … . Next J … .. Next I 2. FOR I=… . … .. DO WHILE … . … . ENDDO … .. NEXT I 3. DO WHILEL… . … .. DO WHILE … … . ENDDO … .. enddo 對于循環(huán)的嵌套，要注意以下事項(xiàng)： (1) 內(nèi)循環(huán)變量與外循環(huán)變量不能同名； (2) 外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉； (3) 不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，也不能從外循環(huán)轉(zhuǎn)向內(nèi)循環(huán)。 clear Rc=0 Use 人才檔案 Exclusive Scan all for 性別 =“男” rc=rc+1 EndScan ? “男同學(xué)的人數(shù)為 ， rc Use 【 例 】 用掃描循環(huán)控制語句，顯示人才檔案數(shù)據(jù)表中年齡大于等于 25的記錄。 （ 2）當(dāng)指針移到文件尾時(shí)，自動(dòng)退出循環(huán)。 Scan [范圍 ] [For 條件表達(dá)式 1] [While 條件表達(dá)式 2] 命令行序列 EndScan 格式： 功能 : 執(zhí)行該語句時(shí)，記錄指針在當(dāng)前表的指定范圍內(nèi)自動(dòng)從上往下依次移到滿足條件的記錄上，并對每一條記錄執(zhí)行循環(huán)體內(nèi)的命令。 Clear For i=1 to 10 Input “輸入一個(gè)整數(shù)” To a If a 0 ?a Else Loop Endif EndFor 在 For循環(huán)語句中執(zhí)行Loop語句，將會(huì)先修改循環(huán)變量的值，然后轉(zhuǎn)向循環(huán)語句頭部。最后統(tǒng)計(jì)參加各項(xiàng)比賽的人數(shù)。如果是男同學(xué)并且身高又在 180以上，輸出“參加籃球比賽”，否則輸出“參加足球比賽”。 For 循環(huán)變量 =初值 To 終值 [Step步長 ] 循環(huán)體 EndFor| Next For 循環(huán)變量 =初值 To 終值 [Step步長 ] 循環(huán)體 EndFor | Next Clear S=1 I=1 Do While I=100 S=S*I I=I+1 EndDo ? 1*2*3*……*100 ＝ ,S 【 例 】 編程求 1*2*3*……*100 之和。執(zhí)行 Exit命令時(shí) ,程序跳出循環(huán)，執(zhí)行循環(huán)尾后面的語句 說明： 注意： 循環(huán)終止的條件是： “循環(huán)變量的值超出終值”，而不是循環(huán)變量的值等于終值。 省略 Step 步長，則步長為默認(rèn)值 1； 初值、終值和步長都可以是數(shù)值表達(dá)式，當(dāng)初值小于終值，步長必須為正，當(dāng)初值大于終值，步長必須為負(fù)才可以循環(huán)； 可以在循環(huán)體內(nèi)改變循環(huán)變量的值，但會(huì)改變循環(huán)執(zhí)行次數(shù)； Exit和 Loop命令可以出現(xiàn)在循環(huán)體內(nèi)。若循環(huán)條件成立，則執(zhí)行循環(huán)體，然后循環(huán)變量增加一個(gè)步長值，并再次判斷循環(huán)條件是否成立，以確定是否再次執(zhí)行循環(huán)體。 else ? 參加足球比賽！ B=B+1 Endif Else if 身高 = 170 ？ 參加模特比賽！ C=C+1 else ？ 參加健美操比賽！ D=D+1 Endif EndIf SUM=SUM1 EndDo ? 參加籃球比賽的人數(shù) ,A ? 參加足球比賽的人數(shù) , B ? 參加模特比賽的人數(shù) , C ? 參加健美操比賽的人數(shù) , D A=0 B=0 C=0 D=0 Sum=50 Do While SUM 0 Acce 請輸入你的性別 TO 性別 Input 請輸入你的身高 TO 身高 If 性別 = 男 “ if 身高 = 180 ？ 參加籃球比賽！ A=A+1 2. 步長循環(huán) 步長循環(huán)控制語句，即根據(jù)循環(huán)變量的初值、終值和步長，決定循環(huán)體內(nèi)語句的執(zhí)行次數(shù)。如果是女同學(xué)并且身高在 170以上輸出“參加模特大賽”，否則輸出“參加健美操比賽” 。 If Flag =0 ?Str(n,3)+ 是素?cái)?shù) Else ?Str(n,3)+ 不是素?cái)?shù) Endif If n/i=int(n/i) 【 例 】 全班 50個(gè)同學(xué)報(bào)名參加運(yùn)動(dòng)會(huì)。判別一個(gè)大于 2的整數(shù) n是否為素?cái)?shù)可以 :用 2,3, …,n 1作除數(shù)除 n，只要有一個(gè)能整除 n， n就不是素?cái)?shù)。 If mod(a,2) 0 ji=ji+1 Endif Endif