【文章內(nèi)容簡(jiǎn)介】 75 ? “該學(xué)生成績(jī)良好” CASE CJ=60 ? “該學(xué)生成績(jī)合格” OTHERWISE ? “該學(xué)生成績(jī)不及格” ENDCASE 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 分支程序設(shè)計(jì) 〖 任務(wù)小結(jié) 〗 在 IF條件語(yǔ)句中如果條件為真，則執(zhí)行命令語(yǔ)句組中的各語(yǔ)句，否則跳過(guò)這些命令語(yǔ)句不執(zhí)行，而執(zhí)行 ENDIF后的語(yǔ)句。 多分支條件語(yǔ)句 DO CASE在執(zhí)行時(shí)依次判斷 CASE后面的條件是否成立，當(dāng)發(fā)現(xiàn)某個(gè) CASE 后面的條件成立時(shí)，就執(zhí)行該 CASE和下一個(gè) CASE之間的命令序列，然后執(zhí)行 ENDCASE后面的命令。如果所有的條件都不成立，則執(zhí)行OTHERWISE與 ENDCASE之間的命令序列，然后轉(zhuǎn)向 ENDCASE后面的語(yǔ)句。 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 〖 任務(wù)描述 〗 當(dāng)某一段程序要重復(fù)執(zhí)行多次時(shí) ,為避免編寫(xiě)重復(fù)的程序代碼 ,可以利用循環(huán)結(jié)構(gòu)來(lái)完成。 Visual FoxPro ： DO WHILE –ENDDO、FOR –ENDFOR、 SCANENDSCAN語(yǔ)句 〖 技能目標(biāo) 〗 （ 1）掌握循環(huán)語(yǔ)句格式和功能； （ 2）掌握多重分支語(yǔ)句格式和功能； （ 3）學(xué)會(huì)使用循環(huán)結(jié)構(gòu)程序設(shè)計(jì)思想解決問(wèn)題； 〖 任務(wù)分析 〗 Visual FoxPro ： DO WHILE –ENDDO、 FOR –ENDFOR、 SCANENDSCAN語(yǔ)句 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 〖 技能建構(gòu) 〗 DO WHILE –ENDDO 語(yǔ)句 命令格式： DO WHILE 條件 語(yǔ)句序列 [LOOP] [EXIT] ENDDO 命令功能：如果條件成立，則執(zhí)行 DO WHILE與 ENDDO之間的語(yǔ)句序列，當(dāng)執(zhí)行到 ENDDO時(shí) ,返回到 DO WHILE，再次判斷條件是否為真，以確定是否再次執(zhí)行語(yǔ)句序列。如果條件為假，則結(jié)束該循環(huán)語(yǔ)句，執(zhí)行 ENDDO后面的語(yǔ)句。 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 例 6：計(jì)算 S=1+2+3+…+100 S=0 I=1 DO WHILE I=100 S=S+I I=I+1 ENDDO ？“ S=”， S 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 例 7：逐條輸出男同學(xué)的記錄 CLEAR OPEN DATABASE XSQK SELECT 學(xué)生 LOCATE FOR 性別 =“男” DO WHILE .() DISPLAY WAIT CONTINUE ENDDO CLOSE DATABASE 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) FORENDFOR 語(yǔ)句 命令格式： FOR 循環(huán)變量 =初值 TO 終值 [STEP 步長(zhǎng) ] 語(yǔ)句序列 [LOOP] [EXIT] ENDFOR 命令功能：執(zhí)行語(yǔ)句時(shí)，首先將初值賦給循環(huán)變量，然后判斷循變量沒(méi)有超過(guò)終值，則執(zhí)行語(yǔ)句序列，然后循環(huán)變量遞增（遞增值為步長(zhǎng)），再判斷循變量有沒(méi)有超過(guò)終值，沒(méi)有，繼續(xù)執(zhí)行語(yǔ)句序列，否則結(jié)束循環(huán)，執(zhí)行ENDFOR后面的語(yǔ)句。 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 例 8：求 S=1+3+5+…+99 的值 CLEAR S=0 FOR N=1 TO 99 STEP 2 S=S+N ENDFOR ?”S=”,S 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) SCANENDSCAN 語(yǔ)句 命令格式： SCAN [范圍 ] [FOR 條件 ] [WHILE 條件 ] 語(yǔ)句序列 [LOOP] [EXIT] ENDSCAN 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) SCANENDSCAN 語(yǔ)句 命令格式： SCAN [范圍 ] [FOR 條件 ] [WHILE 條件 ] 語(yǔ)句序列 [LOOP] [EXIT] ENDSCAN 命令功能：執(zhí)行語(yǔ)句時(shí)，記錄指針自動(dòng) ,依次地在當(dāng)前表的指定范圍內(nèi)滿足條件的記錄上移動(dòng) ,對(duì)每一條記錄執(zhí)行循環(huán)體內(nèi)的語(yǔ)句。 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 例 9： 統(tǒng)計(jì) 、女生人數(shù)。 OPEN DATABASE XSQK STORE 0 TO M， N SCAN FOR 英語(yǔ) =60 IF 性別 =“男” M=M+1 ELSE N=N+1 ENDIF ENDSCAN CLEAR ?“英語(yǔ)及格的男生人數(shù)：” ,M ?“英語(yǔ)及格的女生人數(shù)：” ,N CLOSE DATABASE RETURN 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 例 10：求 S=1!+2!+3!+…+20! CLEAR S=0 FOR I=1 TO 20 M=1 FOR J=1 TO I M=M*J ENDFOR S=S+M ENDFOR ?“1!+2!+3!+…+20!=”,S 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 例 11：編寫(xiě)程序輸出以下圖形： CLEAR FOR N=1 TO 10 FOR M=1 TO n ??* ENDFOR ? ENDFOR 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 〖任務(wù)小結(jié)〗 在實(shí)際應(yīng)用中，常常需要多次重復(fù)執(zhí)行某些語(yǔ)句。這樣的需求適合于用循環(huán)語(yǔ)句來(lái)處理。在 vfp中提供了 3種循環(huán)語(yǔ)句： do while循環(huán)、 for循環(huán)及 scan循環(huán)。 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 子程序、過(guò)程與自定義函數(shù)設(shè)計(jì) 〖任務(wù)描述〗 程序設(shè)計(jì)時(shí)，常常有些運(yùn)算和處理程序是相同的，只是每次以不同的參數(shù)參與運(yùn)行。為了節(jié)省時(shí)間和存儲(chǔ)空間，使人們能夠共享一些公共的程序段，往往將重復(fù)出現(xiàn)的或者能夠單獨(dú)使用的程序?qū)懗沙绦蚨巍Ｋ梢元?dú)立存在，可以被其它程序調(diào)用。這就是子程序。 〖技能目標(biāo)〗 （ 1）掌握自定義函數(shù)和過(guò)程文件的定義、調(diào)用； （ 2）掌握子程序或函數(shù)時(shí)數(shù)據(jù)傳遞； （ 3）在結(jié)構(gòu)程序設(shè)計(jì)中靈活使用過(guò)程與自定義函數(shù)； 〖 任務(wù)分析 〗 在 Visual FoxPro ，子程序與主程序基本上相同，用同樣的方法建立，以同樣的文件格式存放，具有相同的擴(kuò)展名，唯一不同的是，在子程序的最后必須加一條返回語(yǔ)句。主程序的末尾放不放返回語(yǔ)句都沒(méi)有關(guān)系，執(zhí)行完最后一句都是返回到命令窗口，如果在主程序的末尾加上返回語(yǔ)句，它就可以作為一個(gè)