• 沒有找到結果。

Visual FoxPro程序设计实验指导 - 万水书苑-出版资源网

N/A
N/A
Protected

Academic year: 2021

Share "Visual FoxPro程序设计实验指导 - 万水书苑-出版资源网"

Copied!
11
0
0

加載中.... (立即查看全文)

全文

(1)第 2 章 Visual FoxPro 6.0 编程基础. 实验 1. 常量的使用. 一、实验目的 初步掌握 6 种类型常量的正确书写格式。 二、实验内容 按以下内容进行操作,并写出操作结果。 1.数值型常量和货币型常量 (1)在命令窗口中输入以下命令: ?100 ?100.00 ?100.01 ?100.23456. Visual FoxPro 主屏幕上显示结果为? (2)在命令窗口中输入以下命令: ?$100 ?$100.00 ?$100.01 ?$100.23456. Visual FoxPro 主屏幕上显示结果为? 2.字符型常量 在命令窗口中输入以下命令: ?"Visual FoxPro 6.0 中文版程序设计教程" ?[欢迎使用"教务管理数据库"] ?"123" ?'"123"'. Visual FoxPro 主屏幕上显示结果为? 3.日期型常量和日期时间型常量 (1)在命令窗口中输入以下命令: ?{^2008-08-08} SET CENTURY ON SET MARK TO "." SET DATE TO YMD ?{^2008-08-08}.

(2) Visual FoxPro 程序设计实验指导与习题解析. 8. Visual FoxPro 主屏幕上显示结果为? 查看两条?{^2008-08-08}命令的显示结果有何不同,为什么? 接着输入: ?{^2008-12-31}. Visual FoxPro 主屏幕上显示结果为? (2)在命令窗口中输入以下命令: SET MARK TO ?{^2009-12-31,9} ?{^2009-12-31,9:30 p} ?{^2009-12-31,21:30}. Visual FoxPro 主屏幕上显示结果为? 接着输入: SET CENTURY OFF SET DATE TO AMERICAN ?{^2009-12-31,9}. Visual FoxPro 主屏幕上显示结果为? 4.逻辑型常量 在命令窗口中输入以下命令: ?.T.,.t.,.Y.,.y. ?.F.,.f.,.N.,.n. ?.False.. Visual FoxPro 主屏幕上显示结果为? 三、实验结果 1.(1) 100 100.00 100.01 100.23456. (2) 100.0000 100.0000 100.0100 100.2346. 2. Visual FoxPro 6.0 中文版程序设计教程 欢迎使用"教务管理数据库" 123 "123". 3.(1) 08/08/08 2008.08.08 2008.12.31.

(3) 第一部分 实验指导. (2) 2009/12/31 09:00:00 AM 2009/12/31 09:30:00 PM 2009/12/31 09:30:00 PM 12/31/09 09:00:00 AM. 4. .T. .T. .T. .T. .F. .F. .F. .F. 提示语法错误. 实验 2. 变量的使用. 一、实验目的 (1)初步掌握变量的赋值和显示命令。 (2)掌握数组的定义和赋值。 二、实验内容 1.简单内存变量的赋值和使用 (1)在命令窗口中输入以下命令: x=10 STORE 20 TO y, z ?x,y,z ?x+y+z. Visual FoxPro 主屏幕上显示结果为? (2)在命令窗口中输入以下命令: x="10" STORE "20" TO y, z ?x,y,z ?x+y+z. Visual FoxPro 主屏幕上显示结果为? (3)在命令窗口中输入以下命令: x="Visual FoxPro 6.0" STORE "中文版程序设计教程" TO y ?x ??y ?x+y. Visual FoxPro 主屏幕上显示结果为? 接着输入: ?"换行显示" ??"同行显示" ?"看看有没有换行" ??"显示三角形试试". 9.

