第六章-Visual-FoxPro程序設(shè)計(jì)基礎(chǔ)

第六章VisualFoxPro程序設(shè)計(jì)基礎(chǔ)1程序概念參見(jiàn)Wiki解釋/wiki?title=%E7%A8%8B%E5%BA%8F&variant=zh-cn計(jì)算機(jī)程序或者軟件程序（通常簡(jiǎn)稱程序）是指一組指示計(jì)算機(jī)每一步動(dòng)作的指令，通常用某種程序設(shè)計(jì)語(yǔ)言編寫，運(yùn)行于某種目標(biāo)體系結(jié)構(gòu)上。打個(gè)比方，一個(gè)程序就像一個(gè)用漢語(yǔ)（程序設(shè)計(jì)語(yǔ)言）寫下的紅燒肉菜譜（程序），用于指導(dǎo)懂漢語(yǔ)的人（體系結(jié)構(gòu)）來(lái)做這個(gè)菜。通常，計(jì)算機(jī)程序要經(jīng)過(guò)編譯和鏈接而成為一種人們不易理解而計(jì)算機(jī)理解的格式，然后運(yùn)行。未經(jīng)編譯就可運(yùn)行的程序通常稱之為腳本程序。參見(jiàn)Wiki解釋/wiki?title=%E7%A8%8B%E5%BA%8F&variant=zh-cn計(jì)算機(jī)程序或者軟件程序（通常簡(jiǎn)稱程序）是指一組指示計(jì)算機(jī)每一步動(dòng)作的指令，通常用某種程序設(shè)計(jì)語(yǔ)言編寫，運(yùn)行于某種目標(biāo)體系結(jié)構(gòu)上。打個(gè)比方，一個(gè)程序就像一個(gè)用漢語(yǔ)（程序設(shè)計(jì)語(yǔ)言）寫下的紅燒肉菜譜（程序），用于指導(dǎo)懂漢語(yǔ)的人（體系結(jié)構(gòu)）來(lái)做這個(gè)菜。通常，計(jì)算機(jī)程序要經(jīng)過(guò)編譯和鏈接而成為一種人們不易理解而計(jì)算機(jī)理解的格式，然后運(yùn)行。未經(jīng)編譯就可運(yùn)行的程序通常稱之為腳本程序。26.1VisualFoxPro程序的建立與執(zhí)行VisualFoxPro中程序的基本組成程序文件的建立和編輯程序文件的編譯和執(zhí)行VisualFoxPro命令方式的輸入輸出語(yǔ)句36.1.1程序的基本組成（1）在VisualFoxPro中，程序文件又稱為命令文件，它是由VisualFoxPro中的命令和一些程序控制語(yǔ)句所組成的，程序文件擴(kuò)展名為.PRG。46.1.1程序的基本組成（2）程序的基本組成規(guī)則是：(1)程序由若干程序行組成。(2)每一程序行由一條語(yǔ)句或一條命令組成。(3)每一行都以“Enter”鍵結(jié)束。若一行寫不完一條命令，可在該行末尾處加上續(xù)行符號(hào)“;”。(4)程序末尾通常可加上程序結(jié)束語(yǔ)句，如CANCEL、RETURN或QUIT等；也可不加，VisualFoxPro將在程序結(jié)束處自動(dòng)添加程序結(jié)束語(yǔ)句。(5)在程序的開(kāi)始或每一程序行的后面可加上注釋語(yǔ)句對(duì)整個(gè)程序和某個(gè)程序行做一說(shuō)明，以增加程序的可讀性。56.1.1程序的基本組成（3）程序的編制過(guò)程為：程序的建立、程序的編譯、程序的運(yùn)行。66.1.2程序文件的建立和編輯建立和編輯有兩種方式：命令和菜單1.命令方式命令格式：MODIFYCOMMAND[<程序文件名>|？]命令功能：?jiǎn)?dòng)文本編輯器。2.菜單方式詳見(jiàn)課本6.1.2節(jié)76.1.3程序文件的編譯和執(zhí)行（1）1.編譯編譯是將源程序轉(zhuǎn)換成目標(biāo)程序。編譯有命令和菜單兩種方式。（1）命令方式命令格式：Compile<程序文件名>|？命令功能：對(duì)指定的程序文件進(jìn)行編譯。（2）菜單方式詳見(jiàn)課本6.1.3節(jié)86.1.3程序文件的編譯和執(zhí)行（2）2.執(zhí)行程序文件輸入存盤或再經(jīng)編譯后，系統(tǒng)可自動(dòng)連續(xù)執(zhí)行文件中的每條命令或語(yǔ)句。程序文件的執(zhí)行有命令和菜單兩種方式。（1）命令方式命令格式：DO<程序文件名>|?功能：將程序文件從磁盤調(diào)入內(nèi)存并執(zhí)行。（2）菜單方式詳見(jiàn)課本6.1.3節(jié)96.1.4命令方式的輸入輸出語(yǔ)句（1）1.注釋符*/&&語(yǔ)句格式1：*[<注釋>]語(yǔ)句格式2：&&[<注釋>]功能：*或&&的功能是在程序中起注釋作用，給程序注釋的目的是使程序易于自己和別人理解，即有好的可讀性。注釋語(yǔ)句在VisualFoxPro中是非執(zhí)行語(yǔ)句，即包含注釋語(yǔ)句的程序，在執(zhí)行時(shí)，VisualFoxPro將忽略這些注釋語(yǔ)句，因?yàn)樗鼈儍H起注釋作用。說(shuō)明：*的功能是注釋一整行，它通常放在最前面。&&的功能是放在語(yǔ)句后起注釋作用。通常*用來(lái)對(duì)整個(gè)程序進(jìn)行注釋，即說(shuō)明該程序的功能；&&用來(lái)對(duì)一條語(yǔ)句進(jìn)行注釋，即說(shuō)明該語(yǔ)句的功能。106.1.4命令方式的輸入輸出語(yǔ)句（2）例6-2：注釋示例程序，*程序名稱為ex6-2.prg *我的第一個(gè)程序

