《計算機應用技術基礎》1第7章程序的分支結(jié)構(gòu)《計算機應用技術基礎》2本章目錄7-1程序的建立與維護7-2程序的流程控制37-1程序的建立與維護

VisualFoxPro程序文件，是一個以（.PRG）為擴展名的文本文件。任何可以建立、編輯文本文件的工具，都可以創(chuàng)建和編輯VisualFoxPro程序文件。這些文本編輯工具，可以是VisualFoxPro系統(tǒng)提供的內(nèi)部編輯器，也可以是其它常用文本編輯軟件。在文本編輯環(huán)境下，不僅可以對程序文件進行輸入和修改，還可以實現(xiàn)字符串查找、替換、刪除和編輯功能。47-1-1用菜單選擇方式建立及維護程序1.創(chuàng)建與修改程序文件

命令方式

MODIFYCOMMAND〈程序文件名〉菜單方式打開“文件”菜單，選擇“新建”；在“新建”窗口，選擇“程序”，再選擇“新建文件”；在“程序文件”編輯窗口，輸入程序文件，并保存，此時建立程序文件的操作結(jié)束。52.運行程序文件調(diào)用程序文件，即運行程序文件，是程序文件建立的最終目的。在VisualFoxPro系統(tǒng)中，調(diào)用程序文件有很多方法，在這里僅介紹其中兩種方法。菜單方式以菜單方式調(diào)用程序文件，操作方法如下：