(4) Visual FoxPro 程序设计实验指导与习题解析. 10. Visual FoxPro 主屏幕上显示结果为? 2.数组的赋值和使用 在命令窗口中输入以下命令: DIMENSION X(4) ?X(1),X(3) STORE 100 TO X DIMENSION Y(2,3) STORE "用一维数组形式表示二维数组元素" TO Y(2,1) ?Y(4). Visual FoxPro 主屏幕上显示结果为? 三、实验结果 1.(1) 10 20 20 50. (2) 10 20 20 102020. (3) Visual FoxPro 6.0 中文版程序设计教程 Visual FoxPro 6.0 中文版程序设计教程 换行显示同行显示 看看有没有换行显示三角形试试. 2. .F. .F. 用一维数组形式表示二维数组元素. 实验 3. 表达式的使用. 一、实验目的 熟悉和掌握 5 种常用表达式的使用。 二、实验内容 1.数值表达式 (1)在命令窗口中输入以下命令: a=1 b=-2 c=1 ? (-b+(b**2-4*a*c)^(1/2))/2*a. Visual FoxPro 主屏幕上显示结果为? (2)在命令窗口中输入以下命令:.

(5) 第一部分 实验指导 STORE 10 TO x STORE 3 TO y ?x%y,-x%y,x%-y,-x%-y. Visual FoxPro 主屏幕上显示结果为? 2.字符表达式 (1)在命令窗口中输入以下命令: ?"全国计算机等级考试"+"二级"+"Visual FoxPro"+"程序设计" ?1+2 ?"1"+"2" ? "Visual "+"FoxPro" ? "Visual "-"FoxPro". Visual FoxPro 主屏幕上显示结果为? (2)在命令窗口中输入以下命令: STORE "2008-08-08" TO A ?A. Visual FoxPro 主屏幕上显示结果为? 3.日期表达式和日期时间表达式 在命令窗口中输入以下命令: STORE {^2008-12-31} TO A ?A+5 ?A-10 ?{^2009-08-13}-{^2009-07-13} ?{^2009-08-13}-20 ?{^2009-08-13,}-20 ?{^2009-08-13,10:10}-{^2009-08-13,9:10}. Visual FoxPro 主屏幕上显示结果为? 4.关系表达式 (1)在命令窗口中输入以下命令: ?0>-5,0.1>0.1 ?$100.1234<$100.12336 ?$100.1234>$100.12336 ?{^2008-6-1}>{^2009-6-1} ?1>5<({^2008-08-08}<{^2009-08-08}). Visual FoxPro 主屏幕上显示结果为? (2)在命令窗口中输入以下命令: STORE "Visual FoxPro"TO s1 STORE "Fox"TO s2 STORE "foxpro"TO s3 ?s2$s1,s3$s1. Visual FoxPro 主屏幕上显示结果为? 5.逻辑表达式 在命令窗口中输入以下命令: ?NOT 1>5 ?1>5 AND {^2008-08-08}<{^2009-08-08} ?1>5 OR {^2008-08-08}<{^2009-08-08}. 11.

(6) Visual FoxPro 程序设计实验指导与习题解析. 12. Visual FoxPro 主屏幕上显示结果为? 三、实验结果 1.(1) 1.0000. (2) 1. 2. -2. -1. 2.(1) ?全国计算机等级考试二级 Visual FoxPro 程序设计 ?3 ?12 ?Visual FoxPro ?VisualFoxPro. (2) 2008-08-08. 3. 01/15/09 12/21/09 31 07/24/09 08/12/09 11:59:40 PM 3600. 4.(1) .T. .F. .F. .F. .F. .T.. (2) .T. .F.. 5. .T. .F. .T.. 实验 4 一、实验目的 熟悉和掌握常用函数的格式和功能。 二、实验内容 1.数值型函数 在命令窗口中输入以下命令:. 函数的使用.

