程序設(shè)計基礎(chǔ)課件

F

■????'

應(yīng)用臺港

2010-4-271

彩，本章主要內(nèi)容

?程序設(shè)計的基本概念

?程序文件建立與運(yùn)行

?三種程序控制結(jié)構(gòu)

?多模塊程序

?程序調(diào)試

2010-4-272

:計的基本概念?廣:

一、VFP的工作方式

?命令工作方式（或交互工作方式）

通過菜單選擇的方法或在命令窗口中逐條輸入

命令的方法來執(zhí)行的。

?程序工作方式

根據(jù)解決實(shí)際問題的需要，將一系列符合

VisualFoxPro要求的命令按一定的邏輯結(jié)構(gòu)編排

成一個完整的應(yīng)用程序，然后輸入到計算機(jī)內(nèi)自動

地、連續(xù)地加以執(zhí)行。

2010-4-273

的基本概念

「對于制作簡單短小的應(yīng)用程序;

使用過程編程方式比較容易，

二、VFP的編程方印同時，這也是面向?qū)ο缶幊谭?/p>

式的基礎(chǔ)。本章重點(diǎn)介紹面向

面向過程編程方式過程的程序設(shè)計。

用結(jié)構(gòu)化編程語言來編寫結(jié)構(gòu)化的程序，它把

一個復(fù)雜的程序分成較小的過程，每個過程可以單

獨(dú)進(jìn)行調(diào)試。

?面向?qū)ο缶幊谭绞?/p>

用面向?qū)ο蟮募夹g(shù)編程，它把編程工作主要集

中在描述的對象上，程序是事件驅(qū)動的，在執(zhí)行過

再設(shè)計的基本概念

三、程序設(shè)計的步驟

＞分析問題或任務(wù)，總結(jié)或抽象出問題的數(shù)學(xué)模型

＞根據(jù)數(shù)學(xué)模型確定解決問題的算法思想

＞確定要建立的數(shù)據(jù)表或數(shù)據(jù)庫的基本結(jié)構(gòu)及其數(shù)據(jù)表之間

的關(guān)系

＞畫出茬序流程圖

＞編寫程序，實(shí)現(xiàn)功能要求，并在計算機(jī)上調(diào)試通過

＞用典型數(shù)據(jù)對所編寫的程序進(jìn)行測試，驗(yàn)證程序的可靠性

＞編寫使用說明書，整理有關(guān)資料，進(jìn)行總結(jié)

2010-4-275

程序文件建立與運(yùn)行

■■I*?：

?程序文件

程序是由命令組成的ASCH碼文本文件，所以

程序文件也稱為命令文件。該文件可用任何文本編

輯器或字處理軟件來建立。

?程序文件擴(kuò)展名

源文件的擴(kuò)展名是.PRG,程序在運(yùn)行時，會產(chǎn)

生主文件名與.PRG程序主文件名相同，擴(kuò)展名

為.FXP的目標(biāo)文件。

2010-4-276

II11，'叫*ah泉已土壬程序文件建立

1…一■■U1,■fl■

建立程序最簡單的方法是用系統(tǒng)本

身提供的編輯器。VFP有2種方式進(jìn)入程

序編輯器窗口：菜單方式和命令方式

2010-4-277

建立程序文件

用菜單建立程序的步驟為:

＞單擊菜單“文件”f“新建”命令或者單擊常用

工具欄的“新建”按鈕，打開“新建”對話框。

＞打開“程序1”的程序編輯新窗口。

2010-4-278

■

fcmf，令療式建立程序文件

格式：MODIFYCOMMAND[〈程序文件名＞]|?

功能：打開程序編輯窗口，從中可以修改或

創(chuàng)建程序文件。

幾點(diǎn)說明：

?〈程序文件名）：指定修改或創(chuàng)建的程序文件名。

?如果用MODIFYCOMMAND?,則出現(xiàn)“打開”對

話框，如圖所示。

2010-4-279

在用命令建立程序文件時，最好在命令后加上程

序文件名，這樣可以直接創(chuàng)建或修改用戶給出的程

序文件。

建好的文件將保存在“默認(rèn)目錄”指定的文件夾

下，默認(rèn)的擴(kuò)展名是.PRG。如果需要保存在其它文

件夾下，還可在命令中指定路徑。如：

MODICOMMD:\excercise\example

區(qū)程序輸入與保存

，二題I索軸】州II

［例6-1］在程序編輯窗口輸入如下6條命令。

CLEAR&&將屏幕輸出窗口內(nèi)容清空

a=l2&&將數(shù)值12賦值給變量a

b=18&&將數(shù)值18賦值給變量b

cna+b&&將變量a與b和計算出來，賦值給變量c

?a,b,c&&輸出變量a、b、c的值

RETURN&&表示程序結(jié)束

2010-4-2711

本章中每個例題的程序

名可以按照CX+例題編號

來命名，例如例6-1可以用

cxl,例6—2可以用cx2,其

他例題依此類推。用戶也

可以自己設(shè)定程序名

6;工2程序運(yùn)行

?菜單方式運(yùn)行程序

單擊菜單“程序”f“運(yùn)行”命令，打開“運(yùn)

行”對話框。選定定要執(zhí)行的程序文件，如選擇：

CX1,單擊“運(yùn)行”按鈕，即可運(yùn)行程序。

『’出*7k6;1.2程序運(yùn)行

的網(wǎng)閭?汕!!!川1麗咖1111111州1出即

?命令方式運(yùn)行程序

格式：DO＜程序文件名》

功能：將指定的程序文件調(diào)入內(nèi)存并運(yùn)行。

如在命令窗口里輸入：DOcxl

將在屏幕輸出程序計算結(jié)果:

121830

2010-4-2714

『’出籍7k三：6工2程序運(yùn)行

、匕［diRU：innll

?單擊常用工具欄上“！”命令按鈕執(zhí)行該程序

在程序打開并且為當(dāng)前程序的情況下，

單擊常用工具欄上“！”命令按鈕可執(zhí)行該程

序。

2010-4-2715

ffl

在程序執(zhí)行過程中，如果程序出現(xiàn)運(yùn)行錯誤或用戶按下了“Esc”鍵，將

彈出“程序錯誤”對話框，如圖所示。

單擊“掛起”按鈕，可暫時有

了程序錯設(shè)

止程序的運(yùn)行，可在命令窗口

