第7章 程序設(shè)計(jì)基礎(chǔ)

1、2022-5-271第八章第八章 程序設(shè)計(jì)基礎(chǔ)程序設(shè)計(jì)基礎(chǔ)2022-5-272 本本 章章 要要 點(diǎn)點(diǎn)一、一、程序文件的建立與編輯程序文件的建立與編輯二、二、非格式化輸入輸出命令非格式化輸入輸出命令-ACCEPT-ACCEPT、INPUTINPUT、WAITWAIT格式化輸入輸出命令格式化輸入輸出命令-SAYSAYGETGET2022-5-273本本 章章 要要 點(diǎn)點(diǎn)三、三、 程序的基本結(jié)構(gòu)程序的基本結(jié)構(gòu) 分支結(jié)構(gòu)分支結(jié)構(gòu) 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)2022-5-274任務(wù)一、任務(wù)一、程序文件的建立與執(zhí)行程序文件的建立與執(zhí)行 1 1建立或修改程序文件建立或修改程序文件 可用兩種方式調(diào)用系統(tǒng)內(nèi)置的文本編輯

2、器建立或修改程序文件 : 命令方式命令方式 MODIFY COMMAND 文件名或 MODIFY FILE 文件名.prg2 2保存程序保存程序 程序輸入、編輯完畢，單擊【文件】|【保存】菜單項(xiàng)，或按CTRL+W。程序文件的默認(rèn)擴(kuò)展名是.PRG。8.1 程序的基礎(chǔ) 之簡單輸入命令2022-5-2753 3執(zhí)行程序執(zhí)行程序程序文件建立后，可以用多種方式、多次執(zhí)行它。下面是兩種常用的方式。（1 1）菜單方式）菜單方式 單擊【程序】|【運(yùn)行】菜單項(xiàng)，打開“運(yùn)行”對話框； 從文件列表框中選擇要運(yùn)行的程序文件，并單擊“運(yùn)行”命令按鈕，啟動(dòng)運(yùn)行該程序文件 （2 2）命令方式）命令方式【格式】DO DO 【

3、功能】執(zhí)行指定、下的程序文件 2022-5-276 有關(guān)此有關(guān)此Visual FoxProVisual FoxPro程序的幾點(diǎn)說明程序的幾點(diǎn)說明 : :1 1注釋語句注釋語句【格式1】NOTE 【格式2】* 【格式3】& 【功能】增強(qiáng)程序文件的易讀性或放棄中語句的執(zhí)行 2 2顯示文本語句顯示文本語句【格式1】TEXT文本內(nèi)容 ENDTEXT3 3命令的分行命令的分行 若一條命令太長寫不下，也可分行書寫，并在分行處加上續(xù)行符“；”，再按回車鍵。 2022-5-277 求解的基本邏輯與程序的通用性 編寫程序除了要了解書寫程序的格式之外，更重要的是學(xué)會(huì)分析問題，編寫程序除了要了解書寫程序的格

4、式之外，更重要的是學(xué)會(huì)分析問題，并設(shè)法用計(jì)算機(jī)來求解。計(jì)算機(jī)解題必須遵循基本邏輯，還應(yīng)當(dāng)注意并設(shè)法用計(jì)算機(jī)來求解。計(jì)算機(jī)解題必須遵循基本邏輯，還應(yīng)當(dāng)注意程序的通用性。程序的通用性。1、求解的基本邏輯： 輸入數(shù)據(jù)處理數(shù)據(jù)-輸出數(shù)據(jù)2、程序的通用性 程序?qū)Χ喾N場合的適應(yīng)性。2022-5-278程序文件中的專用命令一、程序結(jié)尾的專用命令 return命令，能使程序執(zhí)行結(jié)束，彬彬返回到調(diào)用它的上級(jí)函數(shù)（程序）或命令窗口。二、退出VFP的命令 quit三、基本輸入輸出專用命令 2022-5-279任務(wù)二、任務(wù)二、 非格式化輸入輸出命令非格式化輸入輸出命令輸出命令：?、?一一. . 選定非格式化輸出設(shè)置