(7) 第一部分 实验指导 STORE 365.365 TO x ?ROUND(x,2),ROUND(x,1),ROUND(x,0) ?ROUND(x,-1),ROUND(x,-2),ROUND(x,-3). Visual FoxPro 主屏幕上显示结果为? 2.字符型函数 在命令窗口中输入以下命令: STORE "This is my sister" TO x ?OCCURS("is",x),OCCURS("sis",x) ?OCCURS("ss",x),OCCURS("IS",x) STORE "This is my sister" TO x ?AT("is",x), AT("IS",x), ATC("is",x) ,ATC("IS",x) STORE "This is my sister"TO x1 STORE "your"TO x2 STORE "She"TO x3 ? STUFF (x1,9,2,x2), STUFF (x1,1,4,x3) ?LIKE("ABC","AB"), LIKE("AB*","ABC"), LIKE("AB","AB*"). Visual FoxPro 主屏幕上显示结果为? 3.日期和日期时间型函数 在命令窗口中输入以下命令: STORE {^2008-09-10} TO x ?YEAR(x),MONTH(x),DAY(x). Visual FoxPro 主屏幕上显示结果为? 4.类型转换函数 在命令窗口中输入以下命令: X=-100.121 ?STR(X,9,2),STR(X,6,2),STR(X,3) ?STR(X,6),STR(X) ?VAL("100.121"),VAL("a100.121") ?VAL("100a.121"),VAL(". 100.121"). Visual FoxPro 主屏幕上显示结果为? 5.测试函数 在命令窗口中输入以下命令: STORE 75 TO x ?IIF(x>60,"及格","不及格") ?BETWEEN (5,2,10) ?BETWEEN ("2","05","10"). Visual FoxPro 主屏幕上显示结果为? 三、实验结果 1. 365.37 365.4 370 400 0. 365. 13.

(8) Visual FoxPro 程序设计实验指导与习题解析. 14. 2. 3 1 0 0 3 0 3 3 This is your sister She is my sister .F. .T. .F.. 3. 2008. 9. 10. 4. -100.12 -100.1 -100 -100 100.12 0.00 100.00 100.12. ***. 5. 及格 .T. .F.. 综合实验 在命令窗口中输入以下命令并执行,写出 Visual FoxPro 主屏幕上的显示结果。 1. ?EMPTY(.NULL.) ?LIKE("edit","edi?") ?AT("a","123abc") ?EMPTY(SPACE(10)) a="你好" b="大家" ?b+RIGHT(a,1) ?b+RIGHT(a,2). 2. X=10 ?VARTYPE("X"). 3. ?LEN(SPACE(0)) ?AT("A", "BCD") ?"[信息]"$"管理信息系统" ?ISNULL(.NULL.) ?SUBSTR("计算机技术",3,2) ?EMPTY(.NULL.) ?LIKE('xy?','xyz') ?AT('xy','abcxyz') ?ISNULL(SPACE(0)). 4. SET DATE TO YMD SET CENTURY ON SET CENTURY TO 19 ROLLOVER 10 SET MARK TO "." ?CTOD("49-05-01").

(9) 第一部分 实验指导 ?{^2009/03/09}+15 ?{^2009/03/09}-15 ?{^2009/02/25}+date() ?{^2009/02/25}-date(). 5. ?'65+13' ?["电脑商情"] ?'[中国]' ?'[x=y]'. 6. ?LEFT("VFP□",3). &&□代表空格. ?SUBSTR("□VFP□",2,3) ?YEAR(DATE()) ?SUBSTR(DTOC(DATE()),7,2) ?VARTYPE("40-4*5") ?VARTYPE(40-4*5) A="visual□□" B="□□foxpro" ?A-B,A+B ?UPPER("12ab34CD"). 7. ?"ABCD"+ "EF"= "ABCDEF" ?"1234"-"34" ?CTOD("05/08/03") ?DTOC(DATE())>"04/03/02". 8. STORE -100 TO X ?SIGN(X)*SQRT(ABS(X)) ?MOD(YEAR(DATE())-2000,10) ?3+5#2*4 ?{^2009/05/01}=CTOD("05/01/09") ?{^2009/05/01}=CTOD("09/05/01"). 9. ?"副教授"$"教授" ?"计算机"<>"计算机世界" ?LEN("2009/04/15") ?OCCURS("电脑","计算机俗称电脑") ?AT("Fox","Visual FoxPro") ?LIKE("a*","abcd"). 10.X=50 Y=100 Z="X+Y" ?50+&Z. 11.X="abcd" Y="ab" SET EXACT ON ?.NOT.(X==Y).OR.(Y$"XYZ") ?.NOT.(X$"XYZ").AND.(X<>Y) ?.NOT.(X<>Y) ?.NOT.(X>=Y). 15.