里輸入命令：RESUME,或單擊單擊“幫助”命

***中斷***菜單“程序”一“繼續(xù)執(zhí)行”令按鈕可提示相

命令可繼續(xù)執(zhí)行程序O關(guān)幫助信息。

單擊“取消”

按鈕可取消單擊“忽略”命令

程序的執(zhí)行。按鈕忽略程序的錯

y

誤繼續(xù)執(zhí)行程序。

2010-4-27

h添已上售程序輔助命令

Fin…一■山

以前介紹的所有VisualFoxPro命令都可

以用在程序設(shè)計中。另外VisualFoxPro還提

供了一些輔助命令，這些命令能使程序更好

地閱讀和有效地運(yùn)行。本小節(jié)介紹：

?程序注釋命令

?程序結(jié)束命令

?信息對話框函數(shù)MESSAGEBOX

?運(yùn)行環(huán)境設(shè)置命令

2010-4-2717

II叫*a麋*程序注釋命令

VisualFoxPro提供了3種注釋命令:

格式1：NOTE〈注釋內(nèi)容）

格式2：*＜注釋內(nèi)容》

功能：使NOTE或*后面的內(nèi)容成為注釋內(nèi)容。

格式3：[＜命令＞]&&＜注釋內(nèi)容》

功能：〈注釋內(nèi)容〉對&&左面的命令做出解釋或給

出運(yùn)行結(jié)果，又稱為行尾注釋命令。

2010-4-2718

II11，'叫*afe*T程序結(jié)束命令

格式1：RETURN

功能：返回到上一級模塊。如果本程序是以菜單方

式或在命令窗口中調(diào)用執(zhí)行的，則返回到命令交互

狀態(tài)。

格式2：CANCEL

功能：終止程序運(yùn)行，清除程序中的私有變量，返

回到命令窗口。

格式3：QUIT

功能：關(guān)閉VisualFoxPro,j

2010-4-2719

函數(shù)MESSAGEBOX

MessageBox函數(shù)用于顯示一個信息對話框，可以在

程序運(yùn)行過程中，顯示一些信息，例如提示信息、錯誤

信息等。其構(gòu)成如圖所示。信息對話框的“標(biāo)'

題”部分。

____7

錯誤信息X信息對話框的

“提示信息”部

輸入的用戶名或密碼錯誤，語重新輸入

信息對話框y

的“圖標(biāo)”定,

部分。

<______y

信息對話框的

“按鈕”部分。

2010-4-2720

湛雙話框函數(shù)MESSAGEBOX

格式：

MESSAGEBOX（〈字符表達(dá)式1＞[,＜數(shù)值表達(dá)式＞[,〈字符表達(dá)式2＞]]）

功能：供用戶定義信息對話框，按下相應(yīng)的按鈕返

回一個數(shù)值。

說明：

?V字符表達(dá)式1＞用于指定在對話框中顯示的信息

文本。

?V數(shù)值表達(dá)式〉用于根據(jù)表6?1的內(nèi)容設(shè)置對話框中

的按鈕、圖標(biāo)和默認(rèn)按鈕，缺省該參數(shù)表示取0。

O戲話框函數(shù)MESSAGEBOX

表6-1照拒38變￡x函數(shù)中按鈕、圖標(biāo)設(shè)置表

數(shù)值一對話框按鈕一

0。僅有“確定”按鈕一

1-“確定”和“取消"按鈕一

2P“放棄”、“重試”和“卷、略”按鈕小

3-“是〃、“否”和“取消”按鈕一

4c“是”和"否"按鈕/

1“重試”和“取消"按鈕一

16P“停止”圖標(biāo)/

321

圖標(biāo)^

48一驚嘆號一

64d信息(i)圖標(biāo)一

第1個按鈕。

默認(rèn)按鈕。256-第2個按鈕Q-----;

512第3個按鈕戶**'

2010-4-2722

.對話框函數(shù)MESSAGEBOX

?〈字符表達(dá)式2＞用于指定對表6-2返回值表P

話框標(biāo)題欄的顯示文本。返回數(shù)值一按下按鈕一

缺邕該參數(shù)表示在標(biāo)題欄12確定2

顯示"MicrosoftVisual取消2

FoxPro”。放棄2

?函數(shù)值返回一個數(shù)值，用重試2

戶可根據(jù)操作時按下的按忽略2

鈕來獲得相應(yīng)的返回值，

是，

返回值見表6-2,用戶編程

否.

時根據(jù)返回值來設(shè)置動作。

［例6-3］在信息對話框中使用2個按鈕“是”和“否”，

使用“問號”圖標(biāo)，默認(rèn)按鈕為第二個按鈕，顯示“真

的要退出系統(tǒng)嗎？”信息，對話框標(biāo)題為“提示信息”。

在命令窗口里輸入：

a=MESSAGEBOX（〃真的要退出系統(tǒng)嗎？。4+32+256,〃提示信息〃）

就會顯示如圖所示的信息對話框。

單擊“是”按鈕，返回值為6,

單擊“否”按鈕，返回值為7。

2010-4-27

二運(yùn)行環(huán)境設(shè)置命令Q

fcmf■■

同WHIM蹄

在程序中運(yùn)用一些環(huán)境設(shè)置命令，可使程

序正常而高效地運(yùn)行。運(yùn)行環(huán)境設(shè)置命令大

多數(shù)是由SET命令設(shè)置的，它一般有ON和OFF

兩個選項(xiàng)，當(dāng)為ON狀態(tài)時，設(shè)置有效，為OFF

狀態(tài)時設(shè)置無效。有的SET命令用TO指定設(shè)置

值。常用的環(huán)境設(shè)置命令如表6-3所示。

2010-4-27

表6-3常用運(yùn)行環(huán)境設(shè)置命令d

命令"功能。

SETTALKON/OFFP設(shè)置受控命令執(zhí)行的結(jié)果在屏幕上顯示與否。

SETSTATUSON/OFFP設(shè)置屏幕下端的狀態(tài)行顯示與否「

SETSAFETYON/OFFP設(shè)置進(jìn)行文件重寫或覆蓋操作時是否有提示。

SETHEADINGON/OEF^設(shè)置執(zhí)行LIST或DISPLAY時是否顯示字段名Q

SETESCAPEON/OFFP設(shè)置按“ESC”鍵時是否終止程序的執(zhí)行」

