【正文】 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 81 9.“ 調(diào)速”命令： 單擊該命令可以打開如圖 627所示的“調(diào)整運(yùn)行速度”對(duì)話框，從中設(shè)置執(zhí)行兩代碼行之間的延時(shí)秒數(shù)。 7.“ 單步跟蹤”命令： 該命令用于單步執(zhí)行下一行代碼。 圖 626 “調(diào)試”菜單 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 80 4.“ 定位修改”命令： 用于終止程序的調(diào)試執(zhí)行，然后打開所調(diào)試程序的“編輯”窗口進(jìn)行編輯修改。若“跟蹤”窗口中沒有打開的程序，則會(huì)打開“運(yùn)行”對(duì)話框，可以從中選擇要調(diào)試的程序，調(diào)試器立即執(zhí)行此程序，并中斷于第一條可執(zhí)行代碼上，此時(shí)調(diào)試菜單中顯示的不再是“運(yùn)行”命令，而是“繼續(xù)執(zhí)行”命令。 5.“ 局部”窗口 ? 用來顯示指定作用域的內(nèi)存變量或?qū)ο蟮拿Q、當(dāng)前值和類型。 ? 雙擊監(jiān)視表達(dá)式，可對(duì)其編輯修改；若刪除該表達(dá)式，右擊監(jiān)視表達(dá)式，在彈出菜單中選“刪除監(jiān)視”命令即可。若需在某行設(shè)置斷點(diǎn)，可以雙擊該代碼行，在該行左側(cè)將會(huì)出現(xiàn)一個(gè)紅色的實(shí)心圓點(diǎn)“●”，當(dāng)程序執(zhí)行到該行時(shí)，將中斷程序運(yùn)行。單擊調(diào)試器窗口中的“文件” |“ 打開”命令可以打開需要調(diào)試執(zhí)行的程序文件。 ? 發(fā)現(xiàn)程序有錯(cuò)誤，就應(yīng)該確定出錯(cuò)的位置并糾正錯(cuò)誤，如何確定出錯(cuò)的位置是關(guān)鍵。 提示信息 可能的錯(cuò)誤 不能識(shí)別的命令謂詞 命令書寫錯(cuò)誤 命令中含有不能識(shí)別的短語或關(guān)鍵字 命令中的關(guān)鍵字書寫錯(cuò)誤 操作符 |操作數(shù)類型不匹配 表達(dá)式或函數(shù)中的數(shù)據(jù)類型不匹配 函數(shù)名缺少 ) 括號(hào)不匹配 找不到變量 使用了不存在的變量名，可能遺漏了關(guān)鍵字與變量之間的空格，或變量列表中使用了中文標(biāo)點(diǎn)等。程序調(diào)試往往是先分模塊調(diào)試，當(dāng)各個(gè)模塊都調(diào)試通過后，再將各模塊聯(lián)合起來進(jìn)行調(diào)試。使用最上級(jí)模塊中的私有變量 b ? c=300 amp。使用的是上級(jí)主調(diào)模塊中的 c ? do sub2 ? ?sub1中的 a,b,c值分別為： ,a,b,c ?endproc ?proc sub2 ? private a amp。本地變量 b，作用在 sub1模塊中 ? a=2 amp。定義公共變量 c，作用域包括各個(gè)模塊 ?a=1 ?b=10 amp。在命令窗口中定義的變量或數(shù)組都是公共變量，但這些公共變量不能在程序中引用。 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 67 3. 公共變量（全局變量） ? 公共變量的作用域包括程序的所有模塊，定義公共變量的語法格式如下： PUBLIC 內(nèi)存變量表 ? 該命令將內(nèi)存變量表中的變量定義為公共變量，并將這些變量的初值賦值為 .F.。 ? PRIVATE命令可以定義私有變量，也可定義私有數(shù)組。 ? 定義本地變量的語法格式： LOCAL 內(nèi)存變量表 ? 該命令將內(nèi)存變量表中的變量定義為本地變量，并將這些變量的初值賦值為 .F.。參數(shù) a,b均為引用傳遞方式 ?第 4次調(diào)用： ,a,b procedure sub parameters x,y x=x+10 y=y+10 return endproc 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 65 變量的作用域 ? 內(nèi)存變量在程序中的作用范圍稱為內(nèi)存變量的作用域。設(shè)置為引用傳遞方式 store 0 to a,b sub(a,(b)) amp。設(shè)置為值傳遞方式 store 0 to a,b sub(a,(b)) amp。程序 ： clear store 0 to a,b do sub with a,(b) amp。 ? 值傳遞的兩種情況： (1)程序調(diào)用時(shí)，可以使用如下兩種格式的語句： 文件名 |過程名 |函數(shù)名 ((實(shí)際參數(shù)列表 )) 或者： DO 文件名 |過程名 WITH (實(shí)際參數(shù)列表 ) 即將實(shí)際參數(shù)加上圓括號(hào)后再放到實(shí)參列表中，默認(rèn)的是值傳遞的方式。 ? 根據(jù)形參值的改變是否影響實(shí)參的值，可以將參數(shù)傳遞分為兩類：值傳遞和引用傳遞。 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 60 【 例 617】 將上例改用自定義函數(shù)來實(shí)現(xiàn)，其中函數(shù)放在調(diào)用程序所在的程序文件中。 ? 自定義函數(shù)可作為一個(gè)獨(dú)立的模塊放在調(diào)用它的程序文件中，通常放在程序文件的底部；也可以作為一個(gè)獨(dú)立的程序文件，供所有程序調(diào)用，這時(shí)可以省略自定義函數(shù)的起始語句 FUNCTION 函數(shù)名 ，若不省略該語句，則函數(shù)名必須與程序文件名相同；自定義函數(shù)還可以放在過程文件中，隨著過程文件的打開而打開，以供調(diào)用。 程序代碼如下： * clear set procedure to jc input 請(qǐng)輸入 n的值： to n store 0 to s,j for i=1 to n do fact with i,j s=s+j endfor set procedure to ?1!+2!+…+n!=,s * procedure fact parameters x,y t=1 for i=1 to x t=t*i endfor y=t return endproc 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 58 自定義函數(shù) ? 函數(shù)分為系統(tǒng)函數(shù)與自定義函數(shù)， Visual FoxPro提供了幾百個(gè)系統(tǒng)函數(shù)供用戶調(diào)用，大大方便了用戶的編程，但在解決實(shí)際問題時(shí)，系統(tǒng)提供的函數(shù)可能不能滿足用戶的需求，這時(shí)可以自己定義和編寫的函數(shù)，這樣的函數(shù)稱為自定義函數(shù)。 ? 調(diào)用過程文件中的過程前，首先要打開包含它的過程文件。 [ENDPROC]：過程的結(jié)束語句，該語句可以省略，若省略，則過程結(jié)束于下一條 PROCEDURE語句或程序文件尾。有參過程中，該子句必須是第一條命令語句。 ? 因此引入過程的概念，其實(shí)過程和子程序非常類似，只是將多個(gè)子程序的功能模塊代碼保存在一個(gè)程序文件中，在該程序文件中每個(gè)子程序都單獨(dú)定義，而含有多個(gè)子程序的程序文件就稱為過程文件，這樣打開一個(gè)過程文件就意味著打開了所有的過程。 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 51 ? 圖 617是子程序嵌套調(diào)用時(shí)的程序執(zhí)行過程示意圖。 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 50 ? 子程序是一個(gè)獨(dú)立的程序文件，文件擴(kuò)展名為 .PRG，它的建立與前面所說的程序建立的方法一樣。在 Visual FoxPro中，子程序是被其他程序調(diào)用的程序文件，主程序能調(diào)用子程序，但子程序不能調(diào)用主程序，可是子程序可以調(diào)用其他的子程序，構(gòu)成子程序的嵌套調(diào)用。 ? 分析： Visual FoxPro提供了隨機(jī)數(shù)函數(shù) RAND()，可以產(chǎn)生一個(gè) 0～ 1(不包括 1)之間的隨機(jī)數(shù)。amp。因此可以用二重循環(huán)來實(shí)現(xiàn)這個(gè)排序，外循環(huán)確定進(jìn)行幾趟排序，內(nèi)循環(huán)確定每趟排序中比較幾次。 ②數(shù)組元素的輸出 for i=1 to 10 ??a(i) endfor ①數(shù)組元素的輸入 for i=1 to 10 input to a(i) endfor 前頁 后頁 首頁 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 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 45 ? 數(shù)組最典型的應(yīng)用是排序，排序的算法有多種，如選擇法、冒泡法、插入法等，下面介紹冒泡法排序。當(dāng)前行算式輸出完以后，換行再輸出下一行 endfor 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 43 ? 數(shù)組這種數(shù)據(jù)結(jié)構(gòu)在程序設(shè)計(jì)中經(jīng)常使用，在 Visual FoxPro中，只能定義一維數(shù)組和二維數(shù)組。先將 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。 ? 多重循環(huán)的循環(huán)次數(shù)等于每一重循環(huán)的循環(huán)次數(shù)的乘積。 ? 程序代碼如下： * use student n=0 scan for year(date())year(出生日期 )20 n=n+1 endscan ?年齡大于 20歲的人數(shù)有： ,n 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 41 ? 在一個(gè)循環(huán)體內(nèi)又包含了一個(gè)完整的循環(huán)結(jié)構(gòu)時(shí)稱為循環(huán)結(jié)構(gòu)的嵌套。 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 39 SCAN語句 ? 該語句的格式如下： SCAN [范圍 ] [FOR 條件 ] 循環(huán)體 [EXIT] [LOOP] ENDSCAN ? 掃描型循環(huán)語句專門用來對(duì)當(dāng)前打開的數(shù)據(jù)表進(jìn)行操作，它對(duì)指定范圍滿足條件的記錄逐一掃描，找到一條滿足條件的記錄就執(zhí)行一次循環(huán)體語句，每執(zhí)行一次，記錄指針后移，直到所有滿足條件的記錄都執(zhí)行完畢。 ? 分析：實(shí)現(xiàn) 100以內(nèi)奇數(shù)的累加，循環(huán)變量的初值應(yīng)為 1，終值應(yīng)為 99，循環(huán)變量的步長應(yīng)為 2。amp。amp。 1. 當(dāng)型循環(huán) DO WHILE語句 ? 該語句的格式如下： DO WHILE 條件表達(dá)式 循環(huán)體 [EXIT] [LOOP] ENDDO 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 35 【 例 67】 編制程序求 1+2+3+…+100 的和，并輸出結(jié)果。 ? 分析：假設(shè) ab且 ac，則最大值肯定是 a，若這個(gè)條件不滿足，而所滿足的條件是 ba且 bc，則最大值肯定是 b，否則最大值肯定是 c。 ? 由于計(jì)算機(jī)內(nèi)存有易被覆蓋的特點(diǎn)，因此計(jì)算機(jī)中交換兩個(gè)變量的值只能借助于第三個(gè)中間變量來間接交換，如圖 69所示，則交換兩個(gè)變量值的代碼應(yīng)為： ?t=x ?x=y ?y=t 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 27 ? 本題程序代碼如下： * input x= to x input y= to y if xy t=x x=y y=t endif ?x=,x ?y=,y 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計(jì) .課件 28 (2)雙分支形式 ? 雙分支格式： IF 條件表達(dá)式 語句塊 1 ELSE