5、SET PRINT ON/OFFSET PRINT ON/OFF輸入命令：1 1字符串輸入命令字符串輸入命令-ACCEPT-ACCEPT【格式】ACCEPT ACCEPT TO TO 【功能】在屏幕上顯示提示信息，等待用戶從鍵盤輸入一個(gè)字符串，并將內(nèi)容賦值給內(nèi)存變量(以回車結(jié)束，不需定界符) 如：ACCEPT “請輸入一個(gè)字符串：” to pp2022-5-2710【例1】編程從鍵盤輸入某數(shù)據(jù)表的文件名，要求打開該數(shù)據(jù)表并顯示其內(nèi)容。程序文件名為PROG1.PRG。MODI COMMAND PROG1SET TALK OFFCLEARACCEPT “請輸入數(shù)據(jù)表名：” TO AAAUSE &a

6、mp;AAALISTUSESET TALK ONRETURN2022-5-2711 2 2任意類型輸入命令任意類型輸入命令-INPUT-INPUT命令命令 【格式】INPUT INPUT TO TO 【功能】與ACCEPT相似，區(qū)別為能接受任意類型，除型外，其他需要定界符，回車結(jié)束。 如：INPUT “請輸入一個(gè)日期：” TO S1INPUT “請輸入一個(gè)數(shù)值：” TO S2INPUT “請輸入一個(gè)邏輯值：” TO S3?S1?S2?S32022-5-2712【例2】從鍵盤輸入兩個(gè)任意正數(shù)，編程求以兩數(shù)為邊長的長方形面積。程序文件名為PROG3.PRGSET TALK OFFCLEARINPU

7、T “長方形一邊的長為：” TO AINPUT “長方形另一邊的長為：” TO BS=A*B? “長方形的面積為：” , SSET TALK ON RETURN2022-5-27133 3單個(gè)字符輸入命令（等待命令）單個(gè)字符輸入命令（等待命令）-WAIT-WAIT命令命令【格式】WAIT WAIT TOTO WinDow WinDow TIMEOUT TIMEOUT【功能】暫停程序執(zhí)行，顯示提示信息并等待按鍵，按一個(gè)且只能按 一個(gè)，不需要回車，系統(tǒng)自動(dòng)執(zhí)行下面的程序。其中：INDOW：表示將提示信息顯示在屏幕右上角窗口中TIMEOUT N： 表示等待秒，秒之內(nèi)無按鍵則返回空串如：輸入字符到Y(jié)Y

8、中，限時(shí)2秒鐘WAIT “請輸入字符：” TO YY WINDOW TIMEOUT 22022-5-2714任務(wù)三、格式化輸入輸出命令任務(wù)三、格式化輸入輸出命令1 1、選定格式化輸出設(shè)備、選定格式化輸出設(shè)備SET DEVICE TO PRINT/SCREEN2 2、格式化輸入輸出命令、格式化輸入輸出命令輸入格式： GET 輸出格式： SAY 結(jié)合使用： SAY GET 輸入激活：READ 功能：在指定的行,列位置輸出SAY定義的信息，并將用戶輸入內(nèi)容保存到GET后指定的變量里，內(nèi)存變量必須先賦值以決定類型與寬度，字段變量不需賦值。2022-5-2715【例3】利用格式化輸入輸出命令修改庫記錄S

9、ET TALK OFFCLEARUSE e:lyfdatastudent INPUT “請輸入要修改的記錄號(hào)：” TO REGO RE5,5 SAY “姓名:” GET 姓名 7,5 SAY “性別:” GET 性別 9,5 SAY “年齡:” GET 年齡 11,5 SAY “籍貫:” GET 出生日期READSET TALK ONRETURN2022-5-2716【例4】利用格式化輸入輸出命令為數(shù)據(jù)表添加記錄SET TALK OFFCLEARUSE e:lyfdatastudent APPEND BLANK5,5 SAY “姓名:” GET 姓名 7,5 SAY “性別:” GET 性別