clear &&清屏

settalkoff &&關(guān)閉回顯

a=3 &&給a賦值為3 b=3^a &&求3的立方值

?a,b &&輸出結(jié)果116.1.4命令方式的輸入輸出語(yǔ)句（3）2.交互式輸入語(yǔ)句VisualFoxPro提供三種交互式輸入語(yǔ)句。功能：系統(tǒng)執(zhí)行上述命令時(shí)自動(dòng)停下，等待用戶從鍵盤輸入信息到計(jì)算機(jī)內(nèi)存變量中，系統(tǒng)接收到信息后自動(dòng)往下繼續(xù)執(zhí)行。12

6.1.4命令方式的輸入輸出語(yǔ)句（4）2.交互式輸入語(yǔ)句（1）INPUT語(yǔ)句格式1：INPUT[<提示信息>]TO<內(nèi)存變量>在語(yǔ)句1中，可輸入N、C、L和D型數(shù)據(jù)。輸入C型數(shù)據(jù)時(shí)，要使用單引號(hào)或雙引號(hào)作為定界符。輸入L型數(shù)據(jù)時(shí)，.T.和.F.兩邊的小圓點(diǎn)不能省略。輸入D型數(shù)據(jù)時(shí)，要用CtoD()函數(shù)或大括號(hào)“｛｝”將字符串轉(zhuǎn)換成日期型變量。13

6.1.4命令方式的輸入輸出語(yǔ)句（5）2.交互式輸入語(yǔ)句（2）ACCEPT語(yǔ)句格式2：ACCEPT[<提示信息>]TO<內(nèi)存變量>語(yǔ)句２只能輸入C型數(shù)據(jù)，輸入數(shù)據(jù)時(shí)可不用定界符。14

