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