10、9,5 SAY “年齡:” GET 年齡 11,5 SAY “籍貫:” GET 出生日期READSET TALK ONRETURN2022-5-2717總結(jié)回顧總結(jié)回顧ACCEPT命令只能接受字符型數(shù)據(jù)，不需定界符，輸入完畢按回車鍵結(jié)束； WAIT命令只能輸入單個(gè)字符，且不需定界符，輸入完畢不需按回車鍵； INPUT命令可接受C、D、N、L通過用戶輸入的形式?jīng)Q定變量類型，需按回車鍵； SAY GET 必須有READ配合，變量為內(nèi)存變量要選定義。 2022-5-2718課后作業(yè)課后作業(yè) 1、ACCEPT “請輸入字符串：” TO AA 當(dāng)用戶輸入的內(nèi)容是：98/12/27 請問變量AA是什么類型

11、？A、C型B、D型C、N型D、L型 2、下列不屬于非格式化輸入的命令是：A、WAITB、GETC、ACCEPTD、INPUT2022-5-27198.2 8.2 程序設(shè)計(jì)基礎(chǔ)程序設(shè)計(jì)基礎(chǔ) -之順序、分支與循環(huán)之順序、分支與循環(huán)2022-5-2720 本本 節(jié)節(jié) 要要 點(diǎn)點(diǎn)n程序的基本結(jié)構(gòu)程序的基本結(jié)構(gòu)n分支結(jié)構(gòu)分支結(jié)構(gòu)n循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)2022-5-2721任務(wù)一、程序的基本結(jié)構(gòu)任務(wù)一、程序的基本結(jié)構(gòu) 1 1順序結(jié)構(gòu)順序結(jié)構(gòu) 順序結(jié)構(gòu)是在程序執(zhí)行時(shí)，根據(jù)程序中語句的書寫順序依次執(zhí)行的命令序列。Visual FoxPro系統(tǒng)中的大多數(shù)命令都可以作為順序結(jié)構(gòu)中的語句。 2 2分支結(jié)構(gòu)分支結(jié)構(gòu) 分支

12、結(jié)構(gòu)是在程序執(zhí)行時(shí)，根據(jù)不同的條件，選擇執(zhí)行不同的程序語句，用來解決有選擇、有轉(zhuǎn)移的諸多問題。 3 3循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 循環(huán)結(jié)構(gòu)則能夠使某些語句或程序段重復(fù)執(zhí)行若干次。如果某些語句或程序段需要在一個(gè)固定的位置上重復(fù)操作，使用循環(huán)是最好的選擇。 2022-5-2722 分支結(jié)構(gòu)形式有如下三種： 1 1單向分支單向分支 （1）語句格式： IF條件表達(dá)式 命令行序列 ENDIF （2）語句功能： 該語句首先計(jì)算條件表達(dá)式的值，當(dāng)條件表達(dá)式的值為真時(shí)，執(zhí)行命令行序列；否則，執(zhí)行ENDIF后面的第一條命令。任務(wù)二、分支結(jié)構(gòu)任務(wù)二、分支結(jié)構(gòu) 條 件 式真 語 句 序 列 假 ENDIF 之 后 語 句 2