6.1.4命令方式的輸入輸出語(yǔ)句（6）2.交互式輸入語(yǔ)句（3）WAIT語(yǔ)句格式3：WAIT[<提示信息>][TO<內(nèi)存變量>][TIMEOUT<等待時(shí)間>]語(yǔ)句３只能輸入一個(gè)字符的C型數(shù)據(jù)，并可指定等待時(shí)間。若超過(guò)等待時(shí)間仍無(wú)輸入，則系統(tǒng)自動(dòng)將0作為輸入值，使程序繼續(xù)執(zhí)行。語(yǔ)句３輸入結(jié)束后可不按Enter鍵。156.1.4命令方式的輸入輸出語(yǔ)句（7）注意：INPUT命令和ACCEPT命令以及后面介紹的格式化輸出命令在VisualFoxPro中很少使用。它們的功能是為兼容原來(lái)的FoxPro程序。WAIT命令是等待用戶按任意鍵后程序繼續(xù)運(yùn)行。166.1.4命令方式的輸入輸出語(yǔ)句（8）例6-3：在“學(xué)生表”中，按姓名查找某學(xué)生的情況。程序編制如下：

*程序名為ex6-3.prg clear

xm='' &&為空串

setdefaultto"D:\我的數(shù)據(jù)庫(kù)項(xiàng)目\數(shù)據(jù)庫(kù)"&&設(shè)置默認(rèn)的目錄位置

use學(xué)生表

