【文章內(nèi)容簡介】 return procedure area amp。amp。定義內(nèi)部過程，過程名為 area parameters r， s s=*r*r return 運行結(jié)果如圖 915所示。 圖 915計算圓的面積 程序的調(diào)試 查錯的常用方法。 一、如果在我們程序中有語法性的錯誤，當(dāng)程序運行到錯誤的語句時系統(tǒng)就會停下來，并提示我們程序有錯，往往還會說出是什么錯誤，如“命令中含有不能識別的短語或關(guān)鍵字”，并給出選擇“取消”、“掛起”、“忽略”、“幫助”四個選擇如圖 916所示。 圖 916程序中有語法性錯誤顯示 它們的意思分別是： 取消 ——中止程序運行，回到命令窗口，相當(dāng)于執(zhí)行了 cancel命令，在程序中創(chuàng)建的所有變量被釋放（除公共變量），但數(shù)據(jù)庫及數(shù)據(jù)表一般保持當(dāng)時的狀態(tài)，您可以用 browse命令查看數(shù)據(jù)表的內(nèi)容即記錄指針?biāo)诘奈恢玫鹊龋? 掛起 ——暫停程序，相當(dāng)于執(zhí)行了 suspend命令，這時程序中的所有變量都保持原值，您可以用 ?命令查看變量的值，當(dāng)然也可以查看數(shù)據(jù)表的情況； 忽略 ——忽略所出現(xiàn)的錯誤，即跳過出錯的語句繼續(xù)執(zhí)行后面的語句； 幫助 ——顯示有關(guān)出錯的幫助信息，對于錯誤做更詳細的說明。不過很多時候都沒什么幫助。 程序的調(diào)試 如果這時您一眼就能看出問題出在哪，那么您可以用取消，然后進到程序中找出錯誤所在，將其改正。在選擇了取消后，可能這時有表單是打開的，那么用鼠標(biāo)點一下該窗口，然后調(diào)菜單上的文件 —關(guān)閉。如果菜單是您自己的自定義菜單，用 set sysmenu to default回到系統(tǒng)菜單。改完后，再次運行程序前，最好將所有的數(shù)據(jù)庫及表關(guān)閉，以免在程序打開一個數(shù)據(jù)表時出現(xiàn)表已打開的錯誤，比較好的辦法是在程序開頭先關(guān)閉所有的數(shù)據(jù)庫及表。關(guān)閉所有數(shù)據(jù)庫的命令是： close databases all，關(guān)閉所有表的命令是： close tables all。 如果您不知道問題出在程序的哪個地方，那么就選擇掛起，系統(tǒng)會彈出一個調(diào)試器窗口顯示出錯的語句，如圖 916，在跟蹤窗口的黃色箭頭所指的語句就是出錯的語句。這時不要馬上改程序，因為程序還沒有結(jié)束運行，如要改程序應(yīng)先終止程序運行，按調(diào)試中的終止按鈕 ，然后退出調(diào)試器（菜單上的文件 —退出），接下來與上面選擇取消后的處理方法相同。 一般不要選擇忽略，因為程序中上下語句都有很緊密的關(guān)系，當(dāng)一條語句出錯后，如果繼續(xù)運行，可能會出現(xiàn)很多錯誤，而后面出錯的語句可能并沒有錯，是因為前面錯了才導(dǎo)致后面的語句出錯，如果前面正確，后面也會正確，因此對于初學(xué)者來說，選擇忽略不利于找出錯誤所在。 程序的調(diào)試 二、 有些時候，程序中的語句并沒有出錯，但是運行的結(jié)果卻不是我們所要的結(jié)果，這往往是因為我們用錯了語句，雖然語句本身是正確的，但用在了不該用的地方、或者該用的地方?jīng)]有用、又或者語句的先后順序錯了等等，都可能導(dǎo)致這種情況。 一旦出現(xiàn)這種情況往往比上一種情況麻煩些，不容易一下看出問題出在哪里，那么需要我們仔細分析程序中的語句，看是否用的對，是否達到了我們的要求。 比如在我們前面九九乘法管理程序中，在程序的開始多了一條“ i=1”語句，導(dǎo)致運行的結(jié)果出錯。 圖 918程序中用錯了語句 有時光看語句，怎么也看不出問題在哪，這就用采用一些輔助手段，最常用的輔助手段是在可能發(fā)生問題的地方將程序掛起，即在程序中加一句 suspend，當(dāng)程序運行到這里時將程序掛起，然后在命令窗口中查看各有關(guān)變量的值或數(shù)據(jù)表的情況。另外在程序掛起時我們可以調(diào)出調(diào)試器，看程序執(zhí)行到什么地方。調(diào)的方法是在菜單上的工具 —調(diào)試器，可以在其中的監(jiān)視窗口查看各表達式的值，在局部窗口查看各變量的值，而且您可以在窗口中長條文本框（如圖 919）中輸入一個表達式或變量，調(diào)試器會顯示出它們的值。 程序的調(diào)試 圖 918程序中語句用錯了 圖 919調(diào)試器中的監(jiān)視窗口 如還不能找到問題，按可單步執(zhí)行程序，即按一下運行一條語句，這樣可以更有助于找到問題。 程序的調(diào)試 常見錯誤 啟動一個表單后，再用代表這個表單的變量去調(diào)用它時卻不行。調(diào)用表單的變量與其它變量一樣，如是在一個子程序中創(chuàng)建的，當(dāng)這個程序運行結(jié)束后，這個變量也就釋放了，即這個變量不再存在了，雖然表單還在，故不能用這個變量去調(diào)用該表單了。解決的方法是將其設(shè)為公共變量，或在更高層的程序中創(chuàng)建，還可以在調(diào)用表單命令中加上“ linked”子句（ do form...name...linked）。 常常在表格中或其它地方看不到數(shù)據(jù)表中的記錄。這往往是因為記錄指針到尾部，即 EOF()真。 修改記錄時卻修改了另一個記錄。這往往是因為進入修改后又做了查詢，查詢后沒有將記錄指針返回到原記錄。 進入一個循環(huán)后就死機了。這是因為沒有設(shè)置跳出循環(huán)的條件，或者條件永遠不能滿足，比如一個循環(huán)的跳出條件是當(dāng)一個變量的值達到某一數(shù)值，每循環(huán)一次應(yīng)將該變量加 1，但忘了加1的語句，就會造成死循環(huán)，因為變量的值永遠達不到預(yù)定的數(shù)值。 查詢英文時，明明有的記錄查不到。這可能是大小寫不一樣造成的，比如： locate for name=“crops”，如果數(shù)據(jù)表中的是“ CROPS”那么就查不到。解決的辦法： locate for upper(name)=“CROPS”。 不管是英文還是中文，還是查不到所要的記錄。這種情況很可能是輸入的查詢值后面有空格，比如上面那個查詢語句，如果操作者不小心在文本框中輸入了“ crops_”（下劃線代表有一個空格），而這個空格往往是不容易被發(fā)現(xiàn)的，那么查詢時就可能找不到，除非數(shù)據(jù)表中的數(shù)據(jù)也剛好是這樣，這里要注意一點一個字符字段的內(nèi)容如小于字段的長度，系統(tǒng)會自動為該字符后面加上空格，比如上面那個例子，如果 name的長度是 8，則“ crops”這個記錄 name的值就是“ crops___”（后面有三個空格），那么有三個空格和有一個空格就不相等。解決的辦法是用 trim()函數(shù)將輸入的查詢值后面的空格去掉，更進一步，為了防止不小心前面也加了空格，可用 alltrim()將前后的空格都去掉。 當(dāng)在數(shù)據(jù)表中移動記錄指針等操作時出現(xiàn)意想不到的錯誤。往往是因為沒有記錄。 習(xí)題 9 一、選擇題 1．在 Visual FoxPro環(huán)境下，執(zhí)行命令文件 ____ 。 Ａ . DO exp Ｂ . Ｃ . Ｄ . DO 2．在 FOR...ENDFOR循環(huán)結(jié)構(gòu)中，如省略步長則系統(tǒng)默認步長為 ( ) 3．在 DO WHILE 循環(huán)中，若循環(huán)條件設(shè)置為 .T.，則下列說法正確的是 ( ) A. 程序一定出現(xiàn)死循環(huán) B. 程序不會出現(xiàn)死循環(huán) C. 在語句組中設(shè)置 EXIT防止出現(xiàn)死循環(huán) D. 在語句組中設(shè)置 LOOP防止出現(xiàn)死循環(huán) 4. 以下程序的運行結(jié)果為 ( ) X= do case casex2 y=2 casex1 y=1 endcase return A. 1 B. 2 C. O D. 語法錯誤 習(xí)題 9 5．循環(huán)結(jié)構(gòu)中 EXIT語句的功能是 ( ) A，放棄本次循環(huán)，重新執(zhí)行該循環(huán)結(jié)構(gòu) B，放棄本次循環(huán)，進入下次循環(huán) C，退出循環(huán)，執(zhí)行循環(huán)結(jié)構(gòu)的下一條語句 D，退出循環(huán)，結(jié)束程序的運行 6．下列程序段有語法錯誤的行為第（ ）行 1 if b*b4*a*c0 2 s=sqrt(d) 3 else s=sqrt(d) 4 endif 7．下列程序段有語法錯誤的行為第（ ）行 1 for I= to step 2 I=I+1 3 next 8．以下關(guān)于循環(huán)的敘述正確的有（ ） ，不能相互轉(zhuǎn)換 0次 習(xí)題 9 9．下列程序段有語法錯誤的行為第（ ）行 1 do case 2 case a0 3 s=1 4 else 5 s=0 6 endcase 10．設(shè)有下列程序段： 1 do while 邏輯表達式 1 2 do while 邏輯表達式 2 3 enddo 2 4 exit 5 enddo 1 則執(zhí)行到 exit 語句時，將執(zhí)行（ ） 1行 3行的下一個語句 2行 5行的下一個語句 11．執(zhí)行下列命令后 : D=?*? ?5amp。D8=39。+STR(5amp。D8， 2) 命令 ?輸出的值為 ( ) amp。D8=0 amp。D8=40 *.8= *8=40 習(xí)題 9 12．執(zhí)行下列命令后： XYZ= CH=?XYZ? ？ INT（ —CH） 命令？輸出的值為（ ） 13. 以下循環(huán)體共執(zhí)行了（ ）次 ForI=1 to 10 ? I I=I+1 Endfor A 10 B 5 C 0 D 語法錯 14．有關(guān) LOOP語句和 EXIT語句敘述正確的是 （ ） A. LOOP和 EXIT語句可以寫在循環(huán)體的外面 B. LOOP語句的作用是把控制轉(zhuǎn)到 ENDDO語句 C. EXIT語句的作用是把控制轉(zhuǎn)到 ENDDO語句 D. LOOP和 EXIT語句一般寫在循環(huán)結(jié)構(gòu)里面嵌套的分支結(jié)構(gòu)中 習(xí)題 9 15．閱讀程序，正確的運行結(jié)果是 （ ） DO WHILE NOT EOF( ) LOCATE FOR XB =“男” DISPLAY CONTINUE ENDDO ，屏幕上一直顯示 16．閱讀程序，正確的運行結(jié)果是 ( ) CLEA USE student INDEX ON xb TO xbindex SEEK39。男 39。 DO WHILE NOT EOF() DISPLAY SKIP ENDDO ，屏幕上一直顯示 習(xí)題 9 17. 有關(guān) SCAN 循環(huán)結(jié)構(gòu)，敘述正確的是 ( ) LOOP語句，可將程序流程直接指向循環(huán)開始語句 EOF（） 函數(shù)的真假 SCAN循環(huán)結(jié)構(gòu)時，必須打開苛一個數(shù)據(jù)庫 SKIP語句 ，如果省略了 〈 SCOPE〉 子句、 FOR〈 EXPLL〉 和 WHILE〈 EXP12〉 條件子句，則直接退出循環(huán) 18．有關(guān) FOR 循環(huán)結(jié)構(gòu)，敘述正確的是 ( ) FOR循環(huán)結(jié)構(gòu)，循環(huán)的次數(shù)是未知的 ，可以 EXIT語句，但不能使用 LOOP語句 ，不能人為地修改循環(huán)控制變量，否則會導(dǎo)致循環(huán)次數(shù)出錯 ，可以使用 LOOP語句，但不能使用 EXIT語句 19． FoxPro的應(yīng)用程序由三種基本結(jié)構(gòu)組合而成，它們是 ( ) .選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu) .循環(huán)結(jié)構(gòu)和模塊結(jié)構(gòu) .物理結(jié)構(gòu)和程序結(jié)構(gòu) .重復(fù)結(jié)構(gòu)和子程式結(jié)構(gòu) 20．在 vfp的“程序”單中選擇“運行”命令，被執(zhí)行文件的擴展名不能為 ( ) A. .prg B. .spr C. .pjx D. .fxp 習(xí)題 9 (