【正文】 成對出現(xiàn)。 ? ：單個？表示需要光標(biāo)換行。 ?說明： ? ：表達(dá)式的值換行顯示 。 ?程序如下： CLEAR INPUT “請輸入任意類型的一個數(shù)據(jù)” TO X ? X , “的數(shù)據(jù)類型為 :” , VARTYPE(X) ?第一次運行： 請輸入任意類型的一個數(shù)據(jù)： 123 ?第二次運行： 請輸入任意類型的一個數(shù)據(jù)： 123 ?第三次運行： 請輸入任意類型的一個數(shù)據(jù)： .T. ?第四次運行： 請輸入任意類型的一個數(shù)據(jù)： {^19910503} 【 例 72】 查詢學(xué)生表中某些學(xué)生的信息。 ?如指定 [Timeout 表達(dá)式 ]項，用于設(shè)定等待時間，Timeout 為間隔秒數(shù)，一旦超時，系統(tǒng)自動往下執(zhí)行。 wait to x ?內(nèi)存變量 用于保存用戶按鍵的字符，可省略此項。 ?舉例： ?accept 請輸入學(xué)生證號 to no ?accept to ab ?accept “請輸入學(xué)生姓名 to XM 3． Wait 命令 ?格式： WAIT [提示信息 ] [TO 內(nèi)存變量 ] [Window] [Timeout 表達(dá)式 ] ?功能：等待用戶按鍵盤上任一個鍵。 ?輸入的字符串不加定界符，否則，系統(tǒng)會認(rèn)為定界符也是輸入字符串本身的一部分。 (2) 菜單或工具欄方式運行程序 程序中常出現(xiàn)的錯誤 (1) 遺漏關(guān)鍵字和變量之間的空格 (2) 遺漏定界符，或定界符使用了中文標(biāo)點符號 (3) 關(guān)鍵字、變量名和文件名拼寫錯誤 (4) 內(nèi)存變量沒有初始化 (5) 表達(dá)式和函數(shù)中的數(shù)據(jù)類型不匹配 (6) 控制語句缺少結(jié)束語句 (7) 控制語句嵌套錯誤 程序中常用的命令 基本輸入命令 1． Input命令 ?格式： INPUT [提示信息 ] TO 內(nèi)存變量 ?功能：從鍵盤上接收數(shù)據(jù)（可為任何類型）賦給內(nèi)存變量 ?說明： ?提示信息要使用定界符定界，提示信息可以省略 ?不能不輸入任何內(nèi)容直接按回車鍵 ?輸入的字符數(shù)據(jù)需加定界符，輸入日期數(shù)據(jù)時加大括號 { }，輸入邏輯值時加圓點定界符 ( ． )。第 7章 Visual FoxPro程序設(shè)計 程序與程序文件 Visual FoxPro支持兩種程序設(shè)計 : ?結(jié)構(gòu)化程序設(shè)計 (面向過程的編程方式 ) ?面向?qū)ο蟮某绦蛟O(shè)計 程序 1. 程序的概念 ?程序是命令的有序集合 ?程序以文本文件的形式存儲在磁盤上，稱為程序文件 ?程序文件的擴(kuò)展名為 .prg 2. 程序方式與交互方式的區(qū)別 ?程序可完成復(fù)雜的任務(wù)，命令只能完成簡單任務(wù) ?命令不被保存，程序可長期保存并可多次修改和運行 ?一個程序中可以調(diào)用其他程序，命令則不能 程序文件的建立、編輯、保存和運行 1．建立和編輯程序文件 (1)命令方式 ?格式： modify mand [程序文件名 ] ?說明：擴(kuò)展名 .prg可以省略，由系統(tǒng)自動添加。 (2)菜單或工具欄方式 程序文件的建立、編輯、保存和運行 2．保存程序文件 ?保存：菜單或工具欄按鈕、關(guān)閉窗口、組合鍵 【 Ctrl +W】 ?【 ESC】 或 【 Ctrl +Q】 放棄當(dāng)前修改 程序文件的建立、編輯、保存和運行 3．程序文件的運行 (1) 命令方式運行程序 ?格式： DO 程序文件名 [With 參數(shù) ] ?說明：文件名可以是 .prg文件，也可以是其他類型文件 如： .exe、 .mpr、 .qpr, 所以要加上擴(kuò)展名。 ?舉例： ?input to AA ?input 請輸入學(xué)生姓名： to name ?input 請輸入該生的出生日期： to birth ?Input 請輸入該生的黨員值： to 黨員 2． Accept命令 ?格式： ACCEPT [提示信息 ] TO 內(nèi)存變量 ?功能 ?字符串接收命令，僅從鍵盤上接收字符型數(shù)據(jù)并賦給內(nèi)存變量。 ?如果想輸入 123，此時的 123也是字符型數(shù)據(jù)不能用于計算。 ?說明 ?省略提示信息后，系統(tǒng)默認(rèn)為提示 “ 按任一鍵繼續(xù) …” 。 ?如指定 Window項，主窗口的右上角會出現(xiàn)一個 Wait提示窗口，來顯示提示信息，否則顯示在屏幕工作中。 wait 請輸入一個字母 to m window timeout 3 【 例 71】 輸入任意一個數(shù)據(jù)，判斷該數(shù)的數(shù)據(jù)類型。 ? 程序如下： USE 學(xué)生 .DBF ACCEPT 請輸入您要查詢的學(xué)生姓名 TO NAME LOCATE FOR 姓名 =NAME DISP WAIT “您還要查詢其他內(nèi)容 ?” WINDOW TIMEOUT 5 INPUT 請輸入您要查詢的學(xué)生的身高 TO HEIGHT LOCATE FOR 身高 =HEIGHT DISP USE RETURN 基本輸出命令 1．表達(dá)式輸出命令 ?格式： ? | ?? 表達(dá)式 1 [,表達(dá)式 2…] ?功能：對一個或多個表達(dá)式求值， 并將結(jié)果輸出到系統(tǒng)主窗口上。 ?? ：表達(dá)式的值不換行顯示 。 ?舉例： ? ? 3+4, date() , 67 ? use 學(xué)生表 ? ? 姓名 , 性別 , 出生日期 ? ? ? ??姓名 , 身高 , 體重 2．文本輸出命令 ?格式： Text 文本信息 EndText ?功能：將文本信息輸出在屏幕上。 ?舉例： text 系 統(tǒng) 主 菜 單 1. 數(shù)據(jù)輸入 2. 數(shù)據(jù)查詢 3. 數(shù)據(jù)統(tǒng)計 4. 退出系統(tǒng) endtext 定位輸入輸出命令 1．定位輸出命令 ?格式： 行，列 SAY 表達(dá)式 ?功能：在屏幕指定位置輸出表達(dá)式的值。標(biāo)準(zhǔn)屏幕是 25行 80列，左上角頂點為 (0， 0)，右下角坐標(biāo)為(24， 79)。 ?舉例： 10,10 say hello! 15, 20 say how are you! 20, 35 say 大家好 ! 2．定位輸入命令 ?格式： 行，列 [SAY (提示信息 ) ] GET 變量 … READ ?功能：在屏幕指定位置接收鍵盤輸入的新值 ?說明 ?SAY子句：用于顯示提示信息，提示信息加定界符 ?GET子句：用于為顯示變量的值，并允許輸入新值 GET子句中的變量必須有確定的初值 初值決定了該變量的類型和寬度 ? READ：使 GET后的 變量 進(jìn)入編輯狀態(tài)； 讓光標(biāo)自動跳到該變量值所在位置上等待編輯修改； 可在多個定位輸入命令后面使用一個 read語句。 終止程序執(zhí)行和返回命令 1． Cancel 終止程序執(zhí)行，關(guān)閉所有打開的程序，返回命令窗口。 3． Quit 退出 Visual Foxpro系統(tǒng)。常用作提示之用， 也可作一些簡單的選擇，比如“確定”、“取消”等 3. 舉例： messagebox(請選擇 , 32+3+0 , 測試 ) 4. 說明： (1)提示信息：對話框中所用到的提示文字。 ?每個語句執(zhí)行一次，且只執(zhí)行一次。 Clear Input 請輸入圓的半徑 To R Pi= L=2*PI*R S=PI*R*R ?圓的周長為： , L ?圓的面積為： , S Return 命令序列 1 命令序列 2 …… 命令序列 n 輸入半徑 R的值 定義圓周率變量 pi 計算周長 L和面積 S 輸出 L和 S的值 清屏幕 【 例 74】 查詢學(xué)生表中所有男同學(xué)和女同學(xué)的學(xué)生證號，姓名，性別和年齡，并分別顯示男同學(xué)和女同學(xué)的信息。 for 性別 =男 ?女同學(xué)的信息 disp 學(xué)生證號 ,姓名 ,性別 ,； (year(date())year(出生日期 )) ； for 性別 =女 use 打開學(xué)生表 提示先顯示男同學(xué)信息 逐頁顯示男同學(xué)信息 關(guān)閉打開的表 清屏幕 提示先顯示女同學(xué)信息 逐頁顯示女同學(xué)信息 選擇結(jié)構(gòu) ?選擇結(jié)構(gòu)又稱分支結(jié)構(gòu)，它是在程序執(zhí)行過程中，通過判斷某些條件是否成立來控制程序走向的程序結(jié)構(gòu)。 ?說明： ? IF 和 ENDIF必須成對出現(xiàn)。 ?命令序列 1可以是多條語句的集合。 程序分析： Clear Input 請輸入一個數(shù) to N If N0 ?是正數(shù)。 Endif If N=0 ? 是零。 程序分析： Clear Use 學(xué)生表 Accept 請輸入所要查找的學(xué)生證號： TO XSZH Locate For 學(xué)生證號 =XSZH If Found() Disp EndIf Use Return 2．雙（向）分支 ?格式 IF 條件 命令序列 1 ELSE 命令序列 2 ENDIF ?功能：若 〈 條件 〉 成立， 則執(zhí)行 命令序列 1, 否則執(zhí)行 命令序列 2。 命令序列 1 條件？ 不成立 成立 命令序列 2 【 例 77】 用雙分支實現(xiàn)判斷一個數(shù)的正負(fù)。 Else ?是負(fù)數(shù)。 ELSE IF N=0 ?是零。 ENDIF ENDIF ?程序運行結(jié)束 RETURN N=0 IF N0 ?是正數(shù)。 ENDIF ELSE ?是負(fù)數(shù)。 程序分析： ?輸入日期 INPUT ?根據(jù)日期判斷星期幾 DOW(日期變量 ) ?程序結(jié)構(gòu)分析： ?單分支 ?雙分支 ?多分去 Input 請輸入今天日期 : To D IF DOW(D)=1 ?日期日 ENDIF IF DOW(D)=2 ?日期一 ENDIF IF DOW(D)=3 ?日期二 ENDIF IF DOW(D)=4 ?日期三 ENDIF IF DOW(D)=5 ?日期四 ENDIF IF DOW(D)=6 ?日期五 ENDIF IF DOW(D)=7 ?日期六 ENDIF 【 例 79】 根據(jù)所輸入的日期判定今天是星期幾。 程序分析： ?輸入日期 INPUT ?根據(jù)日期判斷星期幾 DOW(日期變量 ) ?程序結(jié)構(gòu)分析： ?單分支 ?雙分支 ?多分去 Input 請輸入今天日期 : To D Do Case Case Dow(D)=1 ? “星期日 ” Case Dow(D)=2 ? “星期一 ” Case Dow(D)=3