accept'請(qǐng)輸入姓名:'toxm listfor姓名=xm wait'按任意鍵繼續(xù)' clear ?'查詢完畢' cancel176.1.4命令方式的輸入輸出語(yǔ)句（9）4.程序結(jié)束語(yǔ)句（1）CANCEL命令語(yǔ)法：CANCEL說(shuō)明：停止當(dāng)前VisualFoxPro程序的執(zhí)行。當(dāng)交互使用VisualFoxPro時(shí)，控制權(quán)返回命令窗口。若執(zhí)行一個(gè)獨(dú)立的發(fā)布應(yīng)用程序，CANCEL終止該應(yīng)用程序并將控制權(quán)返回Windows；若設(shè)計(jì)時(shí)在VisualFoxPro中執(zhí)行一個(gè)程序，CANCEL終止該程序，并將控制權(quán)返回命令窗口。執(zhí)行CANCEL將釋放所有私有變量。186.1.4命令方式的輸入輸出語(yǔ)句（10）4.程序結(jié)束語(yǔ)句（2）RETURN命令將程序控制權(quán)返回給調(diào)用程序。語(yǔ)法：RETURN[<表達(dá)式>|TOMASTER|TO<過(guò)程名>]（3）QUIT命令結(jié)束當(dāng)前VisualFoxPro程序的運(yùn)行，退出VisualFoxPro，返回到操作系統(tǒng)。注意：請(qǐng)始終使用QUIT命令來(lái)終止VisualFoxPro程序。如果打開(kāi)了VisualFoxPro，沒(méi)有發(fā)出QUIT命令而直接關(guān)閉了計(jì)算機(jī)，那么可能有數(shù)據(jù)丟失的危險(xiǎn)。196.1.4命令方式的輸入輸出語(yǔ)句（11）4.程序結(jié)束語(yǔ)句（4）SUSPEND命令SUSPEND語(yǔ)句的功能是將正在運(yùn)行的程序掛起，這使得程序進(jìn)入到交互狀態(tài)。此時(shí)我們可以使用?|??、DISPLAYMEMORY等命令查看內(nèi)存變量的值。在程序掛起狀態(tài)下，可以用命令CANCEL終止程序的運(yùn)行。一般情況下，我們僅使用SUSPEND命令來(lái)調(diào)試程序。（5）RESUME命令當(dāng)程序運(yùn)行到SUSPEND語(yǔ)句被掛起后，程序進(jìn)入交互狀態(tài)，在查看完相關(guān)的變量值后，如果在命令窗口輸入RESUME命令，可以使程序繼續(xù)運(yùn)行。206.1.4命令方式的輸入輸出語(yǔ)句（12）CLEAR命令CLEAR用來(lái)清屏。CLEAR的另一項(xiàng)功能是從內(nèi)存中釋放指定項(xiàng)。語(yǔ)法：CLEAR[ALL|WINDOWS]ALL表示從內(nèi)存中釋放所有的變量和數(shù)組以及所有用戶自定義菜單欄、菜單和窗口的定義；CLOSEALL也能關(guān)閉所有表，包括所有相關(guān)的索引、格式和備注文件，并且選擇工作區(qū)1。216.2結(jié)構(gòu)化程序設(shè)計(jì)基礎(chǔ)程序設(shè)計(jì)過(guò)程算法程序流程圖及示例226.2.1程序設(shè)計(jì)過(guò)程程序設(shè)計(jì)即是計(jì)算機(jī)用戶根據(jù)解決某一問(wèn)題的步驟，按一定的邏輯關(guān)系，將一系列的指令組合在一起。23真否真否否真有無(wú)錯(cuò)誤分析問(wèn)題編寫程序確定算法畫流程圖運(yùn)行并調(diào)試程序錯(cuò)誤修改程序錄入錯(cuò)誤修改算法結(jié)束246.2.2算法（1）程序的設(shè)計(jì)過(guò)程，核心問(wèn)題是設(shè)計(jì)一個(gè)合理、有效的算法。一般認(rèn)為，算法就是在有限的時(shí)間內(nèi)，可以根據(jù)明確規(guī)定的運(yùn)算規(guī)則，在有窮步驟內(nèi)得出確切計(jì)算結(jié)果的機(jī)械步驟或能運(yùn)行的計(jì)算程序。256.2.2算法（2）算法特性：(1)有限性，即解題步驟是有限的，無(wú)窮的步驟意味無(wú)解。(2)確定性，每一步驟的操作是確定的，這樣可以保證后繼操作的輸入是可以確定的。(3)有序性，每一步驟都是可行的。此外，算法可以沒(méi)有輸入（因?yàn)檩斎胗捎?jì)算機(jī)自動(dòng)產(chǎn)生），但一定要有輸出，輸出用來(lái)表示問(wèn)題是否有解。266.2.2算法（3）三種基本控制結(jié)構(gòu)：順序、分支、循環(huán)順序結(jié)構(gòu)是程序設(shè)計(jì)中最基本的結(jié)構(gòu)。在該結(jié)構(gòu)中，程序的執(zhí)行是按命令出現(xiàn)的先后順序依次執(zhí)行的。分支結(jié)構(gòu)是按給定的選擇條件成立與否來(lái)確定程序的走向。分支結(jié)構(gòu)可分為雙重分支選擇和多重分支選擇。在任何條件下，無(wú)論分支多少，只能選擇其一。276.2.2算法（4）三種基本控制結(jié)構(gòu)：順序、分支、循環(huán)循環(huán)結(jié)構(gòu)是一種重復(fù)結(jié)構(gòu)，即某一程序段將被反復(fù)執(zhí)行若干次。按循環(huán)的嵌套層次，循環(huán)可分為簡(jiǎn)單循環(huán)結(jié)構(gòu)和循環(huán)嵌套（也稱為多重循環(huán)）結(jié)構(gòu)。按循環(huán)體執(zhí)行的條件性質(zhì)，循環(huán)又可分為While循環(huán)和Until循環(huán)。無(wú)論何種類型的循環(huán)結(jié)構(gòu)，都要確保循環(huán)的重復(fù)執(zhí)行能夠終止。286.2.2算法（5）結(jié)構(gòu)化程序是指僅由三種基本控制結(jié)構(gòu)組成的程序，它具有以下特點(diǎn)：(1)整個(gè)程序模塊化。(2)每個(gè)模塊只有一個(gè)入口和一個(gè)出口。(3)每個(gè)模塊都應(yīng)能單獨(dú)執(zhí)行，且無(wú)死循環(huán)。(4)采用黑箱的思想，宏觀地描述任何一個(gè)程序，可以將它看成為順序結(jié)構(gòu)。296.2.3程序流程圖及示例ANSI流程圖N-S圖301.ANSI流程圖（1）判斷框箭頭：表示程序流向連接符號(hào)：表示圖標(biāo)之間相互連接關(guān)系判斷框：表示根據(jù)條件決定程序走向過(guò)程：表示該流程部分是一個(gè)過(guò)程輸入/輸出框：表示數(shù)據(jù)的輸入、輸出操作處理框：表示對(duì)數(shù)據(jù)進(jìn)行處理起止框：表示程序的開(kāi)始或結(jié)束311.ANSI流程圖（2）順序結(jié)構(gòu)語(yǔ)句塊1語(yǔ)句塊2語(yǔ)句塊3321.ANSI流程圖（3）條件分支結(jié)構(gòu)假真條件語(yǔ)句塊1語(yǔ)句塊233真假循環(huán)條件循環(huán)體1.ANSI流程圖（4）循環(huán)結(jié)構(gòu)假真循環(huán)條件循環(huán)體Until型循環(huán)結(jié)構(gòu)While型循環(huán)結(jié)構(gòu)341.ANSI流程圖（5）多重條件分支結(jié)構(gòu)真假假真假真條件1語(yǔ)句塊1語(yǔ)句塊條件2語(yǔ)句塊2…真語(yǔ)句塊n假條件n352.N-S圖（1）順序結(jié)構(gòu)語(yǔ)句塊1語(yǔ)句塊2語(yǔ)句塊3362.N-S圖（2）條件分支結(jié)構(gòu)

