結(jié)構(gòu)化程序設(shè)計ppt課件-資料下載頁
2025-04-29 03:35本頁面
【正文】 nly FOR nCnt=1 TO LEN(cMixedVal) cCharacter=SUBSTR(cMixedVal,nCnt,1) IF ISDIGIT(cCharacter) cNumOnly=cNumOnly+cCharacter ENDIF ENDFORENDPROC 和子程序不同，過程和調(diào)用程序放在一起。65《 Visual FoxPro程序設(shè)計 》n 過程文件：多個過程或自定義函數(shù)可以放在一起，組成過程文件，擴展名為 .PRG，其基本形式如下： PROCEDURE 過程名 1命令序列 [ENDPROC]PROCEDURE 過程名 2命令序列 [ENDPROC]…66《 Visual FoxPro程序設(shè)計 》n 過程文件的打開命令：SET PROCEDURE TO 過程文件名 n 過程的調(diào)用： DO 過程名 [IN 過程文件名 ]n 過程文件的關(guān)閉：SET PROCEDURE TO [例 815]主程序可用來計算圓的面積和周長，其中求圓面積和周長由過程 proc1和 proc2實現(xiàn)，過程定義在過程文件。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 FoxPro程序設(shè)計 》n 格式： FUNCTION 函數(shù)名 [PARAMETERS 參數(shù)表 ] 語句序列 RETURN [表達式 ]n 功能：定義一個用戶自定義函數(shù)。n 說明：q 如果使用接收參數(shù)語句 PARAMETERS ，必須放在 FUNCTION后第一個語句。q RETURN用來返回函數(shù)值，若缺省，返回 .T.。 自定義函數(shù)70《 Visual FoxPro程序設(shè)計 》自定義函數(shù)示例調(diào)用函數(shù)的主程序：CLEARcTest= (123)456789 0 amp。amp。 原始字符串? 轉(zhuǎn)換前的串： ， ctest? 轉(zhuǎn)換前的串： , NumbersOnly(cTest) amp。amp。調(diào)用函數(shù)[例 816]編制函數(shù)，去除原始字符串中的非數(shù)字字符，返回只含數(shù)字的新串。71《 Visual FoxPro程序設(shè)計 》自定義函數(shù)源代碼FUNCTION NumbersOnly(cMixedVal)cNumOnly= amp。amp。 初始化新字符串FOR nCnt=1 TO LEN(cMixedVal) amp。amp。 掃描整個字符串 cCharacter=SUBSTR(cMixedVal,nCnt,1) amp。amp。 獲取測試字符 IF ISDIGIT(cCharacter) amp。amp。 判斷字符是否為數(shù)字 cNumOnly=cNumOnly+cCharacter amp。amp。 復(fù)制數(shù)字字符 ENDIFENDFORRETURN cNumOnly amp。amp。 返回只含數(shù)字的新串 ENDFUNC 72《 Visual FoxPro程序設(shè)計 》 變量作用域n 格式： PUBLIC 內(nèi)存變量表 n 功能：將 內(nèi)存變量表 指定的變量設(shè)置為公共變量，并將這些變量的初值賦以 .F.。n 說明：程序終止執(zhí)行時公共變量不會自動清除，只能用 RELEASE 命令來清除。變 量的作用域指的是 變 量在什么范 圍 內(nèi)是有效或能被 訪問 的。 在任何模塊中都可使用的變量稱為全程變量，全程變量必須先定義后使用。73《 Visual FoxPro程序設(shè)計 》n 格式： LOCAL 內(nèi)存變量表 n 功能：將 內(nèi)存變量表 指定的變量設(shè)置為局部變量。n 說明： LOCAL 與 LOCATE 前 4個字符字母相同，故不可使用縮寫。 局部變量只在當前定義的程序中有效，一旦該程序執(zhí)行完成將自動釋放局部變量。 在程序中未加任何說明而直接定義使用的內(nèi)存變量。它的作用范圍在本程序及下屬的子程序內(nèi)有效。74《 Visual FoxPro程序設(shè)計 》n 格式： PRIVATE 內(nèi)存變量表 [ALL[LIKE|EXCEPT 通配符 ]]n 功能：定義一個過程。n 說明：聲明私有變量并隱藏上級程序的同名變量，直到聲明它的程序、過程或自定義函數(shù)執(zhí)行結(jié)束后，才恢復(fù)使用先前隱藏的變量。 當私有變量和上層模塊的變量同名時，為區(qū)分二者是不同的變量，需要采用暫時屏蔽上級模塊變量的方法，使得子程序中的變量與上層程序中的變量同名而不同值。75《 Visual FoxPro程序設(shè)計 》變量作用域示例[例 817]變量狀態(tài)舉例。CLEAR MEMORY amp。amp。 清除內(nèi)存變量CLEARPUBLIC Pn1,Pn3 amp。amp。 全局變量DISPLAY MEMORY LIKE Pn?DO Proc1* 過程 1PROCEDURE Proc1 Pn2=Visual FoxPro amp。amp。 私有變量 DISPLAY MEMORY LIKE Pn? 76《 Visual FoxPro程序設(shè)計 》變量作用域示例 DO Proc2 DISPLAY MEMORY LIKE Pn?ENDPROC* 過程 2PROCEDURE Proc2 PRIVATE Pn1 amp。amp。 隱蔽說明 LOCAL Pn4 amp。amp。 局部變量 Pn3=is ten years Pn2=snnay Pn4=abc DISPLAY MEMORY LIKE Pn?ENDPROC77《 Visual FoxPro程序設(shè)計 》作業(yè)n 實驗六n 課后習(xí)題
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1