SETCONSOLEON/OFF"設(shè)置程序中誕盤輸入的信息是否發(fā)送到屏幕上。

怔日期年份按4位顯示與否

SETCENTURYON/OFFP

SETPRINTERON/OFF^設(shè)置輸出的結(jié)果是否送打EU機(jī)口

SETSTRICTDATETO0。設(shè)置通常日期格式顯示。

flnui[.，交互式輸入命令f

根據(jù)解決實(shí)際問題的需要，往往在程序運(yùn)

行的過程中，由用戶向程序輸入一些數(shù)據(jù)或

信息，完成這種功能的一些命令稱為交互式

輸入命令。VisualFoxPro提供了多種交互式

輸入命金。本小節(jié)介紹三種命令：

?ACCEPT

?INPUT

?WAIT

2010-4-2727

!數(shù)據(jù)輸入命令A(yù)CCEPT

格式：ACCEPT［〈提示信息〉］TO〈內(nèi)存變量》

功能：暫停程序的執(zhí)行，等待用戶輸入一個字符串給變量。

說明：

(1)［〈提示信息＞］,是在屏幕上出我的提示信息。它可以是字

符串：此時必須用雙引號將其括起親，也可以是字符型內(nèi)存交

量，該內(nèi)薦變量必須預(yù)先減值。

(2)用戶在鍵盤輸入的任何字符信息都被賦值給“內(nèi)存變量”。

輸入的數(shù)據(jù)將作為字符型數(shù)據(jù)處理，不需要定界符括起來，如

果輸入了定界符，則這些定界符也被作為輸入字符的一部分。

(3)輸入比需要的信息后，按“Enter”鍵結(jié)束本命令的輸入。

口果沒有輸入其他信息，只按回車鍵，將把一個空字符串賦值

o

y

2010-4-2728

［例6-4］編一程序，將人事數(shù)據(jù)表打開，在程序運(yùn)

行中輸入人員姓名，顯示指定姓名的人員記錄。

但

NOTE該程序用于從人事數(shù)據(jù)表中查找用戶指定姓名的人員信息。

CLEAR

USErsb

ACCEPT〃請輸入要查找的姓名：〃TOname

LOCATEFORALLTRIM（姓名）=name

DISPLAY

RETURN

:達(dá)式輸入命令[NPUT

格式：INPUT[＜提示信息＞]T0〈內(nèi)存變量》

功能：暫停程序的執(zhí)行，接受用戶輸入合法的表達(dá)式并將表

達(dá)式的值賦值給內(nèi)存變量。

說明：

(1)[＜提示信息＞],同“ACCEPT”命令中的[＜提示信息＞]。

(2)用戶可輸入任何一個合法的數(shù)值型(N)、字符型

(C)、日期型(D)、邏輯型(L)表達(dá)式，系統(tǒng)先計算表

達(dá)式的值并將該值賦值給內(nèi)存變量。

(3)如果輸入字符串信息，則必須加上雙引號或單引號定

界符，如〃ABC〃。

(4)按“Enter”鍵結(jié)束輸入，如果輸入的是非法表達(dá)式，

系統(tǒng)將提示重新輸入。

2010-4-2730

［例6-5］已知圓半徑為r,求圓面積s(要求四舍五入保田

三位小數(shù))。

分析：假設(shè)圓的半徑為r,則計算圓面積s的公式為：s=〃r2,

計算圓面積公式的VisualFoxPro表達(dá)式為：PI()*r^2。程

序代碼如下：

*該程序用于計算用戶指定半徑的圓的面積。

CLEAR

INPUT〃請輸入圓半徑片〃TOr

s=R0UND(PI()*r^2,3)&&PI0為圓周率函數(shù)％,ROUND函數(shù)為四舍五入函數(shù)

?〃該圓半徑為：〃,

?〃該圓面積為：〃,S

RETURN

2010-4-2731

格式：WAIT[〈提示信息＞][TO＜內(nèi)存變量＞]

[WINDOWS[AT＜行坐標(biāo)＞，＜列坐標(biāo)＞]][TIMEOUTC等

卷秒數(shù)＞][NOWAIT]

功能：暫停程序，用戶按任意鍵或者時間超過等待

的秒數(shù)后，程序繼續(xù)執(zhí)行。如果包含[TO〈內(nèi)存變量

＞]短語，將用戶所按鍵盤字符賦值給指定的內(nèi)存變

量。

2010-4-27

(1)[〈提示信息＞],指定要顯示的自定義信息。若

省略該參數(shù)，則VisualFoxPro顯示默認(rèn)的信息

“按任意鍵繼續(xù)……”。如果該參數(shù)為空字符，則不

顯示信息。

(2)[WINDOWS]：在VisualFoxPro主窗口右上角

的系統(tǒng)信息窗口中，顯示提示信息。如果指定[AT＜

行坐標(biāo)》,＜列坐標(biāo)＞],則該窗口在指定屏幕坐標(biāo)位置

顯不。

(3)TIMEOUT〈等待秒數(shù))：指定在執(zhí)行WAIT命令

之后，程序暫停的時間，〈等待秒數(shù)＞參數(shù)指定等待的

時間秒數(shù)。

(4)NOWAIT子句指在前述指定的Windows窗口中顯示

WAIT信息的同時，程序繼續(xù)執(zhí)行而不暫停。

%p幅IT使用舉例

下列命令將在屏幕16行、16列位置處顯示一

含有提示信息的小窗口，如圖所示，此時單擊

鼠標(biāo)按鍵、按下鍵盤上任意一個按鍵或小窗口

在屏幕上停留7秒后，從屏幕上消失。

WAIT”請稍后,程序?qū)⒗^續(xù)執(zhí)行......〃WINDOWSAT16,16TIMEOUT7

話稍后，程序?qū)⒗^續(xù)執(zhí)行.....

II11，'叫*a器―67聲程序控制結(jié)構(gòu)

結(jié)構(gòu)化程序包括三種基本結(jié)構(gòu)，即

?順序結(jié)構(gòu)

?選擇結(jié)構(gòu)

?循環(huán)結(jié)構(gòu)

2010-4-2736

脛，621順序結(jié)構(gòu)

順序結(jié)構(gòu)是程序設(shè)計中最基本的

結(jié)構(gòu)，該結(jié)構(gòu)按照程序命令出現(xiàn)的