13、022-5-2723【例1】求一元二次方程AX2BXC0的實(shí)根。CLEARINPUT TO AINPUT TO BINPUT TO CZB2-4*A*CIF Z=0X1=(-B+SQRT(Z)/(2*A)X2=(-B-SQRT(Z)/(2*A)? X1,X2ENDIFSET TALK ONRETURN2022-5-2724 2 2雙向分支雙向分支 雙向分支語句，即根據(jù)用戶設(shè)置的條件表達(dá)式的值，選擇兩個(gè)操作中的一個(gè)來執(zhí)行。 （1）語句格式： IF條件表達(dá)式 命令行序列1 ELSE 命令行序列2 ENDIF （2）語句功能： 該語句首先計(jì)算條件表達(dá)式的值，當(dāng)條件表達(dá)式的值為真時(shí)，執(zhí)行命令行序列1中

14、的命令；否則，執(zhí)行命令行序列2中的命令；執(zhí)行完命令行序列1或命令行序列2后都將執(zhí)行ENDIF后面的第一條命令。 真 條 件 式 假 語 句 序 列2 語 句 序 列1 ENDIF后 面 語 句 2022-5-2725【例2】編寫一密碼校驗(yàn)程序（假設(shè)密碼為ABC）。SET TALK OFFCLEARACCEPT “請輸入您的密碼：” TO AAAIF AAA=”ABC”CLEAR? ”歡迎使用本系統(tǒng)！”ELSE?”密碼錯(cuò)誤！”WAITENDIFSET TALK ON2022-5-2726【例3】編寫一個(gè)判斷奇偶數(shù)的程序SET TALK OFFCLEARINPUT “請輸入一個(gè)數(shù)：” TO XXI

15、F MOD(XX,2)=0? ”此數(shù)為偶數(shù)！”ELSE?”此數(shù)為奇數(shù)！”ENDIFSET TALK ONRETURN2022-5-2727【例4】編寫一個(gè)查詢姓名的程序SET TALK OFFCLEARUSE e:lyfdatastudentACCEPT “請輸入要查詢的姓名：” TO XMLOCATE FOR 姓名=XMIF FOUND() DISPELSE?”查無此人！請重新輸入！”ENDIFSET TALK ONRETURN2022-5-2728 3 3多向分支多向分支 多向分支語句，即根據(jù)多個(gè)條件表達(dá)式的值，選擇執(zhí)行多個(gè)操作中的一個(gè)對應(yīng)執(zhí)行 。（1）語句格式： DO CASE CASE

16、條件表達(dá)式1 命令行序列1 CASE條件表達(dá)式2 命令行序列2 CASE條件表達(dá)式N命令行序列N OTHERWISE 命令行序列N+1 ENDCASE 真 條件式 2 語句序列 1 ENDCASE 后面語句 條件式 1 Otherwise 條件式 2 真 語句序列 2 真 語句序列 n-1 有 語句序列 n 無 2022-5-2729 （2）語句功能： 該語句根據(jù)給出的N個(gè)條件表達(dá)式的值，選擇N+1個(gè)命令行序列中的一個(gè)執(zhí)行。當(dāng)所有CASE中條件表達(dá)式的值都是假時(shí)，如果有OTHERWISE項(xiàng)，則執(zhí)行命令行序列N+1，再執(zhí)行ENDCASE后面的第一條命令；否則，直接執(zhí)行ENDCASE后面的第一條命

17、令。2022-5-2730【例5】假設(shè)收入（P）與稅率（R）的關(guān)系如下表，編程求稅金。程序文件名為PROG12.PRG。 0 P800R= 0.05 800 P2000 0.08 2000P5000 0.1 P5000 SET TALK OFFCLEARINPUT “請輸入收入：” TO PDO CASECASE P800 R=0CASE P2000 R=0.052022-5-2731CASE P5000 R=0.08OTHERWISE R=0.1ENDCASETAX=P*R? ”稅金為：”,TAXSET TALK ON RETURN2022-5-2732【例6】從鍵盤輸入一個(gè)學(xué)生的成績，按下

18、述規(guī)定輸出90-100分輸出 “優(yōu)秀”80-89分“良好”70-79分“中等”60-69分“及格”60分以下“不及格SET TALK OFFCLEARINPUT “請輸入成績X=” TO XDO CASECASE X60 ?”不及格”2022-5-2733CASE X70 ?”及格”CASE X80 ?”中等”CASE X90 ?”良好”O(jiān)THER?”優(yōu)秀”ENDCASESET TALK ON RETURN2022-5-2734 4 4使用分支語句應(yīng)注意的幾點(diǎn)使用分支語句應(yīng)注意的幾點(diǎn) （1 1）IFIF ENDIF ENDIF和和DO CASEDO CASE ENDCASE ENDCASE 必

19、須配對使用，必須配對使用，DO CASEDO CASE與第一個(gè)與第一個(gè)CASECASE條件表?xiàng)l件表達(dá)式之間不應(yīng)有任何命令。達(dá)式之間不應(yīng)有任何命令。 （2 2）條件表達(dá)式可以是各種表達(dá)式或）條件表達(dá)式可以是各種表達(dá)式或函數(shù)的組合，其值必須是邏輯值。函數(shù)的組合，其值必須是邏輯值。 （3 3）命令行序列可以由一個(gè)或多個(gè)命）命令行序列可以由一個(gè)或多個(gè)命令組成，可以是條件控制語句組成的嵌套結(jié)構(gòu)。令組成，可以是條件控制語句組成的嵌套結(jié)構(gòu)。 （4 4）DO CASEDO CASE ENDCASE ENDCASE 命令，每次最命令，每次最多只能執(zhí)行一個(gè)命令行序列。在多個(gè)多只能執(zhí)行一個(gè)命令行序列。在多個(gè)CASE

20、CASE項(xiàng)項(xiàng)的條件表達(dá)式值為真時(shí)，只執(zhí)行第一個(gè)條的條件表達(dá)式值為真時(shí)，只執(zhí)行第一個(gè)條件表達(dá)式值為真的命令行序列，然后執(zhí)行件表達(dá)式值為真的命令行序列，然后執(zhí)行ENDCASEENDCASE的后面的第一條命令。的后面的第一條命令。2022-5-27351 1、DO WHILEDO WHILE循環(huán)語句循環(huán)語句【格式】DO WHILE LOOP EXIT ENDDO EN D D O后 面 的 語 句 條 件 表 達(dá) 式 式 真 假 循 環(huán) 體 L O O P EX IT LOOP語句：強(qiáng)行返回到循環(huán)開始語句。EXIT語句：強(qiáng)行跳出循環(huán)，接著執(zhí)行ENDDO后的語句 任務(wù)三、循環(huán)結(jié)構(gòu)任務(wù)三、循環(huán)結(jié)構(gòu) 20

21、22-5-2736【例7】編程求123100之和。程序文件名為PROG16.PRG。SET TALK OFFCLEARS=0X=0DO WHILE X=100 S=S+X X=X+1ENDDO? ”123100”,SSET TALK ONRETURN 練習(xí)求練習(xí)求1-51-5的階乘的階乘 求求1-1001-100中的奇數(shù)和、偶數(shù)和中的奇數(shù)和、偶數(shù)和2022-5-2737 2 2FORFOR循環(huán)語句循環(huán)語句 【格式】FOR = TO STEP ENDFOR|NEXT 使用FOR循環(huán)語句的有關(guān)說明： 省略STEP ，則步長為默認(rèn)值1；初值、終值和步長都可以是數(shù)值表達(dá)式，但這些表達(dá)式僅在循環(huán)語句開始

22、執(zhí)行時(shí)計(jì)算一次。循環(huán)語句執(zhí)行過程中，初值、終值和步長是不會(huì)改變的，并由此確定循環(huán)的次數(shù)； 可以在循環(huán)體內(nèi)改變循環(huán)變量的值，但會(huì)改變循環(huán)執(zhí)行次數(shù)； 循環(huán)次數(shù)=int(-)/步長)+12022-5-2738【例7】計(jì)算1+2+3+4+N的和SET TALK OFFCLEARS=0INPUT “請輸入N=” TO NFOR I=1 TO NS=S+IENDFOR?“S=”，SSET TALK ON RETURN2022-5-27393 3“指針指針”型循環(huán)控制語句型循環(huán)控制語句 “指針”型循環(huán)控制語句，即根據(jù)用戶設(shè)置的表中的當(dāng)前記錄指針，決定循環(huán)體內(nèi)語句的執(zhí)行次數(shù)據(jù)。 （1 1）語句格式：）語句格式

