第三章 數(shù)據(jù)與數(shù)據(jù)運(yùn)算

1、第三章數(shù)據(jù)與數(shù)據(jù)運(yùn)算實驗31 Visual FoxPro數(shù)據(jù)與數(shù)據(jù)運(yùn)算（一）實驗?zāi)康?熟悉VFP各類數(shù)據(jù)及其運(yùn)算方法。2熟練掌握各類常量、變量、函數(shù)與表達(dá)式的含義及其輸入和輸出的格式。（二）實驗內(nèi)容及步驟1常量（1）數(shù)值（N）型常量：用于表示正負(fù)整數(shù)或小數(shù)?！緦嵗?1】在命令窗口分別輸入：? 3.416? 5.863E12? 3.246E-8然后在VFP主窗口觀察輸出的結(jié)果與格式。（2）貨幣（Y）型常量：用于表示貨幣值的常量。貨幣型常量的前置符為$，小數(shù)保留4位，超過4位小數(shù)，則四舍五入?！緦嵗?2】在命令窗口輸入：? $123.45678然后在VFP主窗口觀察輸出的結(jié)果與格式。（3）字符（C

2、）型常量：用定界符（" "，' '， ）括起來的字符串?！緦嵗?3】在命令窗口分別輸入：? "ABC"? 'abc'? "ABC"'abc'在VFP主窗口觀察輸出的結(jié)果與格式。（4）日期（D）型常量【實例34】傳統(tǒng)格式的日期常量1）在命令窗口分別輸入：? 07/08/04能否通過嗎？為什么？2）在命令窗口分別輸入：SET STRICTDATE TO 0? 07/08/043）在命令窗口分別輸入：SET MARK TO "-"或SET MARK TO ".&q

3、uot;? 07/08/04在VFP主窗口中觀察日期型常量的顯示格式。4）在命令窗口輸入：SET CENTURY ON? 07/08/04在VFP主窗口中觀察日期型常量的顯示格式。5）在命令窗口輸入：SET DATE TO ANSI? 07/08/04在VFP主窗口中觀察日期型常量的顯示格式?！緦嵗?5】嚴(yán)格格式的日期常量在命令窗口輸入：? 2004-07-08在VFP主窗口中觀察日期型常量的顯示格式。（5）日期時間（T）型常量【實例36】12小時制與24小時制的時間格式1）系統(tǒng)默認(rèn)12小時在命令窗口分別輸入：? 2004-07-08 03:45:55? 2004-07-08 03:45:55

4、p在VFP主窗口中觀察日期時間型常量的顯示格式。2）將時間設(shè)置為24小時制在命令窗口分別輸入：SET HOUR TO 24? 2004-07-08 03:45:55p在VFP主窗口中觀察日期時間型常量的顯示格式。（6）邏輯（L）型常量：只有邏輯真和邏輯假兩個值?！緦嵗?7】在命令窗口分別輸入：? .T. , .t. , .Y. , .y. , .F. , .f. , .N. , .n.在VFP主窗口中觀察邏輯型常量的顯示格式。2變量【實例38】內(nèi)存變量賦值與內(nèi)存變量類型的測定X=3.14? TYPE("X")NX="IBM"? TYPE("X&

5、quot;)CX=.T.? TYPE("X")L【實例39】內(nèi)存變量的顯示、釋放和清除。CLEAR MEMORYDIMENSION Y(2,2)STORE "XXX" TO X1,Y(1,1)&&等價于X1="XXX"，Y(1,1)= "XXX"Y(2,1)=2001-03-23X2=$123.23DISPLAY MEMORY LIKE Y*&&宜使用DISPLAY，而不用LISTYPub(Public公用)A(Array數(shù)組) ( 1, 1)C"XXX" ( 1

6、, 2)L.F. ( 2, 1)D03/23/01 ( 2, 2)L.F.XY3=2001-08-22,11:30p&&X開頭的內(nèi)存變量有3個：X1，X2，Xy3DISPLAY MEMORY LIKE X*RELEASE ALL EXCEPT X*DISPLAY MEMORY LIKE X*XPubY 123.2300X1PubC "XXX"XY3PubT 08/22/01 11:30:00PM3數(shù)組【實例310】使用一個DIMENSION語句定義多個不同維數(shù)的數(shù)組DIMENSION X(5) ,Y(2,3)&&一個語句可定義多個不同維數(shù)的數(shù)

