第4章 選擇結構程序設計1

1、機械工業(yè)出版社同名教材配套電子教案2007 2007 年年 7 7月月 關系運算符有8種：、=、=、#、 !=、$、= = 邏輯運算符有3種：AND、OR、NOT 運算符的優(yōu)先順序：算術運算符、字符串運算符、 關系運算符、邏輯運算符【例4-2】設計一個驗證口令的表單。輸入口令時文本框中只顯示相同個數(shù)的“*”號，如圖4-2所示。 設計步驟如下： (1) 建立應用程序用戶界面。 (2) 設置對象屬性。 編寫Text1的Valid事件代碼：THISFORM.Command1.TabStop = .F.a = LOWER(THIS.Value)IF a= abcd THISFORM.Label1.To

2、p = THIS.Parent.Top THISFORM.Label1.Caption=歡迎使用本程序！歡迎使用本程序！ THISFORM.Command1.TabStop = .T. THIS.Parent.Visible = .F.ELSE MESSAGEBOX(對不起，口令錯！請重新輸入！對不起，口令錯！請重新輸入！,48,口令口令) THIS.SelStart=0 THIS.SelLength=LEN(RTRIM(THIS.Value)ENDIF【例4-3】求函數(shù)值。輸入x，計算y的值，其中： 設計步驟如下： (1) 建立應用程序用戶界面與設置對象屬性。 (2) 編寫程序代碼。 根據(jù)流

3、程圖,可以寫出命令按鈕Command1的單擊（Click）事件代碼為：)0(215)0(4xxxxy x = val(THISFORM.Text1.Value)IF x = 0 y = 4 * x ELSE y = 15 2 * xENDIFTHISFORM.Text1.SelStart = 0THISFORM.Text1.SelLength= EN(THISFORM.Text1.Text)THISFORM.Text1.SetFocusTHISFORM.Text2.Value = y使用IIF函數(shù) IIf函數(shù)的語法結構為： IIf(條件，真部分，假部分條件，真部分，假部分)【例4-4】例4-3

4、中命令按鈕Command1的單擊（Click）事件代碼可以改為：x =val(THISFORM.Text1.Value)y = IIF(x = 0, 4 * x, 15 2 * x)THISFORM.Text2.Value = yTHISFORM.Text1.SelStart = 0THISFORM.Text1.SelLength=LEN(THISFORM.Text1.Text)THISFORM.Text1.SetFocus IF語句的嵌套【例4-5】鐵路托運行李，從甲地到乙地，規(guī)定每張客票托運費計算方法是：行李重量不超過50公斤時，每公斤0.25元，超過50公斤而不超過100公斤時，其超過部

5、分每公斤0.35元，超過100公斤時，其超過部分每公斤0.45元。編寫程序，輸入行李重量，計算并輸出托運的費用。 設計步驟如下： (1) 建立應用程序用戶界面與設置對象屬性。(2) 編寫程序代碼。 根據(jù)流程圖，可以寫出命令按鈕Command1的單擊（Click）事件代碼為：w = THISFORM.Text1.ValueIF w = 50 x = 0.25 * wELSE IF w = 100 x = 0.25 * 50 + 0.35 * (w 50) ELSE x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w 100) ENDIFENDIFTHISFORM.Text

6、2.Value = xTHISFORM.Text1.SelStart = 0THISFORM.Text1.SelLength = LEN(THISFORM.Text1.Text)THISFORM.Text1.SetFocus【例4-6】5-5某百貨公司為了促銷，采用購物打折扣的優(yōu)惠辦法：每位顧客一次購物 (1) 在1000元以上者，按九五折優(yōu)惠。 (2) 在2000元以上者，按九折優(yōu)惠。 (3) 在3000元以上者，按八五折優(yōu)惠。 (4) 在5000元以上者，按八折優(yōu)惠。 編寫程序，輸入購物款數(shù)，計算并輸出優(yōu)惠價。 設計步驟如下： (1) 建立應用程序用戶界面與設置對象屬性。x =val(TH

7、ISFORM.Text1.Value)IF x 1000 y = xELSE IF x 2000 y = 0.95 * x ELSE IF x 3000 y = 0.9 * x ELSE IF x 5000 y = 0.85 * x ELSE y = 0.08 * x ENDIF ENDIF ENDIFENDIFTHISFORM.Text2.Value = yTHISFORM.Text1.SelStart = 0THISFORM.Text1.SelLength= LEN(THISFORM.Text1.Text)THISFORM.Text1.SetFocus(2) 編寫程序代碼。 根據(jù)流程圖，可

