【正文】 ear(出生日期 )) 。 for 性別 =男 ?女同學(xué)的信息 disp 學(xué)生證號(hào) ,姓名 ,性別 ,； (year(date())year(出生日期 )) ； for 性別 =女 use 打開(kāi)學(xué)生表 提示先顯示男同學(xué)信息 逐頁(yè)顯示男同學(xué)信息 關(guān)閉打開(kāi)的表 清屏幕 提示先顯示女同學(xué)信息 逐頁(yè)顯示女同學(xué)信息 選擇結(jié)構(gòu) ?選擇結(jié)構(gòu)又稱分支結(jié)構(gòu)，它是在程序執(zhí)行過(guò)程中，通過(guò)判斷某些條件是否成立來(lái)控制程序走向的程序結(jié)構(gòu)。 ?分支程序結(jié)構(gòu)的分類： ?單（向）分支 ?雙（向）分支 ?多（向）分支 1．單（向）分支 ?格式： IF 條件 命令序列 1 ENDIF ?功能：若 條件 成立， 則執(zhí)行 命令序列 1； 否則執(zhí)行 ENDIF后面的語(yǔ)句。 ?說(shuō)明： ? IF 和 ENDIF必須成對(duì)出現(xiàn)。 ?條件 是一個(gè)邏輯值表達(dá)式。 ?命令序列 1可以是多條語(yǔ)句的集合。 命令序列 1 條件？ 不成立 成立 clear input 請(qǐng)輸入一個(gè)正整數(shù) to x if x0 ?輸入的是正整數(shù) ?x= , x endif return 【 例 75】 判斷一個(gè)數(shù)是正負(fù)、負(fù)數(shù)、還是零。 程序分析： Clear Input 請(qǐng)輸入一個(gè)數(shù) to N If N0 ?是正數(shù)。 Endif If N0 ? 是負(fù)數(shù)。 Endif If N=0 ? 是零。 Endif 【 例 76】 在學(xué)生表中根據(jù)所輸入的學(xué)生證號(hào)查找該學(xué)生記錄。 程序分析： Clear Use 學(xué)生表 Accept 請(qǐng)輸入所要查找的學(xué)生證號(hào)： TO XSZH Locate For 學(xué)生證號(hào) =XSZH If Found() Disp EndIf Use Return 2．雙（向）分支 ?格式 IF 條件 命令序列 1 ELSE 命令序列 2 ENDIF ?功能：若 〈 條件 〉 成立， 則執(zhí)行 命令序列 1, 否則執(zhí)行 命令序列 2。 ?說(shuō)明： IF 和 ENDIF必須成對(duì)出現(xiàn)； ELSE 本身占一行。 命令序列 1 條件？ 不成立 成立 命令序列 2 【 例 77】 用雙分支實(shí)現(xiàn)判斷一個(gè)數(shù)的正負(fù)。 程序分析： Clear Input 請(qǐng)輸入一個(gè)數(shù) to N If N=0 ?是正數(shù)。 Else ?是負(fù)數(shù)。 Endif ?程序運(yùn)行結(jié)束 RETURN 是正數(shù) N=0 否 是 是負(fù)數(shù) 輸入一個(gè)數(shù) 程序運(yùn)行結(jié)束 ?分支語(yǔ)句的嵌套 IF 條件 IF 條件 語(yǔ)句序列 1 ELSE 語(yǔ)句序列 2 ENDIF ELSE IF 條件 語(yǔ)句序列 2 ENDIF ENDIF Clear Input 請(qǐng)輸入一個(gè)數(shù) to N IF N0 ?是正數(shù)。 ELSE IF N=0 ?是零。 ELSE ?是負(fù)數(shù)。 ENDIF ENDIF ?程序運(yùn)行結(jié)束 RETURN N=0 IF N0 ?是正數(shù)。 ELSE ?是零。 ENDIF ELSE ?是負(fù)數(shù)。 【 例 78】 在學(xué)生表中根據(jù)所輸入的姓名查找該學(xué)生記錄 程序分析： Clear Use 學(xué)生表 Accept 請(qǐng)輸入所要查找的姓名： TO XM Locate For 姓名 =XM If Found( ) Disp ELSE ?”查無(wú)此人！” EndIf Use Return 顯示當(dāng)前記錄 找到？ 否 是 顯示查無(wú)此人 按 XM查找記錄 關(guān)閉表 打開(kāi)學(xué)生表 輸入要查找的姓名 XM 3．多（向）分支 ?格式： DO CASE CASE 條件 1 命令序列 1 CASE 條件 2 命令序列 2 ………… CASE 條件 n 命令序列 n [OTHERWISE 命令序列n+1] ENDCASE 條件 1 otherwise 條件 2 條件 n … ENDCASE的 下一條命令 命令序列 1 命令序列 2 命令序列 n 命令序列 n+1 Y Y Y N N N 【 例 79】 根據(jù)所輸入的日期判定今天是星期幾。 程序分析： ?輸入日期 INPUT ?根據(jù)日期判斷星期幾 DOW(日期變量 ) ?程序結(jié)構(gòu)分析： ?單分支 ?雙分支 ?多分去 Input 請(qǐng)輸入今天日期 : To D IF DOW(D)=1 ?日期日 ENDIF IF DOW(D)=2 ?日期一 ENDIF IF DOW(D)=3 ?日期二 ENDIF IF DOW(D)=4 ?日期三 ENDIF IF DOW(D)=5 ?日期四 ENDIF IF DOW(D)=6 ?日期五 ENDIF IF DOW(D)=7 ?日期六 ENDIF 【 例 79】 根據(jù)所輸入的日期判定今天是星期幾。 程序分析： ?輸入日期 INPUT ?根據(jù)日期判斷星期幾 DOW(日期變量 ) ?程序結(jié)構(gòu)分析： ?單分支 ?雙分支 (嵌套 ) ?多分去 Input 請(qǐng)輸入今天日期 : To D IF DOW(D)=1 ?日期日 ELSE IF DOW(D)=2 ?日期一 ELSE IF DOW(D)=3 ?日期二 ELSE IF DOW(D)=4 ?日期三 ELSE IF DOW(D)=5 ?日期四 ELSE IF DOW(D)=6 ?日期五 ELSE IF DOW(D)=7 ?日期六 ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF 【 例 79】 根據(jù)所輸入的日期判定今天是星期幾。 程序分析： ?輸入日期 INPUT ?根據(jù)日期判斷星期幾 DOW(日期變量 ) ?程序結(jié)構(gòu)分析： ?單分支 ?雙分支 ?多分去 Input 請(qǐng)輸入今天日期 : To D Do Case Case Dow(D)=1 ? “星期日 ” Case Dow(D)=2 ? “星期一 ” Case Dow(D)=3 ? “星期二 ” Case Dow(D)=4 ? “星期三 ” Case Dow(D)=5 ? “星期四 ” Case Dow(D)=6 ? “星期五 ” OTHERWISE ? “星期六 ” EndCase Accept 請(qǐng)輸入學(xué)生證號(hào) : To XSZH Use 成績(jī)表 Locate For 學(xué)生證號(hào) = XSZH Do Case Case 期末成績(jī) =90 ? 優(yōu)秀 Case 期末成績(jī) =80 and 期末成績(jī) =89 ? 良好 Case 期末成績(jī) =70 and 期末成績(jī) =79 ? 中等 Case 期末成績(jī) =60 and 期末成績(jī) =69 ? 及格 Case 期末成績(jī) 60 ? 不及格 EndCase 【 例 710】 根據(jù)所輸入的學(xué)生證號(hào) ,，為成績(jī)表中“期末成績(jī)”字段的值判定等級(jí)。期末成績(jī)?cè)冢? 90分以上的為優(yōu)秀， 80至 89為良好， 70至 79為中等， 60至 69為及格， 60以下為不及格。 程序分析： ★學(xué)生證號(hào)的輸入 ★成績(jī)的判斷 ★分支結(jié)構(gòu) 循環(huán)結(jié)構(gòu) ?循環(huán)結(jié)構(gòu) (簡(jiǎn)稱循環(huán) )： ?程序中，根據(jù)某些條件有規(guī)律地重復(fù)執(zhí)行某程序段 ?被重復(fù)執(zhí)行的程序段，稱為 循環(huán)體 ?循環(huán)體通過(guò)循環(huán)結(jié)構(gòu)語(yǔ)句來(lái)實(shí)現(xiàn)循環(huán) ?循環(huán)結(jié)構(gòu)可以減少程序代碼重復(fù)書(shū)寫(xiě)的工作量，使編程效率大大提高， ?VFP的循環(huán)結(jié)構(gòu)語(yǔ)句主要三種 ?當(dāng)型循環(huán) ?步長(zhǎng)型循環(huán) ?表掃描型循環(huán) ?命令格式 1 DO WHILE 條件 循環(huán)體語(yǔ)句 ENDDO 1．當(dāng)型循環(huán) (DO WHILE……ENDDO) 循環(huán)體語(yǔ)句 條件 ? N ENDDO后面語(yǔ)句 Y 語(yǔ)句功能： (1)判斷 條件 是否為真 (.T.)，是真執(zhí)行循環(huán)體語(yǔ)句 ,否則執(zhí)行 ENDDO后面語(yǔ)句 (2)執(zhí)行 DO WHILE和 ENDDO之間的命令序列 (循環(huán)體 ) (3)遇到 ENDDO,轉(zhuǎn) (1) (4)結(jié)束循環(huán)，轉(zhuǎn)到 ENDDO后面的語(yǔ)句。 【 例 711】 輸出１至 100之間所有能被 3整除的數(shù)。 Clear Y=1 Do While Y=100 If mod (Y ,3)=0 ? Y EndIf Y=Y+1 EndDo RETURN 顯示 y值 y=100? N ENDDO后面語(yǔ)句 Y 定義變量 y=1 y整除 3? Y N y值增 1 【 例 712】 把學(xué)生表所有民族為漢族的學(xué)生逐條輸出。 程序 ： Clear Use 學(xué)生表 .dbf Do While not EOF( ) If 民族 =漢族 Disp EndIf Skip EndDO USE ?命令格式 2 DO WHILE 條件 [命令序列 1] [EXIT] [命令序列 2]