順序結(jié)構(gòu)程序設(shè)計(jì)

第4章順序結(jié)構(gòu)程序設(shè)計(jì)一、結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)1、順序結(jié)構(gòu)2、選擇結(jié)構(gòu)3、循環(huán)結(jié)構(gòu)開(kāi)始結(jié)束過(guò)程順序結(jié)構(gòu)開(kāi)始結(jié)束過(guò)程開(kāi)始結(jié)束條件2判斷條件1條件n過(guò)程1過(guò)程2。。。過(guò)程n….一、程序設(shè)計(jì)的三種基本結(jié)構(gòu)1、順序結(jié)構(gòu)2、選擇結(jié)構(gòu)3、循環(huán)結(jié)構(gòu)順序結(jié)構(gòu)選擇結(jié)構(gòu)開(kāi)始結(jié)束過(guò)程開(kāi)始結(jié)束條件2判斷條件1條件n過(guò)程1過(guò)程2。。。過(guò)程n….一、程序設(shè)計(jì)的三種基本結(jié)構(gòu)1、順序結(jié)構(gòu)2、選擇結(jié)構(gòu)3、循環(huán)結(jié)構(gòu)開(kāi)始結(jié)束yes過(guò)程是否結(jié)束循環(huán)no順序結(jié)構(gòu)選擇結(jié)構(gòu)循序結(jié)構(gòu)過(guò)程4.1順序結(jié)構(gòu)程序的概念4.2基本語(yǔ)句4.3輸入與輸出

4.1順序結(jié)構(gòu)程序的概念程序名稱標(biāo)識(shí)符{程序名稱描述部分}開(kāi)始{程序開(kāi)始操作標(biāo)志塊}a塊{給定問(wèn)題初始化處理操作塊}b塊{所論問(wèn)題中心處理操作塊}c塊{給定問(wèn)題善后化處理操作塊}結(jié)束{程序結(jié)束操作標(biāo)志塊}4.2基本語(yǔ)句4.2.1賦值語(yǔ)句賦值語(yǔ)句一般格式為STORE〈表達(dá)式〉TO〈名稱列表〉或〈名稱〉=〈表達(dá)式〉注意：1、二者的區(qū)別和聯(lián)系2、賦值號(hào)“=”與數(shù)學(xué)中“=”區(qū)別，3、賦值號(hào)的左邊只能是一個(gè)變量名，不能是表達(dá)式。4.2.2語(yǔ)句的續(xù)行用分號(hào)“;”將較長(zhǎng)的語(yǔ)句分為兩行或多行。4.2.3程序注釋語(yǔ)句1.行首注釋如果要在程序中注釋行信息，可以使用行首注釋語(yǔ)句，語(yǔ)法格式為NOTE[〈注釋內(nèi)容〉]或*[〈注釋內(nèi)容〉]

2.行尾注釋如果要在命令語(yǔ)句的尾部加注釋信息，應(yīng)該使用行尾注釋語(yǔ)句，其語(yǔ)法格式為&&[〈注釋內(nèi)容〉]4.2.4程序暫停語(yǔ)句

WAIT語(yǔ)句用來(lái)暫停程序的執(zhí)行并顯示提示信息，按任意鍵或單擊鼠標(biāo)后繼續(xù)執(zhí)行程序。其語(yǔ)法格式為WAIT[〈提示信息〉][TO〈內(nèi)存變量〉][WINDOW[AT〈行,列〉]][TIMEOUTn]

4.2.5程序結(jié)束語(yǔ)句RELEASE語(yǔ)句的格式為RELEASE〈THISFORM〉Release方法的格式為〈THISFORM|THISFORMSET〉Release4.3輸入與輸出4.3.1使用標(biāo)簽【例4-1】使用標(biāo)簽處理單行和多行的信息輸出，運(yùn)行時(shí)通過(guò)代碼來(lái)改變輸出的內(nèi)容，如圖4-3所示。對(duì)象屬性屬性值說(shuō)明Command1Caption改變（\<C）按鈕的標(biāo)題Label1Caption設(shè)計(jì)時(shí)設(shè)置的標(biāo)簽內(nèi)容標(biāo)簽的內(nèi)容Alignment2–