8、以寫出命令按鈕Command1的單擊（Click）事件代碼為：DO CASE CASE條件條件1 語句列語句列1 CASE條件條件2 語句列語句列2 . OTHERWISE 其他語句列其他語句列ENDCASE【例4-7】5-6在例4-6中使用DO CASE語句來計算優(yōu)惠價，只需將其中命令按鈕Command1的Click事件代碼改為：x = val(THISFORM.Text1.Value)DO CASE CASE x 1000 y = x CASE x 2000 y = 0.95 * x CASE x 3000 y = 0.9 * x CASE x 5000 y = 0.85 * x OTHE

9、RWISE y = 0.80 * xENDCASETHISFORM.Text2.Value = yTHISFORM.Text1.SelStart = 0THISFORM.Text1.SelLength=LEN(THISFORM.Text1.Text)THISFORM.Text1.SetFocus4.3 提供簡單選擇的控件使用命令按鈕組【例4-8】5-7使用命令按鈕組的程序。設銀行定期存款年利率為：1年期2.25%，2年期2.43%，3年期2.70%，5年期2.88%（不計復利）。今有本金x元，5年以后使用，共有以下6種存法：l存一次5年期。l存一次3年期，一次2年期。l存一次3年期，兩次1年期

10、。l存兩次2年期，一次1年期。l存一次2年期，三次1年期。l存五次1年期。 分別計算各種存法5年后到期時的本息合計，如圖4-12所示。 設計步驟如下： (1) 建立應用程序用戶界面。 (2) 設置對象屬性。 (3) 編寫程序代碼。 編寫表單的Activate事件代碼：THIS.Text1.SetFocus DO CASE CASE n = 1 mes = 存存1次次5年期年期 y = (1 + 5 * x5) * a 【例4-9】利用選項組控制例4-8中存款利息的計算，如圖4-16。 設計步驟如下： (1) 建立應用程序用戶界面 (2) 設置對象屬性。 (3) 編寫程序代碼。 編寫選項按鈕組O