23、： SCAN范圍FOR條件表達(dá)式1 WHILE 條件表達(dá)式2 命令行序列 ENDSCAN （2 2）語句功能：）語句功能： 該語句在指定的范圍內(nèi)，用數(shù)據(jù)記錄指針來控制循環(huán)次數(shù)。執(zhí)行語句時(shí)，首先判斷函數(shù)EOF（）的值，若其值為“真”，則結(jié)束循環(huán)，否則，結(jié)合條件表達(dá)式1或條件表達(dá)式2，執(zhí)行命令行序列，記錄指針移到指定的范圍和條件內(nèi)的下一條記錄，重新判斷函數(shù)EOF（）的值，直到函數(shù)EOF（）的值為真時(shí)結(jié)束循環(huán)。2022-5-2740注：注： 1、SCANENDSCAN循環(huán)結(jié)構(gòu)隱含EOF （）和SKIP處理。 2、無范圍選項(xiàng)則默認(rèn)值為所有記錄。 3、如使用WHILE選項(xiàng)，遇到該選項(xiàng)的條件為假時(shí)，便結(jié)束

24、循環(huán)。 4、LOOP和EXIT選項(xiàng)可以在該循環(huán)中使用，使用方法同 DO循環(huán)。例1、在“grade”數(shù)據(jù)表中，對大學(xué)語文大于60的學(xué)生輸出其姓名和總成績。 SET TALK OFF CLEAR USE e:lyfdatagrade SCAN FOR 大學(xué)語文60 ？姓名,總分 ENDSCAN SET TALK ON2022-5-2741例2、在student數(shù)據(jù)表中，對01 班的女同學(xué)，輸出其學(xué)號(hào)，姓名。SET TALK OFFCLEARUSE e:lyfdatastudentSCAN FOR 班級(jí)=01 IF 性別=女 ？學(xué)號(hào)，姓名 ELSE LOOP ENDIFENDSCANSET TALK