語(yǔ)句塊1語(yǔ)句塊2條件真假372.N-S圖（3）多重分支選擇語(yǔ)句CASE<條件>值1值2…值n其它語(yǔ)句塊1語(yǔ)句塊2…語(yǔ)句塊n語(yǔ)句塊382.N-S圖（4）循環(huán)結(jié)構(gòu)循環(huán)條件循環(huán)體循環(huán)體循環(huán)條件Until型循環(huán)結(jié)構(gòu)While型循環(huán)結(jié)構(gòu)396.3程序的控制語(yǔ)句結(jié)構(gòu)順序結(jié)構(gòu)程序分支結(jié)構(gòu)程序循環(huán)結(jié)構(gòu)程序402.分支結(jié)構(gòu)程序（1）雙重分支選擇語(yǔ)句語(yǔ)句格式：

IF<條件> <語(yǔ)句塊1> [ELSE <語(yǔ)句塊2>] ENDIF假真條件語(yǔ)句塊1語(yǔ)句塊2412.分支結(jié)構(gòu)程序（2）

雙重分支選擇語(yǔ)句

語(yǔ)句塊1語(yǔ)句塊2條件真假語(yǔ)句格式：

IF<條件> <語(yǔ)句塊1> [ELSE <語(yǔ)句塊2>] ENDIF422.分支結(jié)構(gòu)程序（3）多重分支選擇語(yǔ)句DOCASE CASE<條件表達(dá)式1> <語(yǔ)句塊1> CASE<條件表達(dá)式2> <語(yǔ)句塊2> CASE<條件表達(dá)式n> <語(yǔ)句塊n> OTHERWISE <語(yǔ)句塊> ENDCASE

真假假真假真條件1語(yǔ)句塊1語(yǔ)句塊條件2語(yǔ)句塊2…真語(yǔ)句塊n假條件n432.分支結(jié)構(gòu)程序（4）多重分支選擇語(yǔ)句DOCASE CASE<條件表達(dá)式1> <語(yǔ)句塊1> CASE<條件表達(dá)式2> <語(yǔ)句塊2> CASE<條件表達(dá)式n> <語(yǔ)句塊n> OTHERWISE <語(yǔ)句塊> ENDCASE