11、ptionGroup1的Click事件代碼： a = val(THISFORM.Text1.Value)x1 = 0.0225x2 = 0.0243x3 = 0.027x5 = 0.0288n = THIS.ValueDO CASE CASE n = 1 mes = 存存1次次5年期年期 y = (1 + 5 * x5) * a CASE n = 2mes = 存存1次次3年期年期,1次次2年期年期 y = (1 + 3 * x3) * (1 + 2 * x2) * aCASE n = 3 mes = 存存1次次3年期年期,2次次1年期年期 y = (1 + 3 * x3) * (1 + x1

12、)2 * aCASE n = 4 mes = 存存2次次2年期年期,1次次1年期年期 y = (1 + 2 * x2)2 * (1 + x1) * a CASE n = 5 mes = 存存1次次2年期年期,3次次1年期年期 y = (1 + 2 * x2) * (1 + x2)3 * a CASE n = 6 mes = 存存5次次1年期年期 y = (1 + x1)5 * aENDCASEmes = mes + ,本息共計本息共計:+ALLT(STR(y,12,2)+元元THISFORM.Label3.Caption = mes【例4-10】利用選項組控制文本的對齊方式與字體，如圖4-18

13、。 設計步驟如下： (1) 建立應用程序用戶界面。 (2) 設置對象屬性。 (3) 編寫程序代碼。 編寫表單的Activate事件代碼： THISFORM.Text1.SetFocus 編寫OptionGroup2的Click事件代碼：n = THIS.ValueDO CASE CASE n = 1 THISFORM.Text1.FontName = 宋體宋體 CASE n = 2 THISFORM.Text1.FontName = 隸書隸書 CASE n = 3 THISFORM.Text1.FontName = 黑體黑體 CASE n = 4 THISFORM.Text1.FontName

14、 = 楷體楷體_GB2312ENDCASE【例4-11】修改上例中的選項組成圖形按鈕的形式，如圖4-21。 設計步驟同上例，只介紹選項組的修改方法。與修改命令按鈕組類似，可以在“選項組生成器”中對各個選項按鈕進行修改。下面我們通過屬性窗口對選項按鈕進行修改。 用鼠標右鍵單擊選項組OptionGroup1，在彈出菜單中選擇“編輯”，OptionGroup1的四周出現(xiàn)淺色邊界，開始對選項組（容器）中的按鈕進行編輯。 依次選中三個按鈕Option1Option3，將其標題（Cpation）屬性改為：（空），自動大?。ˋutoSize）屬性改為：.F. 假，圖片（Picture）屬性通過瀏覽按鈕“”進

15、行查找，并分別改為：programfilesmicrosoftvisualstudiocommongraphicsbitmapstlbr_w95lft.bmpprogramfilesmicrosoftvisualstudiocommongraphicsbitmapstlbr_w95ctr.bmpprogram filesmicrosoftvisual studiocommongraphicsbitmaps tlbr_w95rt.bmp 最后適當調整按鈕的大小與相互位置。與之相仿可以將選項組OptionGroup1改為圖形方式，如圖4-22所示。1、使用單個復選框【例4-12】在上例中，增加復選

16、框，控制選項組是否顯示，如圖4-23所示。 圖圖4-23 利用復選框控制控件的顯示利用復選框控制控件的顯示 設計步驟同上例，只列出增加的部分。 (1) 增加一個復選框控件Check1。 (2) 修改Check1的屬性： AutoSize 屬性改為：.T. 真 標題（Caption）改為：修改 值（Value）改為：.T. (3) 編寫Check1的Click事件代碼：THISFORM.OptionGroup1.Visible = THIS.ValueTHISFORM.OptionGroup2.Visible = THIS.Value2、使用多個復選框【例4-13】利用復選框來控制輸入或輸出文本

17、的字體風格，如圖4-24所示。 圖4-24 控制字體風格 設計步驟如下： (1) 選擇新建表單，進入表單設計器，增加一個形狀控件Shape1、一個文本框控件Text1、一個標簽控件Label1以及三個復選框控件Check1、Check2和Check3。 (2) 設置對象屬性。 (3) 編寫事件代碼。 編寫表單的Activate事件代碼： THIS.Text1.SetFocus 編寫Check1的Click事件代碼： THISFORM.Text1.FontBold = THIS.Value 編寫Check2的Click事件代碼： THISFORM.Text1.FontItalic = THIS.

18、Value 編寫Check3的Click事件代碼： THISFORM.Text1.FontUnderLine = THIS.Value3、復選框的圖形按鈕方式【例4-14】圖形按鈕形式的復選框，如圖4-25。單擊鎖定按鈕關閉其他復選框，單擊修改按鈕則開放其他復選框。圖圖4-25 使用圖形按鈕形式的復選框使用圖形按鈕形式的復選框設計步驟如下： (1) 選擇新建表單，進入表單設計器，首先增加一個形狀控件Shape1，然后在其上增加一個文本框控件Text1、一個標簽控件Label1以及五個復選框控件Check1、Check2、Check3、Check4和Check5（參見圖4-26）。 圖圖4-26

19、 設計按鈕形式的復選框設計按鈕形式的復選框 (2) 修改控件屬性。 (3) 編寫事件代碼。 編寫Check1的Click事件代碼：THISFORM.Text1.FontBold = THIS.Value 編寫Check2的Click事件代碼：THISFORM.Text1.FontItalic = THIS.Value 編寫Check3的Click事件代碼：THISFORM.Text1.FontUnderLine = THIS.Value 編寫Check4的Click事件代碼：THISFORM.Text1.FontStrikethru = THIS.Value 編寫Check5的Click事件代

20、碼：THISFORM.SetAll(Enabeld,THIS.Value,CheckBox)THIS.Enabeld=.T.THIS.Caption=IIF(THIS.Value=1,R 鎖定,=12 THIS.Parent.Label1.Caption=下午ELSE THIS.Parent.Label1.Caption=上午ENDIFTHIS.Parent.Text1.Value=SUBSTR(TTOC(DATETIME(),10,8)2. 計時器的動感控制【例4-16】設計一個電子游動標題板，標題“使用VFP設計動畫”在表單的黃色區(qū)域（容器中）自右至左地反復移動。單擊“暫?！卑粹o，標題停止移動，按鈕變成“繼續(xù)”。 單擊“繼續(xù)”按鈕，標題繼續(xù)移動，按鈕又變回“暫?！保ㄈ鐖D4-29所示）。 圖圖4-29 電子標題板電子標題板 設計步驟如下： (1) 建立應用程序用戶界面。 (2) 設置對象屬性。 (3) 編寫程序代碼。 編寫Command1（開始/暫停）的Click事件代碼：IF THIS.Caption = S 暫停 THIS.Caption = S 繼續(xù) THISFORM.Container1.Timer1.Enabled = .F.ELSE THIS.Caption =