FOR<循環變量>=<初值>TO<終值>[STEP<步長>]

　　<循環體>

　　ENDFOR|NEXT

　　使用FOR循環語句的有關說明：

　　①省略STEP<步長>，則〈步長〉為默認值1;

　　②〈初值〉、〈終值〉和〈步長〉都可以是數值表達式，但這些表達式僅在循環語句開始執行時計算一次。循環語句執行過程中，初值、終值和步長是不會改變的，并由此確定循環的次數;

　　③可以在循環體內改變循環變量的值，但會改變循環執行次數;

　　④EXIT和LOOP命令可以出現在循環體內。執行LOOP命令時，結束本次循環，循環變量增加一個步長值，返回FOR循環頭判斷循環條件是否成立。執行EXIT命令時,程序跳出循環，執行循環尾后面的語句。

　　【例】從鍵盤輸入10個數，編程找出其中的最大值和最小值。程序文件名為PA9.PRG。

　　SET TALK OFF

　　CLEAR

　　INPUT“請從鍵盤輸入一個數：”TO A

　　STORE A TO MAX,MIN

　　FOR I=2 TO 10

　　INPUT“請從鍵盤輸入一個數：”TO A

　　IF MAX

　　MAX=A

　　ENDIF

　　IF MIN>A

　　MIN=A

　　ENDIF

　　ENDFOR

　　?“最大值為：”,MAX

　　?“最小值為：”,MIN

　　SET TALK ON

　　RETURN

　　(3)“指針”型循環控制語句

　　“指針”型循環控制語句，即根據用戶設置的表中的當前記錄指針，

　　決定循環體內語句的執行次數據。

　　1)語句格式：

　　SCAN[〈范圍〉][FOR〈條件表達式1〉

　　[WHILE〈條件表達式2〉]]

　　〈命令行序列〉

　　ENDSCAN

　　2)語句功能：

　　該語句在指定的范圍內，用數據記錄指針來控制循環次數。執行語句時，首先判斷函數EOF()的值，若其值為“真”，則結束循環，否則，結合〈條件表達式1〉或〈條件表達式2〉，執行〈命令行序列〉，記錄指針移到指定的范圍和條件內的下一條記錄，重新判斷函數EOF()的值，直到函數EOF()的值為真時結束循環。

　　【例】輸出“學生管理”數據庫的“學生”表中所有團員的姓名和地址。

　　程序文件名為PA10.PRG。

　　SET TALK OFF

　　CLEAR

　　OPEN DATABASE學生管理

　　USE STUD

　　SCAN FOR是否團員

　　?姓名,地址

　　ENDSCAN

　　CLOSE DATABASE

　　SET TALK ON

　　RETURN

　　(4)使用循環語句時應注意的幾點

　　1)DO WHILE和ENDDO、FOR和ENDFOR、SCAN和ENDSCAN必須配對使用。

　　2)〈命令行序列〉可以是任何FoxPro命令或語句，也可以是循環語句，即可以為多重循環。

　　3)〈循環變量〉應是數值型的內存變量或數組元素。

　　4)EXIT和LOOP命令嵌入在循環體內，可以改變循環次數，但是不能單獨使用。EXIT的功能是跳出循環，轉去執行ENDDO、ENDFOR、ENDSCAN后面的第一條命令;LOOP的功能是轉回到循環的開始處，重新對“條件”進行判斷，相當于執行了一次ENDDO、ENDFOR、ENDSCAN命令，它可以改變〈命令行序列〉中部分命令的執行次數。EXIT、LOOP可以出現在〈命令行序列〉的任意位置。

　　(5)多重循環

　　多重循環即循環的嵌套，是在一個循環結構的循環體中又包含另一個循環。我們稱外層循環為外循環，被包含的循環為內循環。嵌套層數一般沒有限制，但內循環的循環體必須完全包含在外循環的循環體中，不能相互交叉。正確的嵌套關系如：

　　DO WHILE<條件表達式1>

　　<語句序列11>

　　DO WHILE<條件表達式2>

　　<語句序列21>

　　DO WHILE<條件表達式3>

　　<語句序列3>

　　ENDDO

　　<語句行序列22>

　　ENDDO

　　<語句行序列12>

　　ENDDO

　　例題：

　　【例】編程輸出下三角形乘法口訣表。程序文件名為PA11.PRG。

　　SET TALK OFF

　　CLEAR

　　X=1

　　DO WHILE X<=9

　　Y=1

　　DO WHILE Y<=X

　　S=X*Y

　　??STR(Y,1)+"*"+STR(X,1)+"="+STR(S,2)+""

　　Y=Y+1

　　ENDDO

　　?

　　X=X+1

　　ENDDO

　　SET TALK ON

　　RETURN

　　2011年計算機等級考試二級VFP基礎教程匯總

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VFP復習指導匯總