先后順序依次執(zhí)行。事實(shí)上，如果

不進(jìn)行特殊說明，程序中的命令就

自動按其前后排列順序執(zhí)行。

2010-4-2737

［例6-6］假設(shè)我國2007年國民生產(chǎn)總值為

200,000億元，按每年平均10%的速度遞增，編程計

算到2020年我國國民生產(chǎn)總值將會達(dá)到多少？

國民生產(chǎn)總值計算公式為：未來值P1=初值P0X

(1+速度a)時間間隔n

這里，初值p0=200000億元，速度為a=0.1,

時間間隔n=2020-2007=13,Pl為未來待計算的值。

VisualFoxPro計算表達(dá)式為：pl=p0*(l+a)"n。

該程序流程圖如圖所示。

2010-4-2738

程序代碼如下:

CLEAR

p0=200000

a=0.1

n=13

pl=pO*(l+a)*n

?〃我國2007年的國民生產(chǎn)總值為:”,p0,〃億元。

?〃我國2020年的國民生產(chǎn)總值為:〃,pl,〃億元。

RETURN

2010-4-27

『’出耀7k日順序結(jié)構(gòu)程序舉例2

［例6-7］在人事數(shù)據(jù)表中，根據(jù)從屏幕

上輸入的職工姓名來查詢該職工的姓名、性

別、職稱、出生日期、工作日期。

用ACCEPT命令輸入和?命令輸出，程序代

碼如下。

2010-4-2740

則一構(gòu)程序舉例2

CLEAR

USErsb

ACCEPT”請輸入被查詢職工的姓名：〃TOname

LOCATEFORALLTRIM（姓名）=name

?+姓名

性

?+別

職

?+稱

?〃出生日期：〃+DTOC（出生日期）

?”工作日期：〃+DTOC（工作日期）

USE

RETURN

2010-4-27

『’出焉7k￡*6丁去2選擇結(jié)構(gòu)

選擇結(jié)構(gòu)，是一種常用的基本結(jié)構(gòu)，是根

據(jù)所給條件是否為真，選擇執(zhí)行某一分支的

相應(yīng)操作。按照選擇結(jié)構(gòu)執(zhí)行路徑的多少，

可分為：

?簡單分支結(jié)構(gòu)

?雙分支選擇結(jié)構(gòu)

?多分支選擇結(jié)構(gòu)

2010-4-2742

格式：

IF〈條件》

［命令序列］

ENDIF

功能：根據(jù)條件的邏輯值來確定是否執(zhí)行［命

令序列］o

芝結(jié)構(gòu)說明金

Him出口:川HI

(1)根據(jù)〈條件》的邏輯值進(jìn)行判斷。如果〈條件〉的

邏輯值為.T.，就依次執(zhí)行［命令序列］,執(zhí)行完后就

轉(zhuǎn)去執(zhí)行ENDIF之后的命令。如果＜條件》的邏輯值

為.F.，貝!|IF＜條件＞和ENDIF之間的所有命令都不執(zhí)行,

而直接轉(zhuǎn)到ENDIF之后的命令。

(2)IF語句和ENDIF語句必須成對出現(xiàn)，且各占一行。

(3)為了程序閱讀方便，便于以后維護(hù)修改，建議

對于［命令序列］部分采取向右蟬隼塢

2010-4-2744

工簡單分支結(jié)構(gòu)舉例1

L___?！?/p>

［例6-8］鐵路托運(yùn)行李，按規(guī)定每張客

票托運(yùn)行李不超過50公斤時，每公斤0.25元,

如超過50公斤，超過部分按每公斤0.45元計

算。編寫一個程序，把行李重量輸入計算機(jī),

計算出運(yùn)費(fèi)，并打印出付款清單。

問題分析：設(shè)行李重量為W公斤，應(yīng)付運(yùn)

費(fèi)為P元，則運(yùn)費(fèi)公式為：

當(dāng)WW50,p=0.25Xw

當(dāng)W>50,p=50X0.25+(w-50)XO.45

2010-4-27

該問題計算機(jī)程序框圖如右圖所示。

程序代碼如下：

NOTE計算鐵路托運(yùn)行李費(fèi)，W為行李重量，P為運(yùn)費(fèi)。

CLEAR

INPUT〃請輸入行李重量：〃TOw

P=0.25*w

IFw>50

P=50*0.25+(w-50)*0.45

ENDIF

?〃行李重量為：〃,w,〃公斤〃

?〃應(yīng)付運(yùn)費(fèi)為：〃,P,〃元〃

RETURN

2010-4-27

［例6-9］程序運(yùn)行時，從鍵盤輸入兩個

數(shù)a、b,如果a〉b,則將二者的數(shù)據(jù)交換。

程序代碼如下:

2010-4-2747

CLEAR

INPUT〃請輸入給變量a的數(shù)值：〃TOa

INPUT”請輸入給變量b的數(shù)值：〃TOb

?〃a與b交換之前的值分別是：〃+ALLTRIM(STR(a,10))+〃,〃+ALLTRIM(STR(b,10))

IFa>b

c=a&&c為中間變量

a=b

b=c

ENDIF

?〃a與b交換之后的值分別是：〃+ALLTRIM(STR(a,10))+〃,〃+ALLTRIM(STR(b,10))

RETURN

2010-4-2748

II11，'叫*a專h二戛聚分支選擇結(jié)構(gòu)

格式：

IF〈條件》

［命令序列1］

ELSE

［命令序列2］

ENDIF

功能：根據(jù)條件的邏輯值來決定程序執(zhí)行［命

令序列1］還是［命令序列2L

2010-4-2749

(1)如果〈條件》的邏輯值為.T.，就執(zhí)行[命令序

列1],執(zhí)行完后就轉(zhuǎn)到執(zhí)行ENDIF之后的命令。如

果〈條件》的邏輯值為.F.，就執(zhí)行[命令序列2],完

成后，轉(zhuǎn)去執(zhí)行ENDIF之后的命令。

(2)ELSE語句單獨(dú)占一行，IF語句和ENDIF語句必

須成對出現(xiàn)，且各占一行。

2010-4-2750

分支選擇結(jié)構(gòu)舉例

［例6-10］設(shè)出租車不超過2公

里時一律收費(fèi)7元錢，超過時則超過

部分每公里加收2.6元。試根據(jù)里程

數(shù)編程計算并顯示出應(yīng)付車費(fèi)（用

