【正文】 INPUT 輸入一個(gè)整數(shù)： TO a IF a0 loop ELSE ?a ENDIFENDFOR也可以這樣 ： （ 這樣更精煉些 ）CLEARFOR i=1 TO 10 INPUT 輸入一個(gè)整數(shù)： TO a IF a0 ?a ENDIFENDFOR52《 Visual FoxPro程序設(shè)計(jì) 》EXIT語句轉(zhuǎn)向示例[例 810]輸入任意個(gè)整數(shù)，分別統(tǒng)計(jì)偶數(shù)和奇數(shù)的個(gè)數(shù)，輸入 0結(jié)束。q RETURN返回到調(diào)用它的主程序。CLEARcTest=(123)456789 0cShow=do NumbersOnly with 。amp。74《 Visual FoxPro程序設(shè)計(jì) 》n 格式： PRIVATE 內(nèi)存變量表 [ALL[LIKE|EXCEPT 通配符 ]]n 功能：定義一個(gè)過程。 隱蔽說明 LOCAL Pn4 amp。n 說明： LOCAL 與 LOCATE 前 4個(gè)字符字母相同，故不可使用縮寫。amp。63《 Visual FoxPro程序設(shè)計(jì) 》n 格式： PROCEDURE 過程名 [PARAMETERS 參數(shù)表 ] 命令序列 [RETURN]n 功能：定義一個(gè)過程。amp。2. 固定次數(shù)的循環(huán)語句適用已知循環(huán)次數(shù)的循環(huán)。amp。 33《 Visual FoxPro程序設(shè)計(jì) 》 多分支語句邏輯圖34《 Visual FoxPro程序設(shè)計(jì) 》多分支條件示例[例 87]顯示當(dāng)前季節(jié)。amp。Clearinput 請(qǐng)輸入圓的半徑： TO r amp。若按下的是不可打印字符或是單擊鼠標(biāo)，則內(nèi)存變量中存儲(chǔ)空字符。局部窗口 ： 用于顯示給定的程序、過程或方法程序中的所有變量、數(shù)組、對(duì)象以及對(duì)象成員。第 8章 結(jié)構(gòu)化程序設(shè)計(jì)主講教師：張琳制作時(shí)間： 2《 Visual FoxPro程序設(shè)計(jì) 》教學(xué)安排n 教學(xué)目標(biāo)q 掌握程序的建立、修改和運(yùn)行q 掌握結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)q 掌握過程和用戶自定義函數(shù)的使用n 重點(diǎn)分析q 分支和循環(huán)結(jié)構(gòu)、循環(huán)嵌套結(jié)構(gòu)、過程的使用n 學(xué)時(shí)安排q 6學(xué)時(shí)（ 理論 ） + 6學(xué)時(shí)（ 實(shí)踐 ）3《 Visual FoxPro程序設(shè)計(jì) 》本章內(nèi)容n 程序設(shè)計(jì)基礎(chǔ)（ 補(bǔ)充 ）n 程序文件及其編輯環(huán)境n 程序中幾種常用命令n 程序的基本控制結(jié)構(gòu)n 過程和用戶自定義函數(shù)作業(yè)4《 Visual FoxPro程序設(shè)計(jì) 》程序設(shè)計(jì) 基礎(chǔ) （ 補(bǔ)充 ）n 程序的概念q 程序是計(jì)算機(jī)完成一個(gè)預(yù)定任務(wù)而設(shè)計(jì)的一個(gè)指令序列。調(diào)試輸出窗口 ： 用來顯示活動(dòng)程序、過程或方法程序代碼的輸出結(jié)果。19《 Visual FoxPro程序設(shè)計(jì) 》p WINDOW [AT 行 ,列 ] 指定顯示的信息窗口在屏幕上的位置，若省略 AT 行 ,列 則信息窗口顯示在屏幕的右上角。amp。 輸出年齡Use amp。yue=MONTH(DATE())DO CASE CASE INLIST(yue,3,4,5) jj=春 CASE INLIST(yue,6,7,8) jj=夏 CASE INLIST(yue,9,10,11) jj=秋 CASE INLIST(yue,12,1,2) jj=冬 ENDCASEWAIT jj WINDOW35《 Visual FoxPro程序設(shè)計(jì) 》 循環(huán)結(jié)構(gòu)程序n 循環(huán)結(jié)構(gòu)q 循環(huán)結(jié)構(gòu)是指程序在執(zhí)行的過程中，程序中的某段代碼被重復(fù)執(zhí)行若干次。 len1為字符串長(zhǎng)度43《 Visual FoxPro程序設(shè)計(jì) 》FOR i=1 TO len1 ch=SUBSTR(cstr,i,1) IF upper(ch=A and upper(ch)=Z“ * 判斷字符 alpa=alpa+1 ELSE IF ch= amp。3. 掃描型循環(huán)專門針對(duì)數(shù)據(jù)表操作，如果遍歷數(shù)據(jù)表記錄時(shí)，使用它最方便。 退出 DO WHILE 循環(huán) ENDIF Endfor IF flag=.T. ?i amp。n 說明：過程作為程序的一部分時(shí)往往放在程序的最后。 初始化新字符串FOR nCnt=1 TO LEN(cMixedVal) amp。 局部變量只在當(dāng)前定義的程序中有效，一旦該程序執(zhí)行完成將自動(dòng)釋放局部變量。amp。它的作用范圍在本程序及下屬的子程序內(nèi)有效。 掃描整個(gè)字符串 cCharacter=SUBSTR(cMixedVal,nCnt,1) amp。64《 Visual FoxPro程序設(shè)計(jì) 》過程調(diào)用示例[例 814]編制過程，去除原始字符串中的非數(shù)字字符，返回只含數(shù)字的新串。 輸出素?cái)?shù) ENDIFENDFOR57《 Visual FoxPro程序設(shè)計(jì) 》 過程和用戶自定義函數(shù)n 主程序和子程序n 過程n 自定義函數(shù)n 變量的作用域本節(jié)內(nèi)容58《 Visual FoxPro程序設(shè)計(jì) 》n 調(diào)用子程序語句： DO 子程序文件名 n 返回語句： RETURN 返回語句說明：q TO MASTER 使返回時(shí)直接返回到最外層主程序，TO 程序文件名 強(qiáng)制返回到指定的程序文件。n 兩個(gè)循環(huán)語句的轉(zhuǎn)向功能示意圖：DO WHILE 條件表達(dá)式 … Loop …ENDDODO WHILE 條件表達(dá)式 … EXIT …ENDDOLOOP語句的轉(zhuǎn)向 EXIT語句的轉(zhuǎn)向 51《 Visual FoxPro程序設(shè)計(jì) 》LOOP語句轉(zhuǎn)向示例[例 89]輸入任意 10個(gè)整數(shù)，將所有正整數(shù)顯示出來。 判斷空格 kong=kong+1 ELSE IF ch=0 and ch=9 amp。n VFP提供的循環(huán)語句q 條件循環(huán)（ WHILE）q 步長(zhǎng)循環(huán)（ FOR）q 掃描循環(huán)（ SCAN）36《 Visual FoxPro程序設(shè)計(jì) 》n 格式： DO WHILE 條件表達(dá)式 語句系列 ENDDOn 功能：若 條件表達(dá)式 的值為真，執(zhí)行 語句系列 ，一旦遇到 ENDDO自動(dòng)返回 DO WHILE重新判斷條件是否成立，以決定是否繼續(xù)循環(huán)。 關(guān)閉表27《 Visual FoxPro程序設(shè)計(jì) 》 條件分支結(jié)構(gòu)n 格式： IF 條件表達(dá)式 語句系列 ENDIFn 功能：首先計(jì)算 條件表達(dá)式 的值，若其值為真，對(duì)IF與 ENDIF之間的語句順序執(zhí)行，然后執(zhí)行 ENDIF后面的語句；若其值為假，直接執(zhí)行 ENDIF后面的語句。amp。p TIMEOUT N 指定自動(dòng)等待鍵盤或鼠標(biāo)輸入的秒數(shù)，該項(xiàng)必須放在 WAIT語句的最后。15《 Visual FoxPro程序設(shè)計(jì) 》 Visual FoxPro編程特點(diǎn) n 對(duì)于一般的變量，建議使用規(guī)則： T