中央標(biāo)簽的內(nèi)容居中顯示FontSize16字體的大小Label2Caption設(shè)計(jì)時(shí)設(shè)置的標(biāo)簽內(nèi)容標(biāo)簽的內(nèi)容BorderStyle1–

固定單線有邊框的標(biāo)簽BackColor白色標(biāo)簽的背景改為白色FontSize16字體的大小WordWrap.T.–

真內(nèi)容自動(dòng)換行編寫(xiě)命令按鈕Command1的Click事件代碼：THISFORM.Label1.Caption="運(yùn)行時(shí)修改的標(biāo)簽內(nèi)容"THISFORM.Label2.Caption="對(duì)于一個(gè)較長(zhǎng)的或在運(yùn)行時(shí)可能變化的標(biāo)題，標(biāo)簽提供了"+;"兩種屬性:AutoSize和WordWrap，來(lái)改變控件尺寸以適應(yīng)較長(zhǎng)或較短的標(biāo)題。"THISFORM.Label2.AutoSize=.T.【例4-2】交換兩個(gè)變量中的數(shù)據(jù)，如圖4-5所示。開(kāi)始CAABBC結(jié)束對(duì)象屬性屬性值說(shuō)明Label1CaptionA=標(biāo)簽的內(nèi)容Label3CaptionB=標(biāo)簽的內(nèi)容Label2CaptionABCDE標(biāo)簽的內(nèi)容BackColor（白色）標(biāo)簽的背景色Label4Caption12345標(biāo)簽的內(nèi)容BackColor（白色）標(biāo)簽的背景色Command1Caption交換按鈕的標(biāo)題

編寫(xiě)命令按鈕Command1的Click事件代碼：t=THISFORM.Label2.CaptionTHISFORM.Label2.Caption=THISFORM.Label4.CaptionTHISFORM.Label4.Caption=t【例4-3】設(shè)計(jì)藝術(shù)的標(biāo)簽。可以設(shè)計(jì)兩種形式的藝術(shù)標(biāo)簽：一種是投影式標(biāo)簽，一種是立體式標(biāo)簽，如圖4-8所示。

設(shè)計(jì)步驟如下：①選擇“新建”表單，進(jìn)入表單設(shè)計(jì)器，增加一個(gè)命令按鈕Command1和一個(gè)“標(biāo)簽”控件Label1。②修改其屬性，見(jiàn)表4-3。對(duì)象屬性屬性值說(shuō)明Command1Caption關(guān)閉按鈕的標(biāo)題Label1Caption藝術(shù)標(biāo)簽標(biāo)簽的內(nèi)容AutoSize.T.–

真自動(dòng)適應(yīng)大小FontSize40字體的大小BackStyle0–

透明背景類型FontName隸書(shū)設(shè)置字體ForeColor0,0,160字體顏色為藍(lán)色4.3.2使用文本框【例4-4】利用文本框輸入圓的半徑，計(jì)算出圓的面積，如圖4-10所示。

設(shè)計(jì)步驟如下：①建立應(yīng)用程序用戶界面。②設(shè)置對(duì)象屬性。對(duì)象屬性屬性值說(shuō)明Label1Caption請(qǐng)輸入圓的半徑：標(biāo)簽的內(nèi)容AutoSize.T.–

真自動(dòng)適應(yīng)大小FontSize16字體的大小FontName黑體設(shè)置字體Label2Caption圓的面積為：標(biāo)簽的內(nèi)容AutoSize.T.–

真自動(dòng)適應(yīng)大小FontSize16字體的大小FontName黑體設(shè)置字體Text1Alignment0–

左文本對(duì)齊方式InputMask999.99只能輸入有兩位小數(shù)且小于1000的數(shù)值Value0文本初值為0Text2DisabledBackColor256,256,256只讀狀態(tài)的文本框背景為白色ReadOnly.T.–

真文本內(nèi)容只讀TabSTop.F.–

假光標(biāo)不停留Value0文本初值為0Command1Caption計(jì)算（\<C）按鈕的標(biāo)題Defualt.T.–

