【文章內(nèi)容簡(jiǎn)介】 amp。amp。計(jì)數(shù)變量初值為 0 do while not eof() amp。amp。循環(huán)條件是還未到表尾 if year(date())year(出生日期 )20 n=n+1 endif skip amp。amp。修改記錄指針，指向下一記錄 ,若沒(méi)該句，將造成死循環(huán) enddo use ?年齡大于 20歲的人數(shù)有： ,n 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 37 ? 該語(yǔ)句的格式如下： FOR 循環(huán)變量 =初值 TO 終值 [STEP 步長(zhǎng)] 循環(huán)體 [EXIT] [LOOP] ENDFOR|NEXT ? 語(yǔ)句執(zhí)行時(shí)，首先給循環(huán)變量賦予初值，與終值比較，若超過(guò)終值，則循環(huán)體一次也不執(zhí)行，直接轉(zhuǎn)去執(zhí)行 ENDFOR|NEXT后面的語(yǔ)句；若不超過(guò)終值，則依次執(zhí)行循環(huán)體中的語(yǔ)句，遇到ENDFOR｜ NEXT語(yǔ)句，將循環(huán)變量加上步長(zhǎng)后，程序轉(zhuǎn)回到循環(huán)初始語(yǔ)句，繼續(xù)判斷，流程圖如圖 613所示。 ? 步長(zhǎng)可正可負(fù) .步長(zhǎng)為 1時(shí)，可省略 STEP子句。 ? 當(dāng)循環(huán)次數(shù)事先已知時(shí)，通常使用計(jì)數(shù)型循環(huán)，循環(huán)次數(shù)可以根據(jù)下式計(jì)算： INT(ABS((終值 初值 )/步長(zhǎng) ))+1 FOR語(yǔ)句 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 38 【 例 69】 編制程序?qū)崿F(xiàn) 100以內(nèi)的奇數(shù)累加和，并輸出結(jié)果。 ? 分析：實(shí)現(xiàn) 100以內(nèi)奇數(shù)的累加，循環(huán)變量的初值應(yīng)為 1，終值應(yīng)為 99，循環(huán)變量的步長(zhǎng)應(yīng)為 2。 【 例 610】 從鍵盤上輸入一個(gè)大于 1的自然數(shù)，判斷是否為素?cái)?shù)（除 1和它本身外，不能被其他任何一個(gè)整數(shù)整除的自然數(shù)）。 ? 分析：判斷某數(shù) n是否為素?cái)?shù)，最簡(jiǎn)單的方法是：從 i=2，3， ? ， n1逐個(gè)判斷 n能否被 i整除，只要有一個(gè)能整除，n就不是素?cái)?shù)，退出循環(huán)；若都不能整除，則 n是素?cái)?shù)?？蛇M(jìn)一步證明：若 n不能被 2～中的任何一個(gè)整數(shù)整除，則 n為素?cái)?shù)。 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 39 SCAN語(yǔ)句 ? 該語(yǔ)句的格式如下： SCAN [范圍 ] [FOR 條件 ] 循環(huán)體 [EXIT] [LOOP] ENDSCAN ? 掃描型循環(huán)語(yǔ)句專門用來(lái)對(duì)當(dāng)前打開的數(shù)據(jù)表進(jìn)行操作，它對(duì)指定范圍滿足條件的記錄逐一掃描，找到一條滿足條件的記錄就執(zhí)行一次循環(huán)體語(yǔ)句，每執(zhí)行一次，記錄指針后移，直到所有滿足條件的記錄都執(zhí)行完畢。 ? 說(shuō)明： ? 語(yǔ)句中 范圍 缺省時(shí)默認(rèn)為 ALL。 ? 其中的 EXIT和 LOOP子句的功能和 DO WHILE循環(huán)中的功能相同。 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 40 【 例 611】 用掃描型循環(huán) SCAN語(yǔ)句統(tǒng)計(jì)學(xué)生信息表student中年齡在 20歲以上的學(xué)生人數(shù)，并輸出結(jié)果。 ? 程序代碼如下： * use student n=0 scan for year(date())year(出生日期 )20 n=n+1 endscan ?年齡大于 20歲的人數(shù)有： ,n 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 41 ? 在一個(gè)循環(huán)體內(nèi)又包含了一個(gè)完整的循環(huán)結(jié)構(gòu)時(shí)稱為循環(huán)結(jié)構(gòu)的嵌套。在實(shí)際應(yīng)用中，三種循環(huán)語(yǔ)句可以相互嵌套，會(huì)呈現(xiàn)出多種復(fù)雜形式，在編程或閱讀程序時(shí)要注意各層循環(huán)變量的變化規(guī)律。 ? 在使用循環(huán)嵌套時(shí)需要注意以下幾點(diǎn)： ? 循環(huán)嵌套時(shí)，必須完整嵌套，不能交叉嵌套；循環(huán)體內(nèi)可以嵌套分支語(yǔ)句，嵌套時(shí)也要求完整嵌套，不能交叉嵌套。 ? 內(nèi)重循環(huán)的循環(huán)變量與外重循環(huán)的循環(huán)變量不能同名，以免混淆。 ? 多重循環(huán)的循環(huán)次數(shù)等于每一重循環(huán)的循環(huán)次數(shù)的乘積。 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 42 【 例 612】 打印九九乘法表，運(yùn)行界面如圖 614所示。 ? 程序代碼如下： * clear amp。amp。先將 VFP主窗口清空 @1,30 say 九九乘法表 @2,28 say ? for i=1 to 9 for j=1 to 9 ??str(i,1)+*+STR(j,1)+=+str(i*j,2) ??space(2) amp。amp。每個(gè)算式之間空兩格 endfor ? amp。amp。當(dāng)前行算式輸出完以后，換行再輸出下一行 endfor 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 43 ? 數(shù)組這種數(shù)據(jù)結(jié)構(gòu)在程序設(shè)計(jì)中經(jīng)常使用，在 Visual FoxPro中，只能定義一維數(shù)組和二維數(shù)組。因?yàn)閿?shù)組中數(shù)組元素的下標(biāo)是有序的，可以以數(shù)組元素的下標(biāo)作為循環(huán)變量，利用循環(huán)結(jié)構(gòu)來(lái)處理數(shù)組中每個(gè)數(shù)組元素。一般用一重循環(huán)來(lái)處理一維數(shù)組，用二重循環(huán)來(lái)處理二維數(shù)組，下面以一維數(shù)組為例進(jìn)行介紹。 (1)一維數(shù)組的基本操作 ? 假設(shè)定義有一維數(shù)組 dimension a(10)，下面以該數(shù)組為例介紹一維數(shù)組的基本操作。 ②數(shù)組元素的輸出 for i=1 to 10 ??a(i) endfor ①數(shù)組元素的輸入 for i=1 to 10 input to a(i) endfor 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 44 ③數(shù)組元素的求和 s=0 for i=1 to 10 s=s+a(i) endfor ④求數(shù)組元素中的最大值 max=a(1) for i=1 to 10 if(a(i)max) max=a(i) endif endfor 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 45 ? 數(shù)組最典型的應(yīng)用是排序，排序的算法有多種，如選擇法、冒泡法、插入法等，下面介紹冒泡法排序。 ? 假設(shè)定義了一個(gè)數(shù)組 dimension a(10)，則冒泡法排序的基本思想是：從第一個(gè)元素開始，對(duì)數(shù)組中兩兩相鄰的元素比較，即 a(1)與 a(2)比較，若為逆序，則 a(1)與 a(2)交換，然后 a(2)與 a(3)比較 ?? 直到最后 a(9)與 a(10)比較，這時(shí)最大的數(shù)沉底成為數(shù)組中的最后一個(gè)元素，一些較小的數(shù)如同氣泡一樣上浮一個(gè)位置，這是第一趟排序。然后對(duì) a(1)～ a(9)中的 9個(gè)數(shù)進(jìn)行同上述一樣的比較，次最大數(shù)放入a(9)中，完成第 2趟排序。依此類推，進(jìn)行 9趟排序后，所有數(shù)均有序。因此可以用二重循環(huán)來(lái)實(shí)現(xiàn)這個(gè)排序，外循環(huán)確定進(jìn)行幾趟排序，內(nèi)循環(huán)確定每趟排序中比較幾次。 ? 代碼如下： for i=1 to 9 amp。amp。確定排序的趟數(shù) for j=1 to 10I amp。amp。確定每趟排序中比較的次數(shù) if a(j)a(j+1) amp。amp。若相鄰的兩個(gè)數(shù)為逆序，則交換 t=a(j) a(j)=a(j+1) a(j+1)=t endif endfor endfor (2)一維數(shù)組的排序 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 46 【 例 613】 隨機(jī)產(chǎn)生 20個(gè)學(xué)生成績(jī)，求出他們的平均成績(jī)，并統(tǒng)計(jì)出高于平均成績(jī)的學(xué)生數(shù)，再將這 20個(gè)學(xué)生成績(jī)按升序排列后輸出。 ? 分析： Visual FoxPro提供了隨機(jī)數(shù)函數(shù) RAND()，可以產(chǎn)生一個(gè) 0～ 1(不包括 1)之間的隨機(jī)數(shù)。學(xué)生成績(jī)通常在0～ 100之間，為了產(chǎn)生這之間的隨機(jī)數(shù)，可以用表達(dá)式INT(RAND()*100)+1來(lái)實(shí)現(xiàn)。 ? 程序代碼如下： * 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 47 clear dimension a(20) for i=1 to 20 a(i)=int(rand()*100)+1 endfor s=0 for i=1 to 20 s=s+a(i) endfor av=s/20 ?平均成績(jī)是： ,av n=0 for i=1 to 20 if a(i)av n=n+1 endif endfor ?高于平均成績(jī)的人數(shù)為： ,n for i=1 to 19 for j=1 to 20i if a(j)a(j+1) t=a(j) a(j)=a(j+1) a(j+1)=t endif endfor endfor ? for i=1 to 20 ??a(i) endfor 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 48 過(guò)程與過(guò)程調(diào)用 ? 子程序設(shè)計(jì)與調(diào)用 ? 過(guò)程與過(guò)程文件 ? 局部變量和全局變量、過(guò)程調(diào)用中的參數(shù)傳遞 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 49 子程序設(shè)計(jì)與調(diào)用 ? 在程序設(shè)計(jì)中，經(jīng)常會(huì)遇到同一段功能代碼在不同的程序段執(zhí)行多次的情況，這時(shí)往往將該功能代碼單獨(dú)編寫成一個(gè)獨(dú)立的程序文件存在磁盤上，需要時(shí)調(diào)用它，這個(gè)獨(dú)立的模塊稱為子程序。程序之間通過(guò)相互調(diào)用來(lái)建立關(guān)系。在 Visual FoxPro中，子程序是被其他程序調(diào)用的程序文件，主程序能調(diào)用子程序，但子程序不能調(diào)用主程序，可是子程序可以調(diào)用其他的子程序，構(gòu)成子程序的嵌套調(diào)用。 ? 在模塊化程序設(shè)計(jì)中，通常將功能和結(jié)構(gòu)相對(duì)獨(dú)立的功能模塊，單獨(dú)編寫成一個(gè)獨(dú)立的子程序。子程序結(jié)構(gòu)不僅易于調(diào)試和維護(hù)，而且當(dāng)需要時(shí)可以多次調(diào)用，減少重復(fù)編程，提高程序的通用性。子程序的表現(xiàn)形式有過(guò)程、自定義函數(shù)和方法 3種。 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 50 ? 子程序是一個(gè)獨(dú)立的程序文件，文件擴(kuò)展名為 .PRG，它的建立與前面所說(shuō)的程序建立的方法一樣。 DO 子程序文件名 [WITH 實(shí)際參數(shù)列表 ] ? 其中 [WITH 實(shí)際參數(shù)列表 ]是可選項(xiàng)，用于主程序與子程序之間的參數(shù)傳遞，實(shí)際參數(shù)列表中的各項(xiàng)可以是常量、變量或表達(dá)式，相互之間用逗號(hào)隔開。 RETURN [TO MASTER|TO 過(guò)程名 ] ? 執(zhí)行子程序時(shí)，遇到 RETURN命令，就返回到調(diào)用它的主程序，或是上一級(jí)子程序中調(diào)用命令的下一條語(yǔ)句繼續(xù)執(zhí)行。通常子程序的最后一條語(yǔ)句是 RETURN命令，若缺省，則當(dāng)子程序執(zhí)行到最后時(shí)將自動(dòng)執(zhí)行 RETURN功能，返回到主調(diào)程序中。 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 51 ? 圖 617是子程序嵌套調(diào)用時(shí)的程序執(zhí)行過(guò)程示意圖。 前頁(yè) 后頁(yè) 首頁(yè) Visual FoxPro 程序設(shè)計(jì) .課件 52 【 例 614】 分別建立如上圖所示的各程序文件，