雙分支選擇結(jié)構(gòu)編程）。

程序代碼如下:

2010-4-2751

CLEAR

INPUT〃請輸入里程數(shù)：〃TOk

IFk<=2

cf=7

ELSE

cf=7+(k-2)*2.6

ENDIF

?”里程為：〃,k,〃公里〃

?"車費(fèi)為：",cf,〃元〃

RETURN

2010-4-2752

可分支結(jié)構(gòu)嵌套

在分支結(jié)構(gòu)的《命令序列》中，可以

包含任何VisualFoxPro命令語句，也可

以包括另夕|"一^個或幾個合法的分支結(jié)構(gòu)

語句，也就是說分支結(jié)構(gòu)可以嵌套。對

于嵌套的分支結(jié)構(gòu)語句，一定注意內(nèi)外

層分支結(jié)構(gòu)層次分明，即注意各個層次

的IF…ELSE…ENDIF語句的配對情況。

2010-4-2753

支結(jié)構(gòu)嵌套舉例

［例6-11］永立公司對銷售人員的報酬計算

方法如下：每月銷售10萬元（含10萬元）以下者,

只得基本工資1000元；每月銷售10萬元以上至30

萬元（含30萬元）者，則超過10萬元以上部分按

2%提成；每月銷售30萬至50萬（含50萬元）者，

超過30萬元部分按5%提成；超過50萬元部分按

10%提成。以上各個級別的計算實(shí)行累加計算。

編程按輸入每個銷售人員編號和銷售額，計算每

個銷售人員的報酬（報酬結(jié)果按四舍五入規(guī)則取

整）。

2010-4-2754

支結(jié)構(gòu)嵌套舉例

■,N?L

編程思路：為了編程方便，先將每個級別

23……i…H3g第售額的多少用

的酬19

f=l學(xué)一碼如下:

O

CLEAR

ACCEPT”銷售員編號：“TOsalenumber

INPUT〃銷售額：〃TOsalevolume

payl=1000

pay2=pay1+ROUND((300000-100000)*0.02,0)

pay3=pay2+R0UND((500000-300000)*0.05,0)

■■

支結(jié)構(gòu)嵌套舉例

Wt

IFsalevolume<=100000

pays=payl

ELSE

IFsalevolume<=300000

pays=payl+ROUND((salevolume-100000)*0.02,0)

ELSE

IFsalevolume<=500000

pays=pay2+R0UND((salevolume-300000)*0.05,0)

ELSE

pays=pay3+R0UND((salevolume-500000)*0.1,0)

ENDIF

ENDIF

ENDIF

?salenumber+”號銷售員工作報酬：”+STR(pays,6,0)+“元?！?/p>

RETURN

一

2010-4-27■56

貳三第分支選擇結(jié)構(gòu)

格式:

DOCASE

CASE〈條件1>

〈命令序列1>

CASE〈條件2>

<命令序列2>

CASE<條件n>

〈命令庠列n>

[OTHERWISE

〈命令序列n+l>]

ENDCASE

2010-4-2757

選擇結(jié)構(gòu)說明

(1)多分支選擇結(jié)構(gòu)執(zhí)行的過程是：系統(tǒng)依次判斷各

〈條件》是否滿足，若某一〈條件＞為.工，就執(zhí)行該＜條

件》下的〈命令序列》，執(zhí)行后不再判斷其它〈條件》，

而轉(zhuǎn)去執(zhí)行ENDCASE后面的第一條命令。如果沒有一個

＜條件＞為.T.,就執(zhí)行OTHERWISE后面的[命令序列n+1],

直到ENDCASE；如果沒有OTHERWISE,則不作任何操作

就轉(zhuǎn)向ENDCASE之后的第一條命令。

(2)DOCASE語句和ENDCASE語句必須成對出現(xiàn)，各占

一行。

2010-4-27

(3)多分支選擇結(jié)構(gòu)中各CASE語句后的＜條件》是按

其先后順序判斷執(zhí)行的，因此對實(shí)際問題進(jìn)行編程

時，應(yīng)認(rèn)真考慮各個條件排列的先后順序。

2010-4-27

［例6-12］用多分支選擇結(jié)構(gòu)編程計算［例

6-11］o程序代碼如下:

CLEAR

ACCEPT”銷售員編號：“TOsalenumber

INPUT〃銷售額：〃TOsalevolume

payl=1000

pay2=payl+R0UND((300000-100000)*0.02,0)

pay3=pay2+R0UND((500000-300000)*0.05,0)

2010-4-27

DOCASE

CASEsalevolume<=100000

pays=payl

CASEsalevolume<=300000

pays=payl+ROUND((salevolume-100000)*0.02,0)

CASEsalevolume<=500000

pays=pay2+R0UND((salevolume-300000)*0.05,0)

OTHERWISE

pays=pay3+R0UND((salevolume-500000)*0.1,0)

ENDCASE

?salenumber+”號銷售員工作報酬:“+STR(pays,6,0)+“元?！?/p>

RETURN

--------------------------

II11，'叫*a7±丁6：雋3循環(huán)結(jié)構(gòu)

在程序設(shè)計中，有時需要從某處開始

有規(guī)律地反復(fù)執(zhí)行某些類似的操作，這

些類似的操作一般用循環(huán)結(jié)構(gòu)程序設(shè)計

來解決。在VisualFoxPro中，提供了3

種循環(huán)結(jié)構(gòu)，即：

?當(dāng)型循環(huán)結(jié)構(gòu)

?步長型循環(huán)結(jié)構(gòu)

?表掃描型循環(huán)結(jié)構(gòu)/

2010-4-2762

fcmf喧I當(dāng)型循環(huán)結(jié)構(gòu)

格式：

DOWHILE〈條件〉

［命令序列］

ENDDO

功能：根據(jù)＜條件》是否滿足來決定是否執(zhí)行

［命令序列］o

2010-4-2763

(1)當(dāng)型循環(huán)執(zhí)行的過程是：根據(jù)〈條件〉的邏輯值，進(jìn)

行判斷。如果〈條件》的邏輯值為.「，則執(zhí)行DOWHILE和

ENDDO之間的［命令序列］(也稱為循環(huán)體)，當(dāng)［命令序列］

包含的所有命令執(zhí)行完畢后，程序自動返回到DOWHILE語