(10) Visual FoxPro 程序设计实验指导与习题解析. 16. 12.SET EXACT OFF X="A" ?IIF("A"=X,X-"BCD",X+"BCD"). 13.?LEFT("Visual FoxPro",6) ?SUBSTR("Visual FoxPro",1,6) ?YEAR(DATE()) ?SUBSTR(DTOC(DATE()),7,2) ?VARTYPE("36-5*4") ?VARTYPE(36-5*4) A="this" B="is A string" ?A-B ?A+B. 14.?LEN('CHINESE')+VAL('86')+({^2009/04/05}-{^2009/04/01}) ?LEN(STR(ROUND(123.456,2))) ?LEFT("123456789",LEN("数据库")) ?BETWEEN(40,34,50) ?STUFF("GOODBOY",5,3,"GIRL") ?LEN(SPACE(5)-SPACE(10)) ?INT(LEN("123.456")) ?CHRTRAN("计算机信息","计算机","科技") ?STR(1234.5454,7,3) STORE 55 TO X ?IIF(X<50,X-50,X+50). 15.SET DATE TO AMERICAN SET MARK TO SET CENTURY OFF STORE {^2008-05-01} TO rq ?DAY(rq) data=CTOD("01-01-99") ?data+365. 综合实验答案 实验结果如下: 1 .F. .F. 4 .T. 大家 大家好. 2 C. 3 0 0 .F. .T. 算 .F. .T. 4 .T..

(11) 第一部分 实验指导 4 1949.05.01 2009.03.24 2009.02.23 操作符/操作数类型不匹配 -1465. 5 65+13 "电脑商情" [中国] [x=y]. 7 .T. 123434 2005.08.03 .T.. 200. VFP VFP 2008 2. C N visual foxpro visual foxpro 12AB34CD. -10.00 8 .F. .F. .T.. 9 .F. .T. 10 1 8 .T.. 11 .T. .T. .F. .F.. 13 Visual Visual 2008 2. C N Thisis A string Thisis A string. 6. 8. 10. 12 ABCD. 14 97.00 10 123456 .T. GOODGIRL 15 7 科技信息 1234.55 105. 17. 15 1 01/01/00.

(12)

參考文獻

相關文件

• 請使用手機至play 商店或app store 下載Google

5.4 出發口令為:「READY - SET」 ,然後下出發信號。.

之意,此指依照命令動作的意義。所謂伺服 系統,就是依照指示命令動作所構成的控制

(A)SQL 指令是關聯式資料庫的基本規格(B)只有 SQLServer 2000 支援 SQL 指令(C)SQL 指令 複雜難寫,適合程式進階者使用(D)是由 Oracle

命令解釋程式 作業系統 (MS-DOS,UNIX, WINDOWS 98/NT, 2000, XP, LINUX).

• 內建元件庫(Common Libraries)則存放了 Flash 提供 的元件,讓使用者自由使用。Flash 內建的元件庫共有 3

Structured programming 14 , if used properly, results in programs that are easy to write, understand, modify, and debug.... Steps of Developing A

Definition of VC Dimension VC Dimension of Perceptrons Physical Intuition of VC Dimension Interpreting VC Dimension?. 3 How Can