12.循環結構程序設計

　　循環結構也稱為重復結構，是指程序在執行過程中，其中的某段代碼被重復執行若干次。被重復執行的代碼段通常稱為循環體。

　　Visual FoxPro支持循環結構的語句包括：

　　DOWHILE-ENDDO、

　　FOR-ENDFOR

　　SCAN-ENDSCAN語句。

　　(1)DO WHILE循環語句

　　【格式1】DO WHILE<條件表達式>

　　<語句序列>

　　ENDDO

　　【功能】執行該語句時，先判斷<條件表達式>是否成立，如果為真，執行<循環體>，執行到ENDDO時，返回到DO WHILE，再判斷<條件表達式>。若條件為假，則結束循環，執行ENDDO后面的語句。

　　【格式2】

　　DO WHILE<條件表達式>

　　<語句序列1>

　　[LOOP]

　　<語句序列2>

　　[EXIT]

　　<語句序列3>

　　ENDDO

　　LOOP語句：強行返回到循環開始語句。

　　EXIT語句：強行跳出循環，接著執行

　　ENDDO后的語句

　　DO WHILE循環一般由如下部分組成：

　　①初始部分。通常位于程序開頭，用來保證循環程序能夠開始執行。如果第一次判斷條件時，條件為假，則循環體一次都部執行。

　　②工作部分，即循環體。這部分除了需要重復執行的命令外、還應包括對于循環控制變量的修改，使循環進行有限次以后能夠自動終止。

　　③控制部分。控制部分應保證循環程序按預定條件恰到好處地執行完畢。做到這一點，不僅要選擇適當的入口條件，還要給有關的量設定適當的初值，并在循環體中對有關的量進行適當的修改，關鍵在于這三者恰到好處地配合。【例1】編程求1+2+3+……+100之和。程序文件名為PA6.PRG。

　　SET TALK OFF

　　CLEAR

　　S=0

　　I=1

　　DO WHILE I<=100

　　S=S+I

　　I=I+1

　　ENDDO

　　?”1+2+3+……+100=”,S

　　SET TALK ON

　　RETURN

　　【例2】逐條顯示在“學生管理”數據庫的“學生”表中性別為“男”的所有記錄。程序文件名為PA7.PRG。

　　SET TALK OFF

　　CLEAR

　　OPEN DATABASE學生管理

　　USE學生

　　DO WHILE.NOT.EOF()

　　IF性別=”男”

　　DISPLAY

　　ENDIF

　　SKIP

　　ENDDO

　　CLOSE DATABASE

　　SET TALK ON

　　RETURN

　　【例3】編程顯示“學生管理”數據庫的“學生”表中除“李寧”以外的所有記錄。程序文件名為PA8.PRG。

　　SET TALK OFF

　　CLEAR

　　OPEN DATABASE STUDENT

　　USE STUD

　　DO WHILE.NOT.EOF()

　　IF姓名=”李寧”

　　SKIP

　　LOOP

　　ENDIF

　　DISPLAY

　　SKIP

　　ENDDO

　　CLOSE DATABASE

　　SET TALK ON

　　RETURN(2)FOR循環語句

　　【格式】

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

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

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