真設(shè)為表單的默認(rèn)按鈕③編寫(xiě)程序代碼。編寫(xiě)Command1的Click事件代碼：a=THISFORM.Text1.ValueTHISFORM.Text2.Value=ROUND(a^2*3.14,2)

設(shè)置描述9可以輸入數(shù)字和符號(hào)，比如可以輸入一個(gè)負(fù)號(hào)（-）#可以輸入數(shù)字、空格和字符*在值的左邊顯示星號(hào).指定十進(jìn)制小數(shù)點(diǎn)位置,十進(jìn)制整數(shù)部分用逗號(hào)分隔4.3.3使用焦點(diǎn)焦點(diǎn)（Focus）就是光標(biāo)，當(dāng)對(duì)象具有“焦點(diǎn)”時(shí)才能響應(yīng)用戶的輸入，因此也是對(duì)象接收用戶鼠標(biāo)單擊或鍵盤(pán)輸入的能力。在Windows環(huán)境中，在同一時(shí)間只有一個(gè)窗口、表單或控件具有這種能力。具有焦點(diǎn)的對(duì)象通常會(huì)以突出顯示標(biāo)題或標(biāo)題欄來(lái)表示。

4.3.4使用編輯框1.編輯框在VFP中，文本框只能用來(lái)處理單行的文本數(shù)據(jù)，處理多行文本數(shù)據(jù)的工作要由“編輯框（EditBox）”控件來(lái)完成。【例4-5】設(shè)計(jì)一個(gè)文本文件的編輯器，可以新建或打開(kāi)文件，并能在編輯后保存該文件（如圖4-13、圖4-14所示）。編寫(xiě)表單的Activate事件代碼：WITHTHIS.Edit1.Top=0.Left=0.Width=THIS.WidthENDWITHSETEXACTONTHIS.Caption="未命名"THIS.Edit1.SetFocus對(duì)象屬性屬性值說(shuō)明

Command1Caption\<N新建按鈕的標(biāo)題

Command2Caption\<O打開(kāi)按鈕的標(biāo)題

Command3Caption\<S保存按鈕的標(biāo)題

Command4Caption\<C另存為按鈕的標(biāo)題

Label1Caption請(qǐng)輸入圓的半徑：標(biāo)簽的內(nèi)容AutoSize.T.–

真自動(dòng)適應(yīng)大小FontSize16字體的大小FontName黑體設(shè)置字體Label2Caption圓的面積為：標(biāo)簽的內(nèi)容AutoSize.T.–

真自動(dòng)適應(yīng)大小FontSize16字體的大小

FontName黑體設(shè)置字體

編寫(xiě)Command1的Click事件代碼：THISFORM.Edit1.Value=""THISFORM.RefreshTHISFORM.Caption="未命名"THISFORM.Edit1.SetFocusTHISFORM.Command2.Enabled=.T.THISFORM.Command3.Enabled=.F.THISFORM.Command4.Enabled=.T.

編寫(xiě)Command2的Click事件代碼：cfile=GETFILE("")nhandle=FOPEN(cfile)nend=FSEEK(nhandle,0,2)=FSEEK(nhandle,0,0)THISFORM.Edit1.Value=FREAD(nhandle,nend)THISFORM.Caption=cfile=FCLOSE(nhandle)THISFORM.Edit1.SetFocusTHISFORM.RefreshTHISFORM.Command3.Enabled=.T.

編寫(xiě)Command3的Click事件代碼：cFile=THISFORM.Captionnhandle=FOPEN(cfile,1)=FWRITE(nhandle,THISFORM.Edit1.Value)=FCLOSE(nhandle)THISFORM.RefreshTHISFORM.Edit1.SetFocus

編寫(xiě)Command4的Click事件代碼：cfile=PUTFILE("")nhandle=FCREATE(cfile,0)cc=FWRITE(nhandle,THISFORM.Edit1.Value)=FCLOSE(nhandle)THISFORM.Edit1.SetFocusTHISFORM.RefreshTHISFORM.Command3.Enabled=.T.

