【正文】 e=25，表明 nAge為整型變量，初始值為 25?！薄 說明 :例如， WAIT 繼續(xù)查詢嗎 ?(Y/N)? TO JX WAIT 請選擇 (1/2/3):“ TO XZ WINDOW TIMEOUT 3 WAIT20《 Visual FoxPro程序設(shè)計 》n 格式 ： ACCEPT [字符表達(dá)式 ] TO 內(nèi)存變量名 n 功能 ： 從鍵盤上輸入一個字符串常量給內(nèi)存變量。q QUIT：可以結(jié)束程序運行退出 Visual FoxPro系統(tǒng)。amp。 打開學(xué)生表Accept 請輸入查詢的姓名： to xm Locate for sname=xm amp。Input 請輸入一個數(shù) TO x?xIF x0 x=xENDIF?? 的絕對值是： ， xX0x=xN Y（該程序流程圖）輸入 x輸出 x執(zhí)行分支條件29《 Visual FoxPro程序設(shè)計 》簡單條件查詢示例[例 85]將徐克老師的職稱改為副教授。amp。q 循環(huán)體內(nèi)應(yīng)有 改變循環(huán)條件 的語句。40《 Visual FoxPro程序設(shè)計 》步長型循環(huán)語句執(zhí)行流程循環(huán)體循環(huán)變量增加步長循環(huán)變量獲得初值FT循環(huán)變量在終值內(nèi)41《 Visual FoxPro程序設(shè)計 》步長型循環(huán)示例[例 89] 編寫程序計算 S=1+2+…+1000 之和。 判斷數(shù)字 num=num+1 ELSE others=others+1 ENDIF ENDIF ENDIFENDFOR? 字符個數(shù)： +STR(alpa)+ 空格個數(shù)： +STR(kong)? 數(shù)字個數(shù)： +STR(num)+ 其他字符個數(shù)： +STR(others)44《 Visual FoxPro程序設(shè)計 》FOR i=1 TO len1 ch=SUBSTR(cstr,i,1) do case case upper(ch)=A and upper(ch)=Z amp。46《 Visual FoxPro程序設(shè)計 》Skip+1TEof( )循環(huán)體FScan 指針型循環(huán)語句的執(zhí)行流程47《 Visual FoxPro程序設(shè)計 》掃描型循環(huán)示例[例 811]顯示年齡大于等于 19的學(xué)生記錄。Store 0 to ou， jiDO WHILE .T. INPUT 輸入一個整數(shù)： TO a Do case case a=0 exit case mod(a,2)=0 ou=ou+1 otherwise ji=ji+1 Endcase ENDDO?“奇數(shù)個數(shù) :”,ji ， 偶數(shù)個數(shù)： ,ou也可以這樣寫：Store 0 to ou， jiDO WHILE .T. INPUT 輸入一個整數(shù)： TO a IF a=0 exit ENDIF IF INT(a/2)=a/2 ou=ou+1 ELSE ji=ji+1 ENDIFENDDO?“奇數(shù)個數(shù) :”,ji ， 偶數(shù)個數(shù)： ,ou53《 Visual FoxPro程序設(shè)計 》n 多重循環(huán)也稱循環(huán)的嵌套，所謂嵌套就是一個循環(huán)程序的循環(huán)體內(nèi)又包含著另一些循環(huán)。 素數(shù)標(biāo)志 For j=2 to k IF MOD(i,j)=0 flag=.F. amp。 主程序和子程序?qū)τ趦蓚€具有調(diào)用關(guān)系的程序文件，常稱調(diào)用程序為主程序，被調(diào)用程序為子程序。*主程序：CLEARymj=0 *初始化用于接收圓面積的變量input 請輸入圓的半徑： to bj DO sub WITH bj,ymj*帶參數(shù)調(diào)用子程序？ 圓的面積為： +STR(ymj,10,2)RETURN*子程序 PARAMETERS r,s *參數(shù)接收語句s=*r**2RETURN62《 Visual FoxPro程序設(shè)計 》 過程n 過程也是一個具有一定功能的程序段，是子程序的另一種形式。 cTest,cShow?cShowPROCEDURE NumbersOnly PARAMETERS cMixedVal,cNumOnly FOR nCnt=1 TO LEN(cMixedVal) cCharacter=SUBSTR(cMixedVal,nCnt,1) IF ISDIGIT(cCharacter) cNumOnly=cNumOnly+cCharacter ENDIF ENDFORENDPROC 和子程序不同，過程和調(diào)用程序放在一起。amp。 獲取測試字符 IF ISDIGIT(cCharacter) amp。變 量的作用域指的是 變 量在什么范 圍 內(nèi)是有效或能被 訪問 的。n 說明：聲明私有變量并隱藏上級程序的同名變量，直到聲明它的程序、過程或自定義函數(shù)執(zhí)行結(jié)束后，才恢復(fù)使用先前隱藏的變量。amp。amp。75《 Visual FoxPro程序設(shè)計 》變量作用域示例[例 817]變量狀態(tài)舉例。73《 Visual FoxPro程序設(shè)計 》n 格式： LOCAL 內(nèi)存變量表 n 功能：將 內(nèi)存變量表 指定的變量設(shè)置為局部變量。 判斷字符是否為數(shù)字 cNumOnly=cNumOnly+cCharacter amp。71《 Visual FoxPro程序設(shè)計 》自定義函數(shù)源代碼FUNCTION NumbersOnly(cMixedVal)cNumOnly= amp。67《 Visual FoxPro程序設(shè)計 》過程文件示例主程序：SET PROCEDURE TO proc*打開過程文件nSelect=0DO WHILE .T. CLEAR ?“請選擇： ” ?“1－計算圓面積 ” ?“2－計算圓周長 ” ?“0－退出 ” Input “請您選擇的功能： ” to nSelect DO CASE CASE nSelect=1 DO proc1 *調(diào)用計算圓面積過程 CASE nSelect=2 DO proc2 *調(diào)用計算圓周長過程 CASE nSelect=0 EXIT ENDCASEENDDOSET PROCEDURE TO *關(guān)閉過程文件68《 Visual FoxPro程序設(shè)計 》過程文件源代碼過程文件 ：* 計算圓面積過程 proc1PROCEDURE proc1CLEAR? “請輸入圓的半徑： ” to bj s = *bj**2? “圓的面積為： ” + STR(s,10,2)WAIT WINDOW RETURN* 計算圓周長過程 proc2PROCEDURE proc2CLEAR?“請輸入圓的半徑： ” to bjs = 2*3. 14*bj? “圓的周長為： ” + STR(s,10,2)WAIT WINDOW RETURN69《 Visual Fo