25、 ON2022-5-2742 使用循環(huán)語句時(shí)應(yīng)注意的幾點(diǎn)使用循環(huán)語句時(shí)應(yīng)注意的幾點(diǎn) （1）DO WHILE和ENDDO、FOR和ENDFOR、 SCAN和ENDSCAN必須配對使用。 （2）命令行序列可以是任何FoxPro命令或語句，也可以是循環(huán)語句，即可以為多重循環(huán)。 （3）循環(huán)變量應(yīng)是數(shù)值型的內(nèi)存變量或數(shù)組元素。 （4）EXIT和LOOP命令嵌入在循環(huán)體內(nèi)，可以改變循環(huán)次數(shù)，但是不能單獨(dú)使用。EXIT的功能是跳出循環(huán)，轉(zhuǎn)去執(zhí)行ENDDO、ENDFOR、 ENDSCAN后面的第一條命令；LOOP的功能是轉(zhuǎn)回到循環(huán)的開始處，重新對“條件”進(jìn)行判斷，相當(dāng)于執(zhí)行了一次ENDDO、ENDFOR、 E

26、NDSCAN命令，它可以改變命令行序列中部分命令的執(zhí)行次數(shù)。EXIT、LOOP可以出現(xiàn)在命令行序列的任意位置。回回 顧顧 總總 結(jié)結(jié)2022-5-2743 任務(wù)四、過程任務(wù)四、過程 在Visual FoxPro系統(tǒng)中，程序是獨(dú)立存放在磁盤上的程序文件，使用時(shí)用戶通過文件名調(diào)用并執(zhí)行。為了實(shí)現(xiàn)用戶的某種目的，很可能需要由多個(gè)程序完成。 1.1.過程說明語句過程說明語句過程說明語句，即把獨(dú)立的過程文件定義成過程。 （1）語句格式 PROCEDURE PARAMETERS RETURN TO MASTER/RETRY （2）語句功能 以原獨(dú)立程序文件名作為PROCEDURE中的，在獨(dú)立程序的最后增加