CASE<條件>值1值2…值n其它語(yǔ)句塊1語(yǔ)句塊2…語(yǔ)句塊n語(yǔ)句塊442.分支結(jié)構(gòu)程序（5）例6-8：從鍵盤隨機(jī)輸入成績(jī)分?jǐn)?shù)，根據(jù)成績(jī)分?jǐn)?shù)來(lái)判斷該成績(jī)屬于優(yōu)、良、中還是差。規(guī)定：90≤成績(jī)≤100為優(yōu)；80≤成績(jī)<90為良；60≤成績(jī)<80為中；成績(jī)<60為差；其它為非法輸入。使用多重分支結(jié)構(gòu)，程序編制如下：452.分支結(jié)構(gòu)程序（6）clearsettalkoffrate='' &&表示等級(jí)input'請(qǐng)輸入成績(jī):'togradedocasecase90<=grade.and.grade<=100 ?str(grade,3)+‘的成績(jī)?yōu)?’+‘優(yōu)’&&縮格目的是增加可讀性

case80<=grade.and.grade<90 ?str(grade,3)+'的成績(jī)?yōu)?'+'良' case60<=grade.and.grade<80 ?str(grade,3)+'的成績(jī)?yōu)?'+'中' case0<=grade.and.grade<60 ?str(grade,3)+'的成績(jī)?yōu)?'+'差' otherwise ?'您輸入的成績(jī)不對(duì)!'endcasereturn463.循環(huán)結(jié)構(gòu)程序（1）DOWHILE循環(huán)語(yǔ)句格式：

DOWHILE<條件表達(dá)式> <語(yǔ)句塊> [LOOP] [EXIT] ENDDO循環(huán)條件循環(huán)體473.循環(huán)結(jié)構(gòu)程序（2）循環(huán)語(yǔ)句的使用要注意下列幾點(diǎn)：(1)DOWHILE和ENDDO子句要配對(duì)使用，ENDDO的作用是使循環(huán)回到循環(huán)的開(kāi)始，即DOWHILE語(yǔ)句。(2)在第一次執(zhí)行到DOWHILE語(yǔ)句時(shí)，循環(huán)條件必須為真，才能進(jìn)入循環(huán)體。在執(zhí)行完成循環(huán)體語(yǔ)句后，再判斷循環(huán)條件是否為真，如果為真，則繼續(xù)循環(huán)，直到循環(huán)條件為假時(shí)，才退出循環(huán)語(yǔ)句，執(zhí)行ENDDO后面的語(yǔ)句。483.循環(huán)結(jié)構(gòu)程序（3）循環(huán)語(yǔ)句的使用要注意下列幾點(diǎn)：(3)循環(huán)體中，一定存在一條或若干條語(yǔ)句在改變循環(huán)條件。如果循環(huán)條件恒為真，則是死循環(huán)。(4)要小心改變循環(huán)條件，如果不適當(dāng)?shù)男薷难h(huán)條件，則循環(huán)將不能按預(yù)先的設(shè)想進(jìn)行，程序也達(dá)不到預(yù)期的效果。(5)為增加程序的可讀性，使程序清晰易懂，必須使用縮格。(6)關(guān)于LOOP和EXIT語(yǔ)句使用參見(jiàn)本節(jié)后面的內(nèi)容。493.循環(huán)結(jié)構(gòu)程序（4）例6-11：求1加到10的累加和，即S=1+2+3+…+8+9+10settalkoffs=0 &&求累加和的變量i=1 &&循環(huán)變量賦初值dowhilei<=10 &&循環(huán)條件，使用縮格，提高可讀性

?i &&此處輸出變量i的值是方便理解循環(huán)的過(guò)程

s=s+i &&求累加，即循環(huán)不變式

??s &&輸出s的結(jié)果，理解每次累加結(jié)果的變化

