【正文】 DO FAC WITH N,C1 C1=C1*I DO FAC WITH M,C2 ENDFOR 計算 N！ DO FAC WITH NM,C3 C2=1 ? 組合數 : ,C1/C2/C3 FOR I=1 TO M SET TALK ON C2=C2*I ENDFOR 計算 M！ PROCEDURE FAC C3=1 PARAMETERS X,Y FOR I=1 TO NM FOR I=1 TO X C3=C3*I Y=Y*I ENDFOR 計算（ NM）！ ENDFOR ? 組合數 = ， C1/C2/C3 RETURN mnC )!(!! mnm n? 學生成績管理系統(tǒng) 登錄成績（對應過程 DL ）查詢成績（對應過程C X ）打印成績單（對應過程D Y ）主菜單（對應主程序. p r g ) 過程與用戶自定義函數 過程 1． 創(chuàng)建過程 過程是為完成某個操作而編寫的程序段 。假設小雞每只 5角，公雞每只 2元，母雞每只 3元，若要用 100元買到100只雞，共有多少種方案。 分析 ：枚舉法。 2． 多重循環(huán) 多重循環(huán)即循環(huán)的嵌套 ， 在一個循環(huán)的循環(huán)體中 ， 包含有另一個循環(huán) 。 例 13 打印某種報表，每打印完一張，便提示用戶是否還要打印，由用戶輸入的信息來進行控制，試編程序實現(xiàn)這種功能。EXIT語句可實現(xiàn)這一要求 。 算法：枚舉。 3． FOR循環(huán) (1) 語句格式： FOR 循環(huán)變量名 =數值表達式 1 TO 數值表達式 2 [STEP數值表達式 3] 循環(huán)體語句序列 ENDFOR/NEXT (2) 執(zhí)行過程 (3) 說明： ① 在執(zhí)行循環(huán)體時 ， 若對初值 、 終值和步長三個表達式中所含變量的值作了修改 ， 不會影響循環(huán)初值 、 循環(huán)終值和步長 。 圖 5– 11 DO WHILE循環(huán)語句流程圖 當條件表達式為假時，退出循環(huán)；循環(huán)體END DO 結束循環(huán)，執(zhí)行一條語句否則，重復執(zhí)行 例：將一張厚度 多少次后厚度超過珠峰的高度？ 2． SCAN循環(huán) 語句格式 ： SCAN [范圍 ] [FOR條件 ] 循環(huán)體語句序列 ENDSCAN 其中， SCAN為循環(huán)起始語句， ENDSCAN為循環(huán)結束語句。 例 5 用情況語句重新編制例 4，比較情況語句與條件轉向語句的用法。 如果所有的條件都不為真值 ， 若無 OTHERWISE子句 ， 則不執(zhí)行任何語句序列 ， 跳轉至ENDCASE后；有可選項 OTHEWISE時 ， 執(zhí)行 OTHERWISE子句對應的語句序列 ， 再跳轉至 ENDCASE后 。 IF和 ENDIF必須成對出現(xiàn) 。 流程圖是形象的描述程序設計思想的好方法 ， 它的特點是比較直觀 、 清晰 。 2． 清屏命令 —— CLEAR 命令格式 ： CLEAR 命令功能 ：清除 VFP主窗口或當前用戶自定義窗口 。 執(zhí)行命令文件 命令基本格式 ： DO 命令文件名 命令功能 ：首先打開指定的命令文件 ， 然后從其第一條語句開始執(zhí)行 。 也可用 Esc鍵作廢編輯并結束命令 。 VFP程序 —— 命令文件的建立和執(zhí)行 VFP常用編程命令及函數 VFP流程圖介紹 順序執(zhí)行 判斷分支 循環(huán)結構 過程與用戶自定義函數 第五章 Visual FoxPro程序設計入門 VFP程序 —— 命令文件的建立和執(zhí)行 建立和編輯命令文件 1． 用 MODIFY COMMAND命令建立命令文件 命令格式 ： MODIFY COMMAND [文件名 ] 命令功能 ：打開命令文件編輯窗口創(chuàng)建 /編輯指定命令文件 。 ?編輯結束時 ， 可用 ^End或 ^W結束命令并存盤 。 操作過程：首先打開項目管理器 → 選擇 “ 代碼 ” 選項卡→ 選擇 “ 程序 ” 選項 → 單擊 “ 新建 ” 按鈕 ， 也將打開一編輯窗口供用戶輸入程序 。 VFP常用編程命令及函數 1． 系統(tǒng)初始化命令 —— CLEAR ALL 命令格式 ： CLEAR ALL 命令功能： 關閉所有打開的庫文件 、 表文件及其相關文件 ——索引文件 、 備注文件等 ， 清除所有內存變量 ， 清除所有用戶自定義下拉菜單 、 彈出式菜單和窗口 ， 選擇1號工作區(qū)為當前工作區(qū) 。 VFP流程圖介紹 在編制程序尤其是編制復雜程序時 ， 常用流程圖來進行程序設計和介紹程序的結構 。 程序清單 : Clear Input‘請輸入半徑： ’ to r ? ?圓的面積為 :’ ,pi()*r*r 判 斷 分 支 條件轉向語句 —— IF… ENDIF 這是一種簡單的分支語句 ， 語句格式如下： IF條件表達式 命令序列 ENDIF 條件表達式 值為 “ 真 ” 時 ， 順序執(zhí)行 IF和 ENDIF間的語句行序列 ， 然后再執(zhí)行 ENDIF后的語句；若其值為 “ 假 ”時 ， 則直接跳到 ENDIF后面的語句繼續(xù)執(zhí)行 。 程序清單如下： 圖 5?–?8 例 4的流程圖 定期 ＜ 5 年 ?是 否利率 ＝ 7 利率 ＝ 9利率 ＝ 5否是定期 ＜ 3 年 ?利率 ＝ 3是 否定期 ＜ 1 年 ?輸入存款年限 情況語句 —— DO CASE … ENDCASE 情況語句格式： DO CASE CASE ?條件表達式 1