27、語句ENDPROC，建立一個(gè)以為名的過程。2022-5-27442.2.調(diào)用過程語句，即執(zhí)行已有的過程。調(diào)用過程語句，即執(zhí)行已有的過程。 (1)語句格式： DO 過程名WITH (2)語句功能： 執(zhí)行以過程名為名的過程。注：WITH中參數(shù)與PARAMETERS中的參數(shù)一致。3. .過程返回語句，即返回過程的調(diào)用處。過程返回語句，即返回過程的調(diào)用處。 (1)語句格式： RETURNTO MASTER|TO 過程/RETRY (2)語句功能： 將控制返回到調(diào)用程序中調(diào)用命令的下一語句。RETURN TO MASTER：執(zhí)行到該語句時(shí)控制返回到最高層命令文件主程序。2022-5-2745 RETUR

28、N TO ：使控制返回到指定的過程 RETRY：使控制返回到調(diào)用語句本身。4 4、打開過程文件語句、打開過程文件語句 VFP系統(tǒng)規(guī)定，任何時(shí)刻只能打開一個(gè)過程文件，當(dāng)新的過程文件打開時(shí)，自動(dòng)關(guān)閉原來打開的過程文件。（1）語句格式 SET PROCDURE TO 過程名（2）語句功能 打開一個(gè)以過程文件名為名的過程文件。2022-5-27465 5關(guān)閉過程文件語句關(guān)閉過程文件語句關(guān)閉過程文件語句，就是將已打開的過程文件關(guān)閉。（1 1）語句格式）語句格式 CLOSE PROCEDURE 或SET PROCEDURE TO（2 2）語句功能）語句功能關(guān)閉當(dāng)前打開的過程文件。2022-5-2747例1

29、、求1！+2！+3！+4！的和。SET PROC TO PROC1SET TALK OFFI=1S=0DO WHILE I=4Y=1DO SUB WITH I，YS=S+YI=I+1ENDDORETU2022-5-2748任務(wù)五任務(wù)五 子程序子程序子程序與主程序子程序與主程序1定義子程序：被調(diào)用的以PRG為擴(kuò)展名的獨(dú)立的程序文件。主程序：調(diào)用其他程序而自身不被其它程序調(diào)用的程序。2子程序與主程序的區(qū)別*子程序的第一條語句可以是PARAMETERS命令，用來實(shí)現(xiàn)參數(shù)的傳遞，而主程序中不包含此語句。*主程序里必須包含調(diào)用子程序的語句。2022-5-27493 3子程序的大致結(jié)構(gòu)子程序的大致結(jié)構(gòu)PA

30、RARETURN/RETRY4 4子程序與過程的區(qū)別子程序與過程的區(qū)別*子程序必須獨(dú)立于調(diào)用程序，以PRG文件存盤。而過程是存放在過程文件（PRG）中。*過程的第一條語句必須是以PROC語句開頭。5.5.子程序的調(diào)用子程序的調(diào)用同過程的調(diào)用。2022-5-2750例1、求!+2!+3!+4!+5!S=0FOR I=1 TO 5K=1DO BSUBS=S+KENDFOR？S=，SRETU*BSUBPRG*FOR J=1 TO IK=K*JENDFORRETU2022-5-2751任務(wù)六任務(wù)六 變量變量1 1全局變量全局變量 全局變量是指在所有程序模塊中都有效的內(nèi)存變量 在程序或過程中定義全局變量的語句為：【格式】PUBLIC 在命令窗口定義的變量為全局變量【說明】（1）當(dāng)定義多個(gè)變量時(shí)，各變量名之間用逗號(hào)隔開；（2）用PUBLIC語句定義過的內(nèi)存變量，在程序執(zhí)行期間可以在任何層次的程序模塊中使用；2022-5-2752（3）變量定義語句要放在使用此變量的語句之前，否則會(huì)出錯(cuò)；（4）任何已經(jīng)定義為全局變量的變量，可以用PUBLIC語句再定義，但不允許重新定義為局部變量；（5）使用全局變量可以增強(qiáng)模塊間的通信，但會(huì)降低模塊間的獨(dú)立性。2 2局部變量局部變量 局部變量只在創(chuàng)建