7、組? X(5) ,Y(1,2)&&輸出數(shù)組元素的值.F. .F.&&數(shù)組元素的初值為.F.【實例311】同時給數(shù)組的全部元素賦值。DIMENSION A(3)A=8&&等效于A(1)=8,A(2)=8,A(3)=8? A(1),A(2),A(3) 8 8 8【實例312】數(shù)組可以與簡單變量同名。DIMENSION B(3)B=8? B(1), B(2), B(3),B 8 8 8 8【實例313】在賦值語句中，表達(dá)式的位置使用出現(xiàn)數(shù)組名。DIMENSION C(2,3)D=C&&等價于D=C(1,1)，即D=.F.? D.F.4變

8、量的優(yōu)等級【實例314】USE Student&&打開Student.dbf表文件(假設(shè)表文件已建立)LIST&&顯示表的全部記錄，命令執(zhí)行后，記錄指針指向表的結(jié)束標(biāo)記EOF。GO 1&&把記錄指針移到第1記錄。? 姓名&&輸出字段變量“姓名”的值李小明&&當(dāng)記錄指針移到第1記錄時，字段變量“姓名”的值為“李小明”姓名="趙小輝"&&“姓名”為內(nèi)存變量名，因為允許內(nèi)存變量與字段變量同名。? 姓名&&同名時默認(rèn)字段變量優(yōu)先，所以“姓名”字段變量李小明&&am

9、p;字段變量“姓名”的值為“李小明”? M->姓名&&指定“姓名”為內(nèi)存變量趙小輝&&內(nèi)存變量的值為“趙小輝”? M.姓名&&指定“姓名”為內(nèi)存變量趙小輝&&內(nèi)存變量的值為“趙小輝”5函數(shù)（1）數(shù)值函數(shù)1）取整值函數(shù)【實例315】X=5.89? INT(X),INT(-X) 5 -52）四舍五入函數(shù)【實例316】X=345.345? ROUND(X,2), ROUND(X,1), ROUND(X,0), ROUND(X,-1) 345.35 345.3 345 3503）求余數(shù)函數(shù)【實例317】? MOD(10,3), MO

10、D(10,-3), MOD(-10,3), MOD(-10,-3) 1 -2 2 -14）求最大值函數(shù)【實例318】? MAX(345,-3.71,57) 3455）求最小值函數(shù)【實例319】? MIN(345,-3.71,57) -3.71（2）參數(shù)是字符的函數(shù)1）求字符串長度函數(shù)【實例320】? LEN("Visual FoxPro") 132）大小寫轉(zhuǎn)換函數(shù)【實例321】? UPPER("Visual FoxPro"),LOWER("Visual FoxPro") VISUAL FOXPRO visual foxpro3）生成空