句，每執(zhí)行一遍就判斷一次DOWHILE語句中的＜條件＞。如

果＜條件》仍然為則繼續(xù)執(zhí)行DOWHILE和ENDDO之間的

［命令序列］,直到〈條件》的邏輯值為.F.，結(jié)束循環(huán)，轉(zhuǎn)

去執(zhí)行ENDDO之后的第一條命令。

(2)DOWHILE和ENDDO語句應(yīng)配對使用，各占一行。

2010-4-27

(3)在［命令序列］的適當(dāng)位置可以放置EXIT和LOOP

語句，用以對循環(huán)過程作特殊處理。EXIT的功能是：

結(jié)束循環(huán)命令，轉(zhuǎn)去執(zhí)行ENDDO之后的第一條命令。

LOOP語句的功能是：終止本次循環(huán)命令，返回到循環(huán)

入口。EXIT和LOOP語句只能在循環(huán)結(jié)構(gòu)中使用，并且

常常附加條件加以限制。

(4)在命令序列中可以嵌套IF???ENDIF、DO

CASE…ENDCASE、DOWHILE…ENDDO、FOR…ENDFOR、

SCAN???ENDSCAN等程序結(jié)構(gòu)。

［例6-13］雞兔同籠問題。設(shè)雞和兔共有頭38個,

腳138個，問雞和兔各為多少只？

問題分析：設(shè)雞為cocks只，兔為rabbits只，則

有：cocks+rabbits=38；2*cocks+4*rabbits

=138o可令雞和兔的頭數(shù)之和或者腳數(shù)之和為一變

量，如本題令二者腳數(shù)之和foots為變量，開始令

cocks=0,foots=0,用循環(huán)進(jìn)行判斷是杏

foots<>138,如果是，則進(jìn)行如下運(yùn)算：

cocks二cocks+1；rabbits=38-cocks；

foots=2*cocks+4*rabbits；再進(jìn)行循環(huán)判斷，直

到foots<>138不成立(BPfoots=138),循環(huán)結(jié)束,

輸出結(jié)果。程序框圖如圖所示

2010-4-2766

程序代碼如下：

CLEAR

cocks=0

foots=0

DOWHILEfoots<>138

cocks=cocks+l

rabbits=38-cocks

foots=2*cocks+4*rabbits

ENDDO

?〃雞的數(shù)量為：〃,cocks

?”兔的數(shù)量為：",rabbits

2010-4-27

fcmf--■要■-步長型循環(huán)結(jié)構(gòu)泡帶

格式：

FOR＜循環(huán)變量＞=〈初值）TO〈終值》［STEP＜步長值〉］

［命令序列］

ENDFOR|NEXT

功能：根據(jù)循環(huán)變量的值是否超過終值來決

定是否執(zhí)行［命令序列］。

2010-4-2768

(1)〈初值〉、〈終值〉、〈步長值)都是數(shù)值表

達(dá)式；當(dāng)〈步長值》是1時，可以省略STEP子

句。

(2)ENDFOR或NEXT語句為循環(huán)終端語句，用

以標(biāo)明本循環(huán)結(jié)構(gòu)的終點(diǎn)。該語句必須和

FOR語句配對使用。

2010-4-2769

-

長型循環(huán)結(jié)構(gòu)說明

（3）該循環(huán)結(jié)構(gòu)的執(zhí)行過程是：首先將初值賦值給循環(huán)變

量，然后判斷循環(huán)變量的值是否超過終值（這里超過終值

的含義是：如果步長值為正數(shù)，則循環(huán)變量的值大于終值

為超過，如果步長值為負(fù)數(shù)，則循環(huán)變量的值小于終值為

超過），不超過就執(zhí)行循環(huán)體，遇到ENDFOR或NEXT語句，

自動使循環(huán)變量增加一個步長值，再將循環(huán)變量的值與終

值比較，如果循環(huán)變量的值不超過終值，就再執(zhí)行循環(huán)體,

不斷循環(huán)執(zhí)行。如果循環(huán)變量的值超過終值則不執(zhí)行循環(huán)

體，而轉(zhuǎn)去執(zhí)行ENDFOR或NEXT語句后面的第一條語句。

（4）在循環(huán)體內(nèi)的適當(dāng)位置也可以放置EXIT和LOOP語句，

作用和用法與當(dāng)型循環(huán)結(jié)構(gòu)類似。

2010-4-2770

［例6-15］求1+2+3+…+99+100的值。

問題分析：采用累加的辦法，用循環(huán)變量

產(chǎn)生1、2、3、…、99、100這些數(shù)。用s保存

累加和，s的初始值為3每次循環(huán)將s加上循

環(huán)變量的值，再賦值給變量s,循環(huán)結(jié)束即求

得s。程序代碼為:

2010-4-2771

■

器型循環(huán)結(jié)構(gòu)程序舉例1

，?1?一'

CLEAR

s=0

FORx=lTO100

s=s+x

ENDFOR

?”1—100自然數(shù)累加和是:〃，S

RETURN

2010-4-2772

［例6-16］從鍵盤上輸入任何一個自然數(shù)，求該

自然數(shù)的階乘。

問題分析：假設(shè)該自然數(shù)為n,那么求n的階乘的

公式是：

n*(n-l)*(n-2)**2*1

有了這樣的公式，我們就可以用循環(huán)程序?qū)⒃搉的

階乘求解出來。將循環(huán)變量的初值設(shè)為n,終值設(shè)為

1,步長值設(shè)為-1。用factor作為存放階乘的變量，

factor的初始值為L每次循環(huán)都使factor乘以循

環(huán)變量的值，循環(huán)結(jié)束即求得factor的值。該程序

代碼如下:

2010-4-2773

&構(gòu)程序舉例21募3

CLEAR

factor=l

INPUT〃請輸入一個自然數(shù)：〃TOn

FORx=nTO1STEP-1

factor=factor*x

ENDFOR

?〃自然數(shù)〃+ALLTRIM(STR(n,10))+〃的階乘是：〃+ALLTRIM(STR(factor,20))

RETURN

2010-4-2774

II叫*a會■表猾描循環(huán)結(jié)構(gòu)

格式:

SCAN[＜范圍＞][FOR＜條件1＞W(wǎng)HILE〈條件2＞]

［命令序列］

ENDSCAN

功能：根據(jù)對打開數(shù)據(jù)表的范圍和條件來決定

