【正文】 職稱 = zc 2,10 Say 編號 Get 編號 3,10 Say 專業(yè) Get 專業(yè) 4,10 Say 畢業(yè)學(xué)校 Get 畢業(yè)學(xué)校 5,10 Say 專業(yè)年限 Get 專業(yè)年限 6,10 Say “職稱 ” Get 職稱 Read Close data 【 例 】 編寫程序，在指定的位置顯示修改 “專業(yè)特長”表中指定職稱的記錄。 （ 2）格式描述符用來限定數(shù)據(jù)輸出的類型、長度及格式。 字符轉(zhuǎn)換成大寫 任意字符 x1=Messagebox(您真的要退出系統(tǒng)嗎？ ,4+16+0, 退出系統(tǒng) ) If x1=6 Return Endif Messagebox(“提示信息 ”,對話框類型 ,“對話框標(biāo)題 “) 格式： 功能： 在屏幕上彈出一個指定格式的對話框。 提示信息 對話框標(biāo)題 提示信息 對話框標(biāo)題 對話框類型 按鈕個數(shù) 顯示圖標(biāo) 默認按鈕 2. 對話框 MessageBox函數(shù) P67 代碼 代碼的含義 0 確定按鈕 1 確定、取消按鈕 2 終止、重試、和忽略按鈕 3 是、否和取消按鈕 4 是、否按鈕 5 重試、取消按鈕 按鈕個數(shù)代碼 顯示圖標(biāo)代碼 代碼 代碼的含義 16 停止圖標(biāo) 32 問號圖標(biāo) 48 感嘆號圖標(biāo) 64 信息圖標(biāo) 默認焦點按鈕的代碼 代碼 代碼的含義 0 默認焦點在第一個按鈕 256 默認焦點在第二個按鈕 512 默認焦點在第三個按鈕 按鈕 返回值 按鈕 返回值 確定 1 忽略 5 取消 2 是 6 終止 3 否 7 單擊對話框按鈕的返回值 4+16+0 單擊“否 ”，返回 7 返回值送到 x1 如果 x1=“是” 返回系統(tǒng) 單擊“是”，返回 6 程序結(jié)尾命令 程序的末尾可以使用 Return命令，能使程序執(zhí)行結(jié)束，并返回到調(diào)用它的上級程序繼續(xù)執(zhí)行，若無上級程序則返回到命令窗口。 使用 Quit命令可以結(jié)束程序運行退出 Visual FoxPro系統(tǒng) 程序的基本控制結(jié)構(gòu) 常見的控制結(jié)構(gòu)如下： 1．順序結(jié)構(gòu) 順序結(jié)構(gòu)是在程序執(zhí)行時，根據(jù)程序中語句的書寫順序依次執(zhí)行的命令序列。 2．分支結(jié)構(gòu) 分支結(jié)構(gòu)是在程序執(zhí)行時，根據(jù)不同的條件，選擇執(zhí)行不同的程序語句，用來解決有選擇、有轉(zhuǎn)移的諸多問題。如果某些語句或程序段需要在一個固定的位置上重復(fù)操作，使用循環(huán)是最好的選擇。是程序設(shè)計中最簡單同時也是最基本的結(jié)構(gòu)。 命令序列 1 命令序列 2 【 例 】 計算圓的周長和面積。 If 條件表達式 語句序列 EndIf 格式： 功能 : 首先計算 〈 條件表達式 〉 的值，當(dāng) 〈 條件表達式 〉 的值為真時，執(zhí)行 〈 語句序列 〉 ；否則，執(zhí)行 EndIf后面的第一條語句。如果 x能被 3整除，那么 y的值增加 x；否則 y的值不變。 Clear Use 專業(yè)特長 Exclusive Locate For 編號 = zj01002 If 職稱 = 副教授 Replace 職稱 With 教授 EndIf Browse Last 2. 帶 Else的條件語句 If〈 條件表達式 〉 〈 語句序列 1〉 Else 〈 語句序列 2〉 EndIf 格式： 功能 : F T 語句序列 1 語句序列 2 條件 EndIf后面的語句 該語句首先計算 〈 條件表達式 〉 的值，當(dāng) 〈 條件表達式 〉 的值為 真 時，執(zhí)行 〈 語句序列 1〉 中的命令；否則，執(zhí)行 〈 語句序列 2〉 中的命令；執(zhí)行完 〈 命令行序列 1〉 或 〈 命令行序列 2〉 后都將執(zhí)行 EndIf后面的第一條語句。當(dāng)發(fā)現(xiàn)某個 Case后面的條件成立時，就執(zhí)行該 Case和下一個 Case之間的語句序列，然后執(zhí)行 EndCase后面的語句令。 3. 多分支語句 Do Case Case〈 條件表達式 1〉 語句序列 1〉 Case〈 條件表達式 2〉 語句序列 2〉 … … Case〈 條件表達式 N〉 〈 語句序列 N〉 ］ ［ Otherwise 〈 語句序列 N+1〉 ］ EndCase 格式： 功能 : 條件 2 條件 n OTHERWISE 語句序列 1 語句序列 2 語句序列 n 語句序列 n+1 ENDCASE后面的語句 條件 1 … ① 不管有幾個 Case條件成立，只有最先成立的那個 Case條件的對應(yīng)命令序列被執(zhí)行。 ③ Do Case 和 EndCase必須配對使用， Do Case 是本結(jié)構(gòu)的入口， EndCase是本結(jié)構(gòu)的出口。 說明： Do Case Case〈 條件表達式 1〉 命令行序列 1〉 Case〈 條件表達式 2〉 命令行序列 2〉 … … Case〈 條件表達式 N〉 〈 命令行序列 N〉 ］ ［ Otherwise 〈 命令行序列 N+1〉 ］ EndCase Input 請輸入考試成績： To x Do Case Case x60 ?不及格 Case x70 ?及格 Case x80 ?中等 Case x90 ?良好 Otherwise ?優(yōu)秀 EndCase 【 例 】 顯示當(dāng)前季節(jié)。 Clear Yue= Month(Date()) Do Case Case yue4 jj=春 Case yue7 jj=夏 Case yue10 jj=秋 Otherwise jj=冬 Endcase Wait jj Window 從今天的日期里取出月份送到 yue 測試表達式的值是否在表達式中，是就返回 .T. 【 例 】 假設(shè)收入（ P）與稅率（ R）的關(guān)系如下表，編程求稅金。計算：如果性別 =“男”并且身高又在 180以上，輸出“參加籃球比賽”，否則輸出“參加足球比賽”。 Acce 請輸入你的性別 : To 性別 Input 請輸入你的身高 : To 身高 If 性別 = 男 Do Case Case 身高 = 180 ? 參加籃球比賽！ Case 身高 180 ? 參加足球比賽！ EndCase Else Do Case Case 身高 = 170 ? 參加模特比賽！ Case 身高 170 ? 參加健美操比賽！ EndCase EndIf Return 用 Case包含If語句怎么寫？ 解題步驟： ? 交換 a、 b的值 ? 交換 a、 c的值 ? 交換 b、 c的值 【 例 】 編寫程序，對任給的三個數(shù)，按從小到大的順序輸出。被重復(fù)執(zhí)行的代碼段，通常稱之為循環(huán)體。 格式 1： 功能 : Do While 條件表達式 語句序列 EndDo 條件 F T 循環(huán)體 EndDo后面的語句 首先計算 〈 條件表達式 〉 的值，當(dāng) 〈 條件表達式 〉 的值為真時，執(zhí)行循環(huán)；否則，執(zhí)行EndDo 后面的第一條命令。 【 例 】 統(tǒng)計“人才檔案”表中工資超過 7000元的人數(shù)。 一個循環(huán)結(jié)構(gòu)一般應(yīng)具備如下的條件： （ 1）循環(huán)的初始條件：一般為給循環(huán)控制變量賦初值； （ 2）循環(huán)頭：循環(huán)語句的起始，設(shè)置、判斷循環(huán)條件； （ 3）循環(huán)尾：循環(huán)語句的結(jié)尾； （ 4）循環(huán)體：位于循環(huán)頭和循環(huán)尾之間、循環(huán)控制重復(fù)執(zhí)行的語句序列 。 Exit語句：強行跳出循環(huán)，接著執(zhí)行 EndDo后的語句 EndDo的后繼語句 循環(huán)體 Loop Exit 循環(huán)條件 Clear Ji=0 Ou=0 Do while .t. Input ”輸入一個整數(shù)：” To a If a=0 Exit Else If mod(a,2)=0 ou=ou+1 endif 【 例 】 輸入任意整數(shù)，分別統(tǒng)計偶數(shù)和奇數(shù)的個數(shù)，輸入 0為結(jié)束程序。 一個數(shù)除了 1和它本身之外，沒有其他整數(shù)能整除的整數(shù)為素數(shù)。否則， n為素數(shù)。如果是男同學(xué)并且身高又在 180以上，輸出“參