【文章內容簡介】 旦遇到 ENDDO自動返回 DO WHILE重新判斷條件是否成立，以決定是否繼續(xù)循環(huán)。邏輯表達式語句序列 1NY 執(zhí)行 ENDDO后面的語句條件循環(huán)語句的執(zhí)行流程37《 Visual FoxPro程序設計 》n 說明：q 注意設置正確的 循環(huán)條件 。q 循環(huán)體內應有 改變循環(huán)條件 的語句。 [例 88]編寫一個能夠多次查找某學生記錄的程序，查找字段為姓名。操作步驟 yes，當它的值為 “ Y” 時，可以查詢學生信息。，詢問用戶是否繼續(xù)，如果輸入 “ Y” 給 yes變量繼續(xù)查詢，輸入其它，停止查詢。38《 Visual FoxPro程序設計 》yes=Y USE studentDO WHILE UPPER(yes)=Y clear accept “請輸入查找姓名： ” to xm LOCATE FOR sname=xm IF FOUND() DISPLAY ELSE WAIT 查無此人 WINDOW ENDIF wait “繼續(xù)查找嗎？ ” to yesENDDOUse條件循環(huán)示例源代碼循環(huán)條件改變循環(huán)條件39《 Visual FoxPro程序設計 》n 格式： FOR 內存變量 =數(shù)值表達式 1 TO 數(shù)值表達式 2 [STEP 數(shù)值表達式 3] 語句序列 ENDFOR|NEXTn 功能：語 句執(zhí)行時，通過比較循環(huán)變量值與終值來決定是否執(zhí)行 語句序列 。步長為正數(shù)時，若循環(huán)變量值不大于終值就執(zhí)行循環(huán)體；步長為負數(shù)時，若循環(huán)變量不小于終值就執(zhí)行循環(huán)體。一旦遇到 ENDFOR或 NEXT，循環(huán)變量值即加上步長，然后返回到 FOR語句重新與終值比較。 STEP 數(shù)值表達式 3一項可以缺省，步長缺省值為 1。40《 Visual FoxPro程序設計 》步長型循環(huán)語句執(zhí)行流程循環(huán)體循環(huán)變量增加步長循環(huán)變量獲得初值FT循環(huán)變量在終值內41《 Visual FoxPro程序設計 》步長型循環(huán)示例[例 89] 編寫程序計算 S=1+2+…+1000 之和。clears=0for i=1 to 1000 s=s+inext? s=1+2+…+1000 =:,s也可以這樣寫：clears=0i=1Do while i=1000 s=s+i i=i+1enddo? s=1+2+…+1000 =:,s42《 Visual FoxPro程序設計 》步長型循環(huán)示例[例 810]輸入一個字符串，分別統(tǒng)計出其中英文字母、空格、數(shù)字和其它字符個數(shù)。CLEARalpa=0kong=0num=0others=0accept “請輸入一個字符串： ” to cstr len1=LEN(RTRIM(cstr)) amp。amp。 len1為字符串長度43《 Visual FoxPro程序設計 》FOR i=1 TO len1 ch=SUBSTR(cstr,i,1) IF upper(ch=A and upper(ch)=Z“ * 判斷字符 alpa=alpa+1 ELSE IF ch= amp。amp。 判斷空格 kong=kong+1 ELSE IF ch=0 and ch=9 amp。amp。 判斷數(shù)字 num=num+1 ELSE others=others+1 ENDIF ENDIF ENDIFENDFOR? 字符個數(shù)： +STR(alpa)+ 空格個數(shù)： +STR(kong)? 數(shù)字個數(shù)： +STR(num)+ 其他字符個數(shù)： +STR(others)44《 Visual FoxPro程序設計 》FOR i=1 TO len1 ch=SUBSTR(cstr,i,1) do case case upper(ch)=A and upper(ch)=Z amp。amp。 判斷字符 alpa=alpa+1 case ch= amp。amp。 判斷空格 kong=kong+1 case ch=0 and ch=9 amp。amp。 判斷數(shù)字 num=num+1 otherwise others=others+1 endcaseENDFOR? 字符個數(shù)： +STR(alpa)+ 空格個數(shù)： +STR(kong)? 數(shù)字個數(shù)： +STR(num)+ 其他字符個數(shù)： +STR(others)45《 Visual FoxPro程序設計 》n 格式： SCAN [范圍 ] [FOR 條件表達式 1] 語句序列 ENDSCANn 功能： SCAN 循環(huán)針對當前表進行循環(huán)， 范圍 子句表示記錄范圍，缺省值為 ALL 。語句執(zhí)行時在 范圍 中依次尋找滿足 FOR 條件的記錄，并對找到的記錄執(zhí)行 語句序列 。46《 Visual FoxPro程序設計 》Skip+1TEof( )循環(huán)體FScan 指針型循環(huán)語句的執(zhí)行流程47《 Visual FoxPro程序設計 》掃描型循環(huán)示例[例 811]顯示年齡大于等于 19的學生記錄。CLEAR USE studentSCAN FOR sage=19 DISPLAY sname,sageENDSCANUSE也可以這樣寫：clearUSE xsqkDo while not eof() if sage=19 DISPLAY sname,sage endif skipEnddoUse48《 Visual FoxPro程序設計 》實驗作業(yè)批講用三種循環(huán)語句統(tǒng)計 xsqk表中入學分數(shù)超過 570分的人數(shù) 。CLearUSE xsqkRs=0Do while not eof( ) if 入學分數(shù) =570 rs=rs+1 enddif skip Enddo？ “超過 570人數(shù)共： ”,rsUSE2. 固定次數(shù)循環(huán)語句CLEAR USE xsqkjls=reccount()Rs=0For i=1 to jls if 入學分數(shù) =570 rs=rs+1 enddif skip Endfor？ “超過 570人數(shù)共： ”,rsUSEgo iif 入學分數(shù) =570 rs=rs+1enddif 49《 Visual FoxPro程序設計 》CLearUSE xsqkRs=0Scan for 入學分數(shù) =570 rs=rs+1Endscan？ “超過 570人數(shù)共： ”,rsUSE三種循環(huán)語句比較：1. 條件循環(huán)語句是一種萬能型循環(huán)語句，適合解決所有遇到的循環(huán)問題。2. 固定次數(shù)的循環(huán)語句適用已知循環(huán)次數(shù)的循環(huán)。3. 掃描型循環(huán)專門針對數(shù)據(jù)表操作，如果遍歷數(shù)據(jù)表記錄時，使用它最方便。50《