i=i+1 &&改變循環(huán)變量的值enddo?s &&循環(huán)體外輸出結(jié)果503.循環(huán)結(jié)構(gòu)程序（5）循環(huán)閱讀理解循環(huán)條件是什么？什么時(shí)候進(jìn)入循環(huán)？什么時(shí)候退出循環(huán)？循環(huán)體內(nèi)如何改變循環(huán)條件？循環(huán)變量的作用？513.循環(huán)結(jié)構(gòu)程序（6）在循環(huán)中處理循環(huán)不變式的一般結(jié)構(gòu)循環(huán)前的預(yù)處理，如循環(huán)控制變量賦初值循環(huán)條件，初始必須為真循環(huán)不變式改變循環(huán)控制變量的值根據(jù)需要輸出結(jié)果523.循環(huán)結(jié)構(gòu)程序（7）在循環(huán)中處理記錄一般結(jié)構(gòu)打開(kāi)數(shù)據(jù)表(默認(rèn)指向第一條記錄)記錄指針指向第一條記錄(可忽略)判記錄指針沒(méi)有到底(.NOT.EOF())根據(jù)給定的條件對(duì)當(dāng)前記錄進(jìn)行處理記錄指針下移（Skip）根據(jù)需要輸出結(jié)果533.循環(huán)結(jié)構(gòu)程序（8）循環(huán)結(jié)構(gòu)中的LOOP命令LOOP真假條件語(yǔ)句塊2假真循環(huán)條件語(yǔ)句塊1DOWHILE<循環(huán)條件>

語(yǔ)句塊1 IF<條件> LOOP ENDIF

語(yǔ)句塊2ENDDO543.循環(huán)結(jié)構(gòu)程序（9）循環(huán)結(jié)構(gòu)中的EXIT命令EXIT真假條件語(yǔ)句塊2假真循環(huán)條件語(yǔ)句塊1DOWHILE<循環(huán)條件>

語(yǔ)句塊1 IF<條件> EXIT ENDIF

語(yǔ)句塊2ENDDO553.循環(huán)結(jié)構(gòu)程序（10）FOR循環(huán)語(yǔ)句格式：FOR<循環(huán)變量>=<循環(huán)初值>TO<循環(huán)終值>

[STEP<步長(zhǎng)>] <語(yǔ)句塊> [LOOP] [EXIT]ENDFOR|NEXT563.循環(huán)結(jié)構(gòu)程序（11）求運(yùn)行結(jié)果fori=10to1step-2?"i=",inext?"i=",i例6-15：求N！，即求N的階乘。573.循環(huán)結(jié)構(gòu)程序（12）循環(huán)的嵌套循環(huán)體內(nèi)又嵌套循環(huán)的情況稱為多重循環(huán)或循環(huán)嵌套。處于循環(huán)體內(nèi)的循環(huán)稱為內(nèi)循環(huán)，處于外層的循環(huán)稱為外循環(huán)。內(nèi)外循環(huán)的層次必須分明，不允許有交叉現(xiàn)象出現(xiàn)。內(nèi)外循環(huán)的循環(huán)變量不要同名。在嵌套情況下，EXIT語(yǔ)句使控制跳到下方離其最近的ENDDO之后，而LOOP語(yǔ)句使控制跳到其上方離其最近的DO...WHILE語(yǔ)句中。58DOWHILEDOWHILELOOPEXITENDDOLOOPEXITENDDO3.循環(huán)結(jié)構(gòu)程序（13）593.循環(huán)結(jié)構(gòu)程序（14）例6-19：打印如圖所示對(duì)稱三角圖形，要求第一行的*在第10列。****************例6-20：輸入一個(gè)大于1的正整數(shù)，判斷該數(shù)是否是素?cái)?shù)。606.4數(shù)組的應(yīng)用數(shù)組在使用之前，必須加以定義，然后才能使用該數(shù)組。數(shù)組定義或數(shù)組說(shuō)明語(yǔ)句格式為：DIMENSION

<數(shù)組名1>(<數(shù)值表達(dá)式1>[,<數(shù)值表達(dá)式2>,...])

[,<數(shù)組名2>(<數(shù)值表達(dá)式1>[,<數(shù)值表達(dá)式2>,...])...]61例子dimensionA(N)dimensionB(n,m)A(1)A(2)…A(N-1)A(N)B(1,1)，B(1,2)，...，B(1,m)B(2,1)，B(2,2)，...，B(2,m)…B(n,1)，B(n,2)，...，B(n,m