(1）在VisualFoxPro系統(tǒng)主菜單下，打開“程序”菜單，選擇“運行”。（2）在“運行”窗口，輸入被調(diào)用的程序文件名即可。6

命令方式在Command窗口中，輸入如下命令，則程序文件被調(diào)用。

DO〈程序文件名〉73．維護程序

修改程序文件時，可以從菜單“文件”中選擇“打開”命令，從屏幕顯示的“打開”對話框中選擇要修改的文件，在文件編輯器窗口中進行編輯修改程序。8在編輯過程中，按Ctrl+Q或Esc鍵，中止程序的編輯；按Ctrl+W鍵，保存編輯的程序，并返回到“命令”窗口中。程序文件名默認的擴展名為.PRG。如果省略“程序文件名”，系統(tǒng)會自動以“程序1”為程序文件名存盤。保存程序9在命令窗口中鍵入：

DO（程序文件名）執(zhí)行一個VisualFoxPro程序，程序文件名前根據(jù)需要可以加上路徑。如：

DO‘d:\VFP\程序1.prg’

該命令可以在命令窗口發(fā)出，也可以出現(xiàn)在某個程序文件中，這樣就使得一個程序在執(zhí)行的過程中還可以調(diào)用執(zhí)行另一個程序。

4．運行程序10當程序被執(zhí)執(zhí)行時，文文件中包含含的命令被被依次執(zhí)行行，直到程程序執(zhí)行完完畢，或遇遇到以下命命令：①CANCAL:終止程序運運行，清除除所有私有有變量，返返回命令窗窗口。②DO：轉(zhuǎn)去執(zhí)行行另一個程程序。③RETURN：結(jié)束當前前程序的執(zhí)執(zhí)行，返回回到調(diào)用它它的上級程程序，若無無上級程序序則返回到到命令窗口口。④QUIT：退出VFP系統(tǒng)，返回回到操作系系統(tǒng)。11VisualFoxPro程序文件通通過編譯、、連編，可可以產(chǎn)生不不同的目標標代碼文件件。如果沒沒有對程序序進行編譯譯，而且程程序中存在在錯誤，則則在執(zhí)行程程序過程中中VisualFoxPro會指出程序序中存在的的錯誤，出出現(xiàn)錯誤提提示對話框框。此時，，可以取消消操作，中中止程序的的運行，修修改后再運運行。12在運行程序時時，系統(tǒng)提供供了兩種方式式：先編譯后后執(zhí)行和一邊邊編譯一邊執(zhí)執(zhí)行。先編譯后執(zhí)行行是在編輯窗窗口打開要編編譯的程序，，然后在菜單單“程序”中中選定“編譯譯”。7-1-3程程序的編編譯131.每行只能寫一一條命令，每每條命令以回回車換行作為為結(jié)束標志；；2.命令一行寫不不下時，可以以分多行輸入入，在未輸入入完的數(shù)據(jù)后后加分號，然然后回車換行行，系統(tǒng)會把把此行作為前前一行的續(xù)行行；3.“*”，“&&”，“NOTE”用來作為程序序的說明的符符號和命令；；“*”及““NOTE”只能放在一行行的前面，而而“&&”可以放在前面面或后面。7-1-4編編程時的一一般規(guī)則147-1-5簡單的輸入輸輸出命令(1).ACCEPT命令格式：accept[<提示信息>]to<內(nèi)存變量>功能：在屏幕幕上顯示提示示信息，等待待用戶輸入一一個字符串，，賦值給一個個內(nèi)存變量注意：該命令令只能接受字字符型常量，，輸入一個字字符串（不必必加引號）且且按回車鍵后后，程序繼續(xù)續(xù)執(zhí)行1．鍵盤輸入語語句：用于程程序執(zhí)行中原原始數(shù)據(jù)輸入入15CLEAACCE"請輸入用戶戶名="TOUSER?USERWAIT16ACCEPT命令:thisform.text1.value=‘’17(2).INPUT命令格式：input[<提示信息>]to<內(nèi)存變量>功能：與accept相似，不同的的是能接受字字符型、數(shù)字字型、日期型型和邏輯型數(shù)數(shù)據(jù)。說明：除輸入入數(shù)值型數(shù)據(jù)據(jù)外，其他幾幾種類型的數(shù)數(shù)據(jù)一律使用用定界符；輸輸入的信息可可以是表達式式，input命令有計算功功能18INPUT"請輸入密密碼："TOPASSWORD?PASSWORDWAIT19INPUT命令:thisform.text1.value=020INPUT與與ACCEPT的區(qū)別INPUT[<提示信息>]TO<內(nèi)存變量>ACCEPT[<提示信息>]TO<內(nèi)存變量>(1)兩條命令的主主要區(qū)別在于于：ACCEPT命令能在用戶戶的輸入內(nèi)容容中自動添加加定界符后再再給變量賦值值，而INPUT命令則把輸入入內(nèi)容的值計計算出來后向向變量賦值。。因此，用ACCEPT命令只能接受受字符型常量量，而INPUT命令則能接受受任何類型的的表達式。21jg=7800INPUT"輸入價格格："TOaACCEPT"輸入價價格："TOb?'a=',a,'b=',b執(zhí)行時，先后后兩次輸入同同樣的內(nèi)容jg+200，而輸出結(jié)結(jié)果卻不相同同，分別為a=8000b=jg+20022(2)命令中可選項項缺省時，屏屏幕上無顯示示信息而直接接等待用戶的的輸入；另外外，提示信息息也可以是含含有變量的字字符型表達式式，這時屏幕幕上顯示的提提示信息將隨隨變量值的不不同而變化。。例如，m='微型機'INPUT““輸入"+m+'價格'TOp命令執(zhí)行時，，屏幕的提示示信息為：輸入微型機價價格注意,INPUT命令也能接受受字符型常量量，但需把該該常量兩邊的的定界符同時時輸入。23(3).WAIT命令【格式】WAIT[<提示符表達式式>][T0<內(nèi)存變量>][Windows[Nowait]][CLEAR][TIMEOUT<數(shù)值表達式>]【功能】等待用戶從鍵鍵盤上輸入一一個字符存入入指定變量中中。24INPUT"請輸入密碼：："TOPASSWORD?PASSWORDWAIT"進入程序嗎？？Y/N"TOYN?YN252．格格式式輸輸出出語語句句無論論是是內(nèi)內(nèi)存存變變量量還還是是字字段段變變量量都都可可以以使使用用?或??命令令輸輸出出，，這這種種輸輸出出方方式式簡簡單單，，但但是是不不能能按按照照用用戶戶指指定定的的位位置置輸輸出出。。格格式式輸輸出出語語句句能能按按用用戶戶的的要要求求來來設設計計屏屏幕幕格格式式，，使使之之美美觀觀、、方方便便。?！靖袷绞健緻<行號號，，列列號號>SAY<表達達式式>【功能能】從指指定定的的行行、、列列號號開開始始輸輸出出表表達達式式的的值值。?！菊f明明】1.<表達達式式>可以以是是常常量量、、字字段段變變量量及及由由它它們們組組成成的的表表達達式式。。2.定位位輸輸出出時時，，一一次次只只能能輸輸出出一一個個表表達達式式。。26=3.14159*R*R27文本本輸輸出出命命令令命令令格格式式(一)：\|\\<文本本行行>命令令格格式式(二)：TEXT<文本本信信息息>ENDTEXT28命令令格格式式(一)：\|\\<文本本行行>命令令格格式式(二)：TEXT<文本本信信息息>ENDTEXT功能能：：格式式(一)能將將一一行行文文本本信信息息的的內(nèi)內(nèi)容容按按書書寫寫形形式式的的原原樣樣顯顯示示出出來來.\與\\的區(qū)區(qū)別別在在于于前前者者輸輸出出的的文文本本行行帶帶有有回回車車換換行行符符，，就就是是在在下下一一行行的的第第一一列列開開始始輸輸出出；；而而后后者者則則不不帶帶，，文文本本行行在在當當前前光光標標位位置置開開始始顯顯示示。。格格式式(二)則能能把把TEXT與ENDTEXT之間間的的文文本本信信息息內(nèi)內(nèi)容容顯顯示示出出來來，，允允許許其其間間出出現(xiàn)現(xiàn)多多個個文文本本行行。。29說明明：：(1)文文本本輸輸出出命命令令TEXT與與ENDTEXT只只能能在在程程序序工工作作方方式式中中使使用用，，而而且且必必須須成成對對出出現(xiàn)現(xiàn)。。(2)通通常常把把指指定定的的屏屏幕幕畫畫面面用用TEXT與與ENDTEXT括括起起來來后后直直接接寫寫在在程程序序之之中中，，以以便便在在程程序序執(zhí)執(zhí)行行中中把把該該畫畫面面按按原原樣樣顯顯示示或或打打印印出出來來。。30(3)在文文本信信息中中允許許出現(xiàn)現(xiàn)變量量、函函數(shù)和和表達達式，，本命命令能能識別別它們們并顯顯示其其值。。但需需事先先設置置狀態(tài)態(tài)SETTEXTMERGEON，并并且把把它們們用符符號““<<”與與“>>””括起起來以以區(qū)別別于一一般的的文字字信息息。如如果這這兩個個條件件不同同時具具備，，則本本命令令將它它們與與其它它的文文字信信息同同樣看看待而而直接接輸出出。31例如，，執(zhí)行行下述述命令令后，，在所所顯示示的圖圖式下下面將將顯示示系統(tǒng)統(tǒng)的當當前日日期。。SETTEXTMERGEONTEXT**************設備管管理系系統(tǒng)**************<<DATE()>>ENDTEXT32(1)CLEAR語句：：【格式】CLEAR【功能】清除屏屏幕信信息語語句(2)SETTALKON/OFF語句：：【格式】SETTALKON/OFF【功能】命令執(zhí)執(zhí)行的的結(jié)果果傳送送/不傳送送到屏屏幕上上3．程序序設計計輔助助語句句命令令33(3)程序運運行結(jié)結(jié)束命命令:QUIT&&返回操操作系系統(tǒng)CANCEL&&返回VisualFoxPro6.0“命令””窗口口RETURN&&返回調(diào)調(diào)用處處347-2程序的的流程程控制制VisualFoxPro系統(tǒng)的的程序序有兩兩個特特點：：一是程序控控制流流模式式，由順順序、、分支支、循循環(huán)三三種基基本結(jié)結(jié)構(gòu)構(gòu)構(gòu)成。。二是面面向?qū)ο罂煽梢暬慕Y(jié)結(jié)構(gòu)程程序模模塊，，在每個模模塊的的內(nèi)部部也是由由程序控控制流流組成。。常見的的控制制結(jié)構(gòu)構(gòu)如下下：35程序的的3種種基本本結(jié)構(gòu)構(gòu)任何一一種計計算機機語言言程序序主體體是由由3種種基本本結(jié)構(gòu)構(gòu)組成成：順順序結(jié)結(jié)構(gòu)、、選擇擇結(jié)構(gòu)構(gòu)和循循環(huán)結(jié)結(jié)構(gòu)。。順序結(jié)結(jié)構(gòu)循環(huán)結(jié)結(jié)構(gòu)選擇結(jié)結(jié)構(gòu)36在結(jié)構(gòu)構(gòu)化程程序設設計方方法中中，程程序基基本控控制結(jié)結(jié)構(gòu)有有三種種，即即順序序結(jié)構(gòu)構(gòu)、分分支結(jié)結(jié)構(gòu)和和循環(huán)環(huán)結(jié)構(gòu)構(gòu)。順順序結(jié)結(jié)構(gòu)是是一種種線形形結(jié)構(gòu)構(gòu)，是是最基基本的的程序序結(jié)構(gòu)構(gòu)，它它是按按照命命令或或語句句的排排列順順序，，依次次執(zhí)行行。7-2-1順序結(jié)結(jié)構(gòu)37分支結(jié)結(jié)構(gòu)是是在程程序執(zhí)執(zhí)行時時，根根據(jù)不不同的的條件件，選選擇執(zhí)執(zhí)行不不同的的程序序語句句，用用來解解決有有選擇擇、有有轉(zhuǎn)移移的諸諸多問問題。。7-2-2選擇結(jié)結(jié)構(gòu)38選擇結(jié)結(jié)構(gòu)的的基本本形式式有三種種基本本形式式：1、單條條件選選擇結(jié)結(jié)構(gòu)單分支支結(jié)構(gòu)構(gòu)是一種種IF－ENDIF分支結(jié)結(jié)構(gòu)格式：：IF＜條件件表達達式＞＞＜語句句序列列＞EDNIF功能：：條件件表達達式的的值為為真（（.T.）則執(zhí)執(zhí)行““語句句序列列”，，否則則為假假（.F.）則直直接執(zhí)執(zhí)行EDNIF后續(xù)語語句條件真假語句序序列39例2：：從鍵鍵盤輸輸入一一個數(shù)數(shù)，若若為正正數(shù)則則輸出出，若若為非非正數(shù)數(shù)則結(jié)結(jié)束。。此題學學生自自己分分析。。40雙向分分支語語句，，即根根據(jù)用用戶設設置的的條件件表達達式的的值，，選擇擇兩個個操作作中的的一個個來執(zhí)執(zhí)行。。是一一種IF－ELSE－ENDIF選擇結(jié)結(jié)構(gòu)格式：：IF＜條件件表達達式＞＞＜語句句序列列1＞ELSE＜語句句序列列2＞ENDIF功能：：表達達式為為真，，則執(zhí)執(zhí)行““語句句序列列1”，再執(zhí)執(zhí)行EDNIF的后續(xù)續(xù)語句句；為為假，，則執(zhí)執(zhí)行““語句句序列列2”，再執(zhí)執(zhí)行EDNIF的后續(xù)續(xù)語句句。條件真假語句序序列1語句序序列22、雙向向分支支結(jié)構(gòu)構(gòu)41例1：從鍵鍵盤輸輸入一一個數(shù)數(shù)X，如果果被5除余數(shù)數(shù)為3，輸出出“3”，否否則則輸出出“余余數(shù)不不為3”.*MODICOMMBCB2.PRGCLEAINPUT““請輸入入一個個數(shù):””TOXIFX%5=3?”余數(shù)為為3”ELSE?”余數(shù)不不為3”ENDIFX=X%5=42例3：求一一元二二次方方程AX2＋BX＋C＝0的實根根。分析：：用根根的判判別式式：D＝B2－4AC進行判判別，，如果果：D≥0，說明明有實實根，，如果果：D＜0，則說說明無無實根根。INPUT"請輸入入A="TOAINPUT"請輸入入B="TOBINPUT"請輸入入C="TOC?""M=B*B-4*A*CIFM>=0X1=(-B+SQRT(M))/(2*A)X2=(-B-SQRT(M))/2/A?"X1=",X1?"X2=",X2ELSE?"無實數(shù)數(shù)解！！"ENDIF43輸入A、B、CD＝B＊B－4＊A＊C如果D＞＝0X1=（-B+SQRT（D））/(2＊A)真X2=（-B-SQRT（D））/(2＊A)輸出X1、X2441、從鍵鍵盤輸輸入一一個數(shù)數(shù)X，如果果能被被2整除，，輸出出’偶偶數(shù)’’，否否則輸輸出““奇數(shù)數(shù)”。。*MODICOMMBCB1.PRGCLEAINPUT““請輸入入一個個數(shù):””TOXIFINT(X/2)=X/2?”這是一一個偶偶數(shù)！！”ELSE?”這是一一個奇奇數(shù)！！”ENDIF45例：用用IF－ELSE－－ENDIF方方法，，再做做一次次求解解一元元二次次方程程的根根，若若有實實根，，則輸輸出實實根，，否則則輸出出“無無實根根”。。46是一種種DOCASE－ENDCASE分支結(jié)結(jié)構(gòu)格式：：DOCASECASE＜條件件表達達式1＞＜語句句序列列1＞CASE＜條件件表達達式2＞＜語句句序列列2＞……CASE＜條件件表達達式ｎｎ＞＜語句句序列列n＞［OTHERWISE＜語句句序列列n+1＞］ENDCASE條件1語句序列1條件n。。。。語句序列nOTHERWISEyNNy3、多分支支條件選選擇語句句（多路路選擇））47功能：依依次判斷斷條件1－n的表達式式，當遇遇到第一一個條件件為真時時，則執(zhí)執(zhí)行該表表達式對對應的語語句序列列，然后后轉(zhuǎn)去執(zhí)執(zhí)行ENDCASE的后續(xù)語語句，若若前幾個個表達式式都為假假，則執(zhí)執(zhí)行OTHERWISE的語句序序列，然然后執(zhí)行行ENDCASE的后續(xù)語語句。48（1）IF………ENDIF和DOCASE………ENDCASE必須配對對使用，，DOCASE與第一個個CASE〈條件表達達式〉之間不應應有任何何命令。。（2）〈條件表達達式〉可以是各各種表達達式或函函數(shù)的組組合，其其值必須須是邏輯輯值。（3）〈命令行序序列〉可以由一一個或多多個命令令組成，，可以是是條件控控制語句句組成的的嵌套結(jié)結(jié)構(gòu)。（4）DOCASE………ENDCASE命令，每每次最多多只能執(zhí)執(zhí)行一個個〈命令行序序列〉。在多個個CASE項的〈條件表達達式〉值為真時時，只執(zhí)執(zhí)行第一一個〈條件表達達式〉值為真的的〈命令行序序列〉，然后執(zhí)執(zhí)行ENDCASE的后面的的第一條條命令。。使用分支支語句應應注意的的幾點49例：從鍵鍵盤輸入入一個學學生的成成績，按按下述規(guī)規(guī)定輸出出：90分－－100分輸輸出“優(yōu)優(yōu)秀”80分－－89分分輸出出“良好好”70分－－79分分輸出出“中等等”60分－－69分分輸出出“及格格”0分—59分分輸輸出“不不及格””參考P135【【例7-10】】50練習編寫程序序，輸入入一個數(shù)數(shù)，判斷斷這個數(shù)數(shù)能否被被6整除。編寫一正正整數(shù)存存于變量量X中，判斷斷它是幾幾位數(shù)。。517-6小結(jié)通過本章章的學習習，要求求讀者掌掌握以下下主要內(nèi)內(nèi)容：l程序的建建立與維維護。l程序的基基本操作作，如：：程序的的運行、、編譯及及編程時時的一般般規(guī)則等等。l掌握結(jié)構(gòu)構(gòu)化程序序設計的的基本要要點及順順序結(jié)構(gòu)構(gòu)、和選選擇結(jié)構(gòu)構(gòu)的編程程概念技技巧。52本章作業(yè)業(yè)：作業(yè)27編寫寫順序結(jié)結(jié)構(gòu)程序序作業(yè)28閱閱讀分支結(jié)構(gòu)構(gòu)程序作業(yè)29編編寫分支結(jié)構(gòu)構(gòu)程序53ThankYou!549、靜夜四四無鄰，，荒居舊舊業(yè)貧。。。1月-231月-23Sunday,January1,202310、雨中黃葉樹樹，燈下白頭頭人。。13:21:3613:21:3613:211/1/20231:21:36PM11、以我我獨沈沈久，，愧君君相見見頻。。。1月-2313:21:3713:21Jan-2301-Jan-2312、故人江海海別，幾度度隔山川。。。13:21:3713:21:3713:21Sunday,January1,202313、乍見翻疑夢夢，相悲各問問年。。1月-231月-2313:21:3713:21:37January1,202314、他鄉(xiāng)鄉(xiāng)生白白發(fā)，，舊國國見青青山。。。01一一月月20231:21:37下下午13:21:371月-2315、比不了了得就不不比，得得不到的的就不要要。。。。一月231:21下午午1月-2313:21January1,202316、行動動出成成果，，工作作出財財富。。。2023/1/113:21:3713:21:3701January202317、做前，能能夠環(huán)視四四周；做時時，你只能能或者最好好沿著以腳腳為起點的的射線向前前。。1:21:37下下午1:21下下午13:21:371月-239、沒有失敗，，只有暫時停停止成功！。。1月-231月-23Sunday,January1,202310、很多事事情努力力了未必必有結(jié)果果，但是是不努力力卻什么么改變也也沒有。。。13:21:3713:21:3713:211/1/20231:21:37PM11、成功就就是日復復一日那那一點點點小小努努力的積積累。。。1月-2313:21:3713:21Jan-2301-Jan-2312、世間成事，，不求其絕對對圓滿，留一一份不足，可可得無限完美美。。13:21:3713:21:3713:21Sunday,January1,202313、不不知知香香積積寺寺，，數(shù)數(shù)里里入入云云峰峰。。。。1月月-231月月-2313:21:3713:21:37January1,202314、意志志堅強強的人人能把把世界界放在在手中中像泥泥塊一一樣任任意揉揉捏。。01一一月月20231:21:37下下午13:21:371月-2315、楚塞塞三湘湘接，，荊門門九派派通。。。。。一月231:21下下午午1月-2313:21January1,202316、少年十十五二十十時，步步行奪得得胡馬騎