11、格字符串函數(shù)格式：SPACE(<數(shù)值表達(dá)式>)【實例322】? SPACE(20)+"主菜單"主菜單4）刪除字符串前后空格函數(shù)【實例323】? LEN("TEST")? LEN(ALLTRIM("TEST")5）取子串函數(shù)【實例324】X="GOOD BYE!"? LEFT(X,2), RIGHT(X,4), SUBSTR(X,6,2), SUBSTR(X,6)GO BYE! BY BYE!6）求子串位置函數(shù)【實例325】? AT("Fox","Visual FoxPro&

12、quot;), AT("fox","Visual FoxPro")80（3）參數(shù)是日期和時間的函數(shù)1）系統(tǒng)日期和時間函數(shù)【實例326】? DATE( ), TIME( ), DATETIME( )12/08/04 08:58:54 12/08/04 08:58:542）求年份、月份、天數(shù)函數(shù)【實例327】D=DATE( )? DATE( ),YEAR(D), MONTH(D), DAY(D)12/08/04 2004 12 83）求時、分、秒函數(shù)【實例328】T= DATETIME( )? DATETIME( ) , HOUR(T) , MINUTE(T

13、) , SEC(T)12/08/04 09:03:01 9 3 1（4）數(shù)據(jù)類型轉(zhuǎn)換函數(shù)1）數(shù)值轉(zhuǎn)換成字符串函數(shù)（N型C型）【實例329】N=-123.456? STR(N,9,2), STR(N,6,1), STR(N,3), STR(N,6), STR(N)-123.46 -123.5*-123 -1232）字符串轉(zhuǎn)換成數(shù)值函數(shù)（C型N型）【實例330】? VAL("-123.45"), VAL("-12A.45"), VAL("A-123.45") -123.45 -12.000.003）字符串轉(zhuǎn)換成日期或日期時間函數(shù)（C型D或

14、T型）【實例331】? CTOD("07/08/04"),CTOT("07/08/04 15:25:45") 07/08/04 07/08/04 03:25:45 PM4）日期或日期時間函數(shù)轉(zhuǎn)換成字符串（D或T型C型）【實例332】C1=DTOC(DATE()C2=DTOC(DATE(),1)? C1,C212/08/04 20041208T1=TTOC(DATETIME()T2=TTOC(DATETIME(),1)? T1,T212/08/04 09:16:26 200412080916265）宏替換函數(shù)【實例333】宏替換函數(shù)的應(yīng)用TB="

15、Student"USE &TB&&等價于USE StudentXM="姓名"? &XM+"你好！"&&等價于 ? 姓名+"你好！"李小明你好！SKIPXM="姓名"? &XM+"你好！"李新你好！【實例334】宏替換函數(shù)分隔符的作用ZY="財會"? "&ZY"財會? "&ZY三班"&ZY三班? "&ZY.三班"財會三班（

16、5）測試函數(shù)1）數(shù)據(jù)類型測試函數(shù)【實例335】X="TCL"&&內(nèi)存變量X的數(shù)據(jù)類型為CY=10&&內(nèi)存變量Y的數(shù)據(jù)類型為NZ=$100.2&&內(nèi)存變量Z的數(shù)據(jù)類型為Y? TYPE("X")C? TYPE("Y")N? TYPE("Z")Y? TYPE("DATE()")D&&DATE()函數(shù)的數(shù)據(jù)類型為D? TYPE("DATETIME()")T&&DATETIME()函數(shù)的數(shù)據(jù)類型為T2）“空

17、”值測試函數(shù)【實例336】X=0Y=2.18? EMPTY(X) .T. &&數(shù)值型數(shù)據(jù)值為0時為“空”? EMPTY(Y).F.? EMPTY(CTOD("12/19/04").F.? EMPTY(.F.).T. &&邏輯型數(shù)據(jù)值為.F.時為“空”? EMPTY(.NULL.).F. &&空值.NULL.為非“空”3）表文件結(jié)束標(biāo)記測試函數(shù)EOF()4）表文件開始標(biāo)記測試函數(shù)BOF()5）記錄號測試函數(shù)RECNO()【實例337】USE StudentBROWSE? BOF(),RECNO() .F. 1SKIP -1? B

18、OF(),RECNO() .T. 1&&注意！BOF的記錄號是1，而不是0和1GO BOTTOM? EOF(),RECNO() .F. 8SKIP&&等價于SKIP 1或SKIP +1? EOF(),RECNO() .T. 9&&EOF的記錄號等于最大記錄號加上1GO 3? BOF(),EOF(),RECNO() .F. .F. 35）條件測試函數(shù)【實例338】成績=72? IIF(成績>=60, "及格","不及格")6表達(dá)式（1）數(shù)值表達(dá)式【實例339】設(shè)a=2，b=6，c=3，求a=2b=6c=

19、3? (b+sqrt(b*b-4*a*c)/(2*a) &&表達(dá)式寫在同一行內(nèi)，乘號*不能略，區(qū)分運(yùn)算層次只使用圓括號( )。-0.6340（2）字符表達(dá)式【實例340】X="How"Y="areyou!"? X+Y（3）日期時間表達(dá)式【實例341】? DATE()-2002-12-8&&若用+號則出錯731（4）關(guān)系表達(dá)式【實例342】字符串非精確比較1）SET EXACT OFF&&系統(tǒng)初態(tài)默認(rèn)值? "福建商專"="福建"&&比較到右串結(jié)束即結(jié)束.

20、T.2）SET EXACT ONSET EXACT ON&&為等長比較? "福建商專"="福建".F.【實例343】字符串精確比較? "福建商專"="福建"&&兩個字符串完全相等才相等.F.（5）邏輯表達(dá)式【實例344】? 5>3 .AND. 5<3.F.（三）實驗要求1在上機(jī)實驗前，認(rèn)真學(xué)習(xí)Visual FroPro程序設(shè)計教材中與本實驗課題相關(guān)的內(nèi)容。2在計算機(jī)上驗證教材中有關(guān)常量、變量、函數(shù)和表達(dá)式的例題。3完成以下實驗作業(yè)：（1）先判斷下列數(shù)據(jù)的類型，然后用TYPE( )函數(shù)加以驗證。1）2004/12/122）2004/12/123）2004/12/124）2004/12/12 21:23:555）31416E-46）$3000.56787）TIME()8）DATE()9）DATETIME()10）2004/12/30-2004/9/111）2004/12/12 21:23:55-2004/12/12 11