是否執(zhí)行［命令序列］。

fel滲掃描循環(huán)結(jié)構(gòu)說明

(1)該結(jié)構(gòu)是針對當(dāng)前打開的數(shù)據(jù)表進(jìn)行操作的。它的功能是:

對當(dāng)前打開的數(shù)據(jù)表中指定范圍內(nèi)符合條件的記錄，逐個進(jìn)行〈

命令序列〉所規(guī)定的操作，如果缺省范圍和條件子句時，則對所

有記錄逐個進(jìn)行〈命令序列》規(guī)定的操作。

(2)表掃描型循環(huán)結(jié)構(gòu)每循環(huán)一遍，記錄指針自動移動到下一

條記錄，不需要設(shè)置SKIP語句。

(3)SCAN和ENDSCAN語句要配對使用，且各占一行。

(4)在〈命令序列》的適當(dāng)位置也可以放置EXIT和LOOP語句，功

能和用法同其他循環(huán)結(jié)構(gòu)類似。

律己描循環(huán)結(jié)構(gòu)程序舉例

II"-4.If

■■KU

［例6-17］將人事數(shù)據(jù)表中基本工資小于

1000的姓名、基本工資兩個字段輸出，并統(tǒng)

計這些職工的人數(shù)。（用SCAN-ENDSCAN結(jié)

構(gòu)編程）

基本操作步驟為：關(guān)閉所有數(shù)據(jù)表，打開

人事數(shù)據(jù)表，設(shè)計一個累加變量必代表滿足

條件的記錄數(shù)，給n賦初值0,用表掃描循環(huán)

結(jié)構(gòu)定位滿足條件的記錄，輸出姓名、基本

工資兩個字段，并對n進(jìn)行累加1,循環(huán)結(jié)束

即求得n,輸出n。程序代碼如下:

2010-4-2777

CLOSEDATABASE

CLEAR

USErsb

n=0

SCANFOR基本工資〈1000

?姓名，基本工資

n=n+l

ENDSCAN

?〃基本工資在1000元以下的人數(shù)有：〃+STR(N,2)+〃人。〃

CLOSEDATABASE

RETURN

—

2010-4-27

fcmf循環(huán)結(jié)構(gòu)嵌套

循環(huán)結(jié)構(gòu)的嵌套是指在一個循環(huán)體內(nèi)包含

其它的循環(huán)結(jié)構(gòu)，也稱為多重循環(huán)結(jié)構(gòu)。

同一種類型的循環(huán)結(jié)構(gòu)可以嵌套，不同類

型的循環(huán)結(jié)構(gòu)也可以嵌套。

要編好循環(huán)結(jié)構(gòu)嵌套程序，必須做到：循

環(huán)開始語句和循環(huán)結(jié)束語句配對出現(xiàn)；內(nèi)外

層循環(huán)層次分明，不得交叉。

VisualFoxPro最多允許128層嵌套。請看

落巧循環(huán)結(jié)構(gòu)嵌套舉例

［例6-18］用雙重循環(huán)打印九九乘法表，即:

1X1=1,1X2=2,…，1X9=9

2X1=2,1X2=4,???,2X9=18

9X1=9,9X2=18,???,9X9=81

問題分析：這是一個有9個行、9個列數(shù)據(jù)項(xiàng)的矩

陣，可以用雙重循環(huán)解決。外循環(huán)用于控制各個行,

內(nèi)循環(huán)用于控制每一行的各個列項(xiàng)，一行輸出完畢

以后，換行輸出下一行各個列的數(shù)據(jù)項(xiàng)。程序代碼

如下:

2010-4-2780

*打印乘法九九表。

CLEAR

FORa=lTO9

FORb=lTO9

p=a*b

??STR(a,1)+〃義〃+STR(b,l)+〃=〃+STR(p,2)+〃

ENDFOR

?&&注意??和？的區(qū)別

ENDFOR

RETURN

II11，'叫*a柄等多模塊程序

應(yīng)用程序一般都是多模塊程序，

可包含多個程序模塊。模塊是可以

命名的一個程序段，可指主程序、

子程序、函數(shù)、過程。

2010-4-2782

『’出路7k王松、3.1子程序

能夠完成一定功能的可供其它程序使用

（調(diào)用）的獨(dú)立程序段稱為子程序。它獨(dú)立

存在，但可以被多次調(diào)用，調(diào)用子程序的程

序稱為主程序。在應(yīng)用系統(tǒng)開發(fā)中，把程序

完成的主要功能都分配給各子程序去完成,

這樣主程序可以寫得比較簡捷，整個應(yīng)用系

統(tǒng)的維護(hù)方便，應(yīng)用系統(tǒng)運(yùn)行的效率也很高。

'r.呼程序的調(diào)用

格式：

DO〈程序文件名1〉[WITH＜參數(shù)表＞][IN〈程序文件名2＞]

功能：用來執(zhí)行一個程序。

說明：

(1)程序文件名L指定要執(zhí)行程序的名字。DO〈程序文件

名1＞直接執(zhí)行或調(diào)用《程序文件名1＞指定的程序。

(2)[WITH＜參數(shù)表＞]：指定傳遞到子程序的參數(shù)，在〈參數(shù)

表》中列出的參數(shù)可以是表達(dá)式、內(nèi)存變量、常量、字段或用戶

自定義函數(shù)。

(3)當(dāng)〈程序文件名1＞是子句IN〈程序文件名2＞中的一個過

程時，DO命令調(diào)用該過程。請參閱例6-24。

伍漏2-仔程序的返回

格式：

RETURN[TOMASTER|TO〈程序文件名>]

功能：將程序執(zhí)行的控制權(quán)返回到指定程序的相關(guān)代碼行。

說明：

(1)該語句放在一個程序的末尾。

(2)不帶參數(shù)的RETURN語句的功能是將程序控制權(quán)返回

到調(diào)用該子程序的主程序的下一條命令語句。

(3)RETURNTOMASTER：如果有多級程序調(diào)用，某一子

程序的該語句將使程序控制權(quán)返回到最高一級調(diào)用程序。

(4)RETURNTO〈程序文件名〉：表示將控制權(quán)交給指定

的程序。

fcmf=3■吁程序的建立

建立子程序的方法與建立程序的方法類似。

但要注意：

?每個子程序必須單獨(dú)使用一個文件名保存

起來，子程序文件名的擴(kuò)展名也是?PRG。