2.與文件操作有關(guān)的函數(shù)

函數(shù)名與格式功能GETFILE([〈c1〉])顯示“打開(kāi)”對(duì)話框，供用戶選定一個(gè)文件并返回文件名。其中〈c1〉用于指定文件的擴(kuò)展名。PUTFILE([〈c1〉])顯示“另存為”對(duì)話框，供用戶指定一個(gè)文件名并返回文件名。其中〈c1〉用于指定文件的擴(kuò)展名。如圖4-15，圖4-16所示。FOPEN(〈文件名〉)打開(kāi)指定文件，返回文件句柄（控制號(hào)）。FCREATE(〈文件名〉)建立一個(gè)新文件，返回文件句柄（控制號(hào)）。FCLOSE(〈文件句柄〉)將文件緩沖區(qū)的內(nèi)容寫(xiě)入文件句柄所指定的文件中，并關(guān)閉該文件。FREAD(〈文件句柄〉,〈字節(jié)數(shù)〉)從文件句柄所指定的文件中讀取指定字節(jié)數(shù)的字符數(shù)據(jù)。FWRITE(〈文件句柄〉,〈c表達(dá)式〉)把〈c表達(dá)式〉表示的數(shù)據(jù)寫(xiě)入文件句柄所指定的文件中。FSEEK(〈文件句柄〉,〈移動(dòng)字節(jié)數(shù)〉[,〈n〉])在文件句柄所指定的打開(kāi)的文件中移動(dòng)文件指針，其中n表示移動(dòng)的方式或方向：n=0為向文件首移動(dòng)，n=1為相對(duì)位置移動(dòng)，n=2為向文件尾移動(dòng)。4.3.5形狀與容器控件使用形狀2.使用容器控件

【例4-7】設(shè)計(jì)一個(gè)華氏溫度和攝氏溫度互相轉(zhuǎn)換的程序，如圖4-20所示。輸入一個(gè)華氏溫度可以得到相應(yīng)的攝氏溫度，而輸入一個(gè)攝氏溫度則可以得到其相應(yīng)的華氏溫度。分析：攝氏溫度與華氏溫度的關(guān)系為： 華氏=攝氏*9/5+32由此可得：攝氏=（華氏–32）*5/9。設(shè)計(jì)步驟如下：

編寫(xiě)程序代碼。編寫(xiě)表單的Activate事件代碼：THIS.Container1.Text1.SetFocus

編寫(xiě)Command1的Click事件代碼：c=THISFORM.Container1.Text1.ValueTHISFORM.Container2.Text1.Value=c*(9/5)+32

編寫(xiě)Command2的Click事件代碼：f=THISFORM.Container2.Text1.ValueTHISFORM.Container1.Text1.Value=(f–32)*(5/9)

編寫(xiě)文本框Text1的事件代碼：

GotFocus事件代碼：THIS.SelStart=0THIS.SelLength=LEN(THIS.Text)InteractiveChange事件代碼：THISFORM.Container2.Text1.Value=""

編寫(xiě)（Container2中）文本框Text1的事件代碼：

GotFocus事件代碼：THIS.SelStart=0THIS.SelLength=LEN(THIS.Text)InteractiveChange事件代碼：THISFORM.Container1.Text1.Value=""4.3.6使用對(duì)話框

MESSAGEBOX函數(shù)在對(duì)話框中顯示信息，等待用戶單擊按鈕，并返回一個(gè)整數(shù)以標(biāo)明用戶單擊了哪個(gè)按鈕。其語(yǔ)法格式為[〈變量名〉]=MESSAGEBOX(〈信息內(nèi)容〉[,〈對(duì)話框類型〉[,〈對(duì)話框標(biāo)題〉]])值說(shuō)明值說(shuō)明0確定按鈕3是、否和取消按鈕1確定和取消按鈕4是和否按鈕2終止、重試和忽略按鈕5重試和取消按鈕值說(shuō)明值說(shuō)明16停止圖標(biāo)32問(wèn)號(hào)（？）圖標(biāo)48感嘆號(hào)（！）圖標(biāo)