[工學(xué)]第四章visualfoxpro程序設(shè)計(jì)基礎(chǔ)(編輯修改稿)
2024-11-09 17:50 本頁面
【文章內(nèi)容簡介】 IF （ 2） 執(zhí)行過程： 第一步：計(jì)算 〈 條件表達(dá)式 〉 的值 。 第二步：決定執(zhí)行哪個(gè)操作 。 當(dāng)該值為真時(shí) ， 執(zhí)行〈 語句序列 1〉 中的命令；否則 ， 執(zhí)行 〈 語句序列 2〉中的命令 。 第三步：執(zhí)行 ENDIF后面的第一條命令 。 wwnpsdu.com 2021/11/10 29 CLEAR INPUT 請(qǐng)輸入收入 : TO p DO CASE CASE p800 r=0 CASE p2021 r= CASE p5000 r= OTHERWISE r= ENDCASE Tax=p*r ?稅金為 :,tax RETURN 【 例 47】 如表 51， 編程求稅金 。 wwnpsdu.com 2021/11/10 30 ：從多個(gè)分支中選擇 一個(gè)執(zhí)行 （ 1）語句格式： DO CASE CASE〈 條件表達(dá)式 1〉 語句序列 1 CASE〈 條件表達(dá)式 2〉 語句序列 2 … … CASE〈 條件表達(dá)式 n〉 〈 語句序列 n〉 ［ OTHERWISE 〈 語句序列 n+1〉 ］ ENDCASE wwnpsdu.com 2021/11/10 31 （ 2） 執(zhí)行過程： 第一步：計(jì)算 〈 條件表達(dá)式 1〉 的值 。 第二步：決定下一步的操作 。 若該值為真 ， 執(zhí)行 〈 語句序列 1〉 ，轉(zhuǎn)第 2n+2步 ， 否則執(zhí)行第三步的操作 。 第三步：計(jì)算 〈 條件表達(dá)式 2〉 的值 。 第四步：決定下一步的操作 。 若該值為真 ， 執(zhí)行 〈 語句序列 2〉 ，轉(zhuǎn)第 2n+2步 ， 否則執(zhí)行第五步的操作 。 第五步：計(jì)算 〈 條件表達(dá)式 3〉 的值 。 第六步：決定下一步的操作 。 若該值為真 ， 執(zhí)行 〈 語句序列 3〉 ，轉(zhuǎn)第 2n+2步 ， 否則執(zhí)行第七步的操作 。 …… 第 2n1步：計(jì)算 〈 條件表達(dá)式 n〉 的值 。 第 2n 步：決定下一步的操作 。 若該值為真 ， 執(zhí)行 〈 語句序列 n〉 ，轉(zhuǎn)第 2n+2步 ， 否則執(zhí)行第 2n+1步的操作 。 第 2n+1步：若有 OTHERWISE子句則執(zhí)行 〈 語句序列 n+1〉 。 第 2n+2步：執(zhí)行 ENDCASE后的第一條命令 。 wwnpsdu.com 2021/11/10 32 （ 1） IF… ENDIF和 DO CASE… ENDCASE 必須 配對(duì) 使用 ， DO CASE與第一個(gè) CASE〈 條件表達(dá)式 〉 之間不應(yīng)有任何命令 。 （ 2） 〈 條件表達(dá)式 〉 可以是各種表達(dá)式或函數(shù)的組合 ，其值必須是邏輯值 。 （ 3） 〈 語句序列 〉 可以由一個(gè)或多個(gè)命令組成 ， 也可以是條件控制語句和循環(huán)控制語句組成的嵌套結(jié)構(gòu) 。 （ 4） DO CASE… ENDCASE 命令根據(jù)給出的 n個(gè) 〈 條件表達(dá)式 〉 的值 ， 選擇 n+1個(gè) 〈 語句序列 〉 中的一個(gè)執(zhí)行 。每次最多只能執(zhí)行一個(gè) 〈 語句序列 〉 。 在多個(gè) CASE項(xiàng)的 〈 條件表達(dá)式 〉 值為真時(shí) ， 只執(zhí)行第一個(gè) 〈 條件表達(dá)式 〉 值為真的 〈 語句序列 〉 。 當(dāng)所有 CASE中 〈 條件表達(dá)式 〉 的值都是假時(shí) ， 如果有 OTHERWISE項(xiàng) ， 則執(zhí)行 〈 語句序列 n+1〉 ， 否則一個(gè)分支也不執(zhí)行 。 wwnpsdu.com 2021/11/10 33 循環(huán)結(jié)構(gòu) 循環(huán)結(jié)構(gòu)有三種語句： ?DO WHILE ?FOR ?SCAN wwnpsdu.com 2021/11/10 34 1. DO WHILE循環(huán) DO WHILE 條件表達(dá)式 語句序列 1 [ LOOP ] 語句序列 2 [ EXIT ] 語句序列 3 ENDDO 執(zhí)行過程：參閱圖 56 第一步：求解循環(huán)頭 DO WHILE 后的 條件表達(dá)式 ， 若值為 .T.， 則依次執(zhí)行循環(huán)體中的語句 ， 否則轉(zhuǎn)第五步 。 循環(huán)體為位于 DO WHILE和 ENDDO之間的語句序列 。 第二步：循環(huán)體執(zhí)行過程中 ， 若執(zhí)行了 LOOP語句 ， 則結(jié)束本次循環(huán) ， 轉(zhuǎn)到第一步 。 第三步：循環(huán)體執(zhí)行過程中 ， 若執(zhí)行了 EXIT語句 ， 則強(qiáng)行跳出循環(huán) ， 轉(zhuǎn)到第五步 。 第四步：若循環(huán)體中所有語句均已經(jīng)執(zhí)行 ， 轉(zhuǎn)第一步 。 第五步：本循環(huán)語句執(zhí)行結(jié)束，轉(zhuǎn)去執(zhí)行 ENDDO之后的語句。 wwnpsdu.com 2021/11/10 35 【 例 48】 求 1+2+3+…..+100 之和。 Set talk off S=0 N=1 DO WHILE N=100 S=S+N N=N+1 ENDDO ?1+2+3+…+100=,S wwnpsdu.com 2021/11/10 36 【 例 49】 用 DO WHILE循環(huán)將學(xué)生檔案表中 “ 王欣 ”之前 （ 含 “ 王欣 ” ） 的所有學(xué)生的數(shù)據(jù)顯示出來 。 Clear use 學(xué)生檔案 do while .() amp。amp。 測(cè)試指針是否指向表尾 ,若指向表尾 ,”eof()=.t.” ,” .not. .t.=.f.”,則退出循環(huán) 。否則執(zhí)行 . DISP if 姓名 王欣 skip loop endif exit enddo use RETURN 在 DO WHILE語句中使用了 .式，構(gòu)成了一個(gè)永遠(yuǎn)不會(huì)自行結(jié)束的絕對(duì)循環(huán)。為了退出循環(huán)，必須在循環(huán)體內(nèi)選用EXIT、 RETURN、CANCEL等語句，且應(yīng)包含在分支語句中。 wwnpsdu.com 2021/11/10 37 【 例 410】 下列程序用于逐個(gè)顯示職稱為教授的數(shù)據(jù)記錄 ， 請(qǐng)完成程序 SET TALK OFF USE TEACHER DO WHILE NOT EOF() CLEAR IF 職稱 教授 THEN SKIP ______ amp。amp。 LOOP ENDIF DISPLAY WAIT 按任意鍵繼續(xù) ! SKIP ENDDO USE wwnpsdu.com 2021/11/10 38 【 例 411】 逐條顯示在 STUDENT數(shù)據(jù)庫的 STUD表中性別為“男”的所有記錄。程序文件名為。 SET TALK OFF CLEAR OPEN DATABASE STUDENT USE STUD DO WHILE .NOT. EOF() IF 性別 =”男” DISPLAY ENDIF SKIP ENDDO CLOSE DATABASE SET TALK ON RETURN wwnpsdu.com 2021/11/10 39
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1