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