1、程序設(shè)計(jì)基礎(chǔ)(一)蔡海洋順序、選擇結(jié)構(gòu)1Foxpro程序示例學(xué)生管理系統(tǒng)住院管理系統(tǒng)比賽評分郵件計(jì)費(fèi)滾球九九乘法表2學(xué)習(xí)建議看書 -動手 -再看書 -再動手強(qiáng)調(diào)敲代碼、修改程序通過實(shí)踐來增強(qiáng)對理論的理解 看明白運(yùn)行出來 3內(nèi)容回顧 賦值命令: STORE TO 或 = 計(jì)算輸出命令: ？ 或 ？ 4VFP的工作方式 單命令方式:輸入一條命令，完成一個操作的工作方式。菜單方式:通過打開不同的菜單選擇并完成不同的操作。程序文件方式:通過程序文件中的命令完成不同的操作。 5程序的控制結(jié)構(gòu) 任何復(fù)雜的程序都由 3 種基本控制結(jié)構(gòu)組成。1. 順序結(jié)構(gòu) 依次順序執(zhí)行程序塊ABC62. 選擇結(jié)構(gòu) 根據(jù)情況不

2、同執(zhí)行不同分支程序的控制結(jié)構(gòu)命令序列2ENDIF的下一條命令YN命令序列1條件73. 循環(huán)結(jié)構(gòu)重復(fù)執(zhí)行某些操作，重復(fù)執(zhí)行的部分稱為循環(huán)體程序的控制結(jié)構(gòu)執(zhí)行循環(huán)體條件ENDDO后的語句NY8結(jié)構(gòu)化程序設(shè)計(jì)方法 結(jié)構(gòu)化程序設(shè)計(jì)方法采用自頂向下、逐步求精和模塊化的分析方法。91.程序文件的建立與修改 MODIFY COMMAND |?2.程序文件的調(diào)用 DO 程序文件名9.1 程序設(shè)計(jì)基礎(chǔ)10基本命令l注釋命令：非執(zhí)行語句 NOTE、*（行首注釋）、&（行尾注釋）2. 環(huán)境設(shè)置命令：SET TALK OFF/SET TALK ON3. 清除命令： CLEAR CLEAR ALL（清除所有內(nèi)存變量）4

3、. 關(guān)閉文件命令： CLOSE ALL 9.2 順序結(jié)構(gòu)程序設(shè)計(jì)115、程序結(jié)束命令RETURN：結(jié)束當(dāng)前程序的執(zhí)行，返回調(diào)用它的上級程序（主調(diào)程序文件）。如果沒有上級程序，則返回到命令窗口。QUIT：退出Visual FoxPro系統(tǒng)，返回到操作系統(tǒng)。12程序結(jié)構(gòu)示例set talk offclearXXXXXXXXXXXXXXXXXXXXXXXset talk onreturn13程序交互：接受字符串命令 格式： ACCEPT TO 功能：顯示提示信息，等待用戶鍵盤輸入字符型數(shù)據(jù)，賦值給指定內(nèi)存變量。說明：輸入的字符串不需要。舉例：ACCEPT “請輸入你的愛好：” TO A ？A 14程

4、序交互：接受任意數(shù)據(jù)命令格式: INPUT TO 說明： 可從鍵盤輸入不同類型數(shù)據(jù)賦給指定的內(nèi)存變量名，可以是表達(dá)式，也可是常量。15例： INPUT 請輸入一個數(shù)值表達(dá)式: TO num INPUT “請輸入一個日期表達(dá)式: TO dat執(zhí)行：請輸入一個數(shù)值表達(dá)式：98/10/10 請輸入一個日期表達(dá)式:1998-10-10結(jié)果： num=？ dat=？接收任意數(shù)據(jù)命令示例16程序交互：接受單字符命令 格式： WAIT TO TIMEOUT功能：顯示提示信息，等待用戶鍵盤輸入1個字符，賦值給指定內(nèi)存變量。超時則自動向下執(zhí)行程序。舉例：WAIT “繼續(xù)游戲(y/n)” TO C TIMEOUT

5、 1 ？C 17三條輸入命令的異同 ACCEPT命令只接受字符型數(shù)據(jù)，不需定界符，輸入完畢按回車鍵。INPUT命令可接受數(shù)值型/字符型/邏輯型/日期型/日期時間型數(shù)據(jù)；數(shù)據(jù)形式可以是常量/變量/函數(shù)/表達(dá)式；除數(shù)值型外，均需定界符，輸入完畢按回車鍵。 WAIT命令只接受單字符數(shù)據(jù)，不需定界符，不需回車鍵。18例1 編程，已知直角三角形的兩條直角邊，求斜邊的長度。SET TALK OFFCLEARINPUT “請輸入直角三角形A邊長:” TO AINPUT “請輸入直角三角形B邊長:” TO BC=SQRT(A2+B2)?”直角三角形的斜邊C長為:”,CSET TALK ONRETURN19例2

6、 在學(xué)生表中，需要按學(xué)號查詢學(xué)生的姓名和入學(xué)成績 SET TALK OFF CLEAR USE STUDENT ACCEPT 請輸入學(xué)生學(xué)號: TO bh1 LOCATE FOR 學(xué)號=bh1 DISP 學(xué)號,姓名,入學(xué)成績 USE SET TALK ON RETURN209.3 選擇結(jié)構(gòu)雙分支選擇結(jié)構(gòu) 格式: IF ELSE ENDIF命令序列2ENDIF的下一條命令YN命令序列1條件21例2 在學(xué)生表中，需要按學(xué)號查詢學(xué)生的姓名和入學(xué)成績 SET TALK OFF CLEAR USE STUDENT ACCEPT 請輸入學(xué)生學(xué)號: TO bh1 LOCATE FOR 學(xué)號=bh1 DISP

7、 學(xué)號,姓名,入學(xué)成績 USE SET TALK ON RETURN22 SET TALK OFF CLEAR USE STUDENT ACCEPT 請輸入學(xué)生學(xué)號： TO bh1 LOCATE FOR 學(xué)號=bh1 IF FOUND( ) DISP 學(xué)號,姓名,入學(xué)成績 ELSE ?“查無此人“ ENDIF USE SET TALK ON RETURNNOT EOF( )232008.04 二級VFP填空題12、在Visual FoxPro中，使用LOCATE FOR命令按條件對表中的記錄進(jìn)行查找，若查不到記錄，函數(shù)EOF( )的返回值是 。.T.24格式：DO CASE CASE CASE

8、 . CASE otherwise ENDCASE多重選擇Y條件1條件N條件2其它否ENDCASE的下一條命令命令序列1命令序列N命令序列2命令序列N+1YYYNNNN 25Y=2x-1 (x0)3x+5 (0 x5)X+1 (x5)例5 求下列函數(shù)的值。注：X的值通過鍵盤輸入。SET TALK OFFINPUT 請輸入X的值:“ TO XDO CASE CASE X=0 AND X=5 Y=X+1ENDCASE ?Y=, YSET TALK ON 26（1）IF.ENDIF和DO CASE .ENDCASE必須配對使用。（2）可以是各種表達(dá)式或函數(shù)的組合，其值必須是邏輯值。（3） IF.ENDIF和DO CASE .ENDCASE命令，每次最多執(zhí)行一個。 小結(jié):27實(shí)驗(yàn)作業(yè)1.要求從鍵盤輸入任意3個整數(shù)，計(jì)算并輸出它們的平方和。即：輸入a,b,c的值，d=a*a+b*b+c*c