?主程序和子程序之間有關(guān)變量值的傳遞關(guān)

2010-4-27

有本于子程序舉例1

［例6-19］利用主程序調(diào)用子程序的方法計算任

意3個自然數(shù)的階乘和，即求s=a!+b!+c!o

建立步驟：先建立好求任一自然數(shù)階乘的程序，

如例6-16o由于這里是通過主程序調(diào)用子程序的方

法求三個自然數(shù)階乘之和，因此在子程序中所求出

的每個自然數(shù)的階乘就不用輸出了；另外子程序計

算所需的自然數(shù)是主程序通過變量傳遞到子程序的,

因此，在子程序中輸入自然數(shù)的語句也可以不要。

牖摩希雷例中，作為求階乘的子程序可以是如下

2010-4-2787

注意，該子程序中的變量n的值需*子程序，文件名為jc

要由主程序傳遞。將該子程序保存文factor=l

件名為：jc。FORx=nTO1STEP-1

主程序的編寫：在程序運(yùn)行時輸入factor=factor*x

三個任意自然數(shù)分別給三個變量a、b、ENDFOR

c,定義與子程序中傳遞數(shù)據(jù)的相關(guān)RETURN

變量，這里分別是傳遞求階乘需要的

自然數(shù)變量n,保存計算階乘結(jié)果的

變量factor。然后三次調(diào)用子程序即

可分別計算出三個自然數(shù)的階乘，計

算這三個階乘之和并輸出。

一

2010-4-2788

*主程序代碼

DOjc

CLEAR

s=s+factor

INPUT〃a二〃TOa

n=c

INPUT〃b二〃TOb

DOjc

INPUT〃c=〃TOc

s=s+factor

s=0

?ALLTRIM(STR(a,3))+〃！+〃+ALLTRIM(STR(b,3));

factor=l

+〃！+〃+ALLTRIM(STR(c,3))+〃！=〃，s

n=a

RETURN

DOjc

s=factor

n=b

2010-4-27

-子程序舉例2

1

［例6-20］用帶參數(shù)傳遞數(shù)據(jù)的方法編程計算球的體積

（四舍五入保留三位小數(shù)）。球體積的計算公式是：

volume=4/37rr3,VisualFoxPro表達(dá)式是：

volume=4/3*PI（）*r"3o

注意，在建立含有參數(shù)傳遞子程序時，子程序的第一條

語句必須是：

PARAMETER〈參數(shù)表》

〈參數(shù)表》要與DO〈程序文件名＞W(wǎng)ITH＜參數(shù)表》語句中

的〈參數(shù)表》中的參數(shù)一一對應(yīng)，以便相互傳遞數(shù)據(jù)，由

PARAMETER〈參數(shù)表＞中給出的參數(shù)叫形參，而DO〈程序文件

名＞W(wǎng)ITH＜參數(shù)表＞中給出的參數(shù)叫實(shí)參。實(shí)參的名稱與形

參的名稱可以一樣，也可以不一樣。一般情況下實(shí)參的個數(shù)

等于（或小于）形參的個數(shù)，但不能大于形參的個數(shù)，如實(shí)

參個數(shù)小于形參的個數(shù)，多出的形參篦腳隹

/￡w/A

2010-4-2790

主程序代碼如下：

本例計算球的體積的CLEAR

子程序代碼是:INPUT〃請輸入球的半徑：〃TOr

PARAMETERr,volumecube=0

volume=ROUND(4/3*PI()叱3,3)DOqtjWITHr,cube

RETURN?〃半徑為〃+ALLTRIM(STR(r,10))+

將該子程序以文件名球廟體積是：",cube

RETURN

qtj保存起來。

2010-4-2791

fcmf蠡自定義函數(shù)

VisualFoxPro提供了許多系統(tǒng)函數(shù)，用戶

也可以自己定義函數(shù)(UserDefined

Function),簡稱UDF。在VisualFoxPro中

有兩種形式的UDF：

?獨(dú)立用戶定義函數(shù)

?依附用戶定義函數(shù)

2010-4-2792

格式：

[PARAMETERS〈參數(shù)表＞]

[命令序列]

RETURN[＜表達(dá)式＞]

功能：定義一個可以獨(dú)立運(yùn)行的函數(shù)。

2010-4-2793

(1)［PARAMETERS〈參數(shù)表＞］：接受函數(shù)運(yùn)行時

傳遞過來的數(shù)據(jù)，如果函數(shù)不需要傳遞數(shù)據(jù)，該語

句可省略。

(2)［命令序列］:用于進(jìn)行各種處理的命令組合。

簡單的函數(shù)也可以為空。

(3)RETURN〈表達(dá)式》語句中〈表達(dá)式〉的值作為返

回函數(shù)值，它決定了函數(shù)的類型。如缺省該語句，

則返回函數(shù)值為?工。

2010-4-2794

(4)函數(shù)名稱就是保存時用的程序文件名。如果

UDF的名稱與已有的函數(shù)名相同，系統(tǒng)只承認(rèn)已有

函數(shù)，因此不能用已有的函數(shù)名來命名UDF。

(5)UDF的調(diào)用形式是＜函數(shù)名＞([＜參數(shù)表＞])。

參數(shù)表中每個參數(shù)可以是任何合法的VisualFoxPro

表達(dá)式，參數(shù)的個數(shù)必須與UDF中PARAMETERS語句里

的參數(shù)表參數(shù)個數(shù)相等，數(shù)據(jù)類型也應(yīng)符合UDF中的

要求。

2010-4-2795

［例6-21］定義一個計算求立

方數(shù)的函數(shù)。*求1到10的立方數(shù)

CLEAR

該程序的代碼如下

FORi=lTO10

*求立方數(shù)函數(shù)。函數(shù)名為cube

?i,c⑴

*（即以cube.prg為文件名存盤）

ENDFOR獨(dú)立用戶定、

PARAMETERSv

RETURN義函數(shù)

RETURNv*v*v

在右面程序代碼中,調(diào)用求

立方函數(shù)cube,prg,求1到10的

立方數(shù)。

2010-4-27

依附用戶定義函數(shù)不能作為一個獨(dú)立的程序文件，它以

FUNCTION＜函數(shù)名〉開頭，依附在某程序的后面或某過程文件

中。依附用戶定義函數(shù)用如下格式定義。

FUNCTION〈函