VFP实验答案

PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.com.cn
实验二 表的建立与指针操作
一、实验目的
1．掌握表结构的建立与操作。 2．掌握表内容的编辑。
二、实验要求
1．熟练掌握表结构的建立方法。 2．掌握表结构的修改和显示。 3．掌握表的打开和关闭方法。 4．掌握表数据的输入方法。 5．掌握记录指针的定义及其定位方法。 6．掌握表内容的追加、修改、显示、删除等。
USE 学生 1 MODIFY STRU 然后在表设计器窗口中单击“插入”按钮 （3）显示表结构 LIST/DISP STRU 3. 表内容的编辑操作（在命令窗口写出相关命令） （1）将学生表的记录大批追加到学生 1 中。 USE 学生 1 APPEND FROM 学生 （2）在学生 1 表中第三条记录前插入一条记录（内容自定） USE 学生 1 GO 3 INSERT BEFORE （3）对学生表中的第二条记录编辑备注字段，添加内容“ THE STUDENT IS GOOD” USE 学生 GO 2 MODI MEMO 简历 或 直接在浏览窗口中双击第 2 条记录的备注字段 4．记录指针及定位（写出下列命令的执行结果）。 （1）打开学生表，执行命令 LIST 以后，用 EOF()函数测试一下记录指针是否指向文件 结束标识位置。 USE 学生 LIST ?EOF() .T. （2）将记录指针移动到记录号 3，执行命令 LIST REST 以后，用 RECNO()函数测试一 下记录指针的位置。 GO 3 LIST REST ?RECNO() 11 （3）把学生表的记录指针移动到记录号 2，执行命令 LIST NEXT 3 以后，用 RECNO() 和 EOF()函数测试一下记录指针的位置。 GO 2 LIST NEXT 3 ?RECNO(),EOF() 4 .F. （4）将记录指针移动到首记录，再执行命令 SKIP –1 以后，分别用 RECNO()和 BOF() 函数测试一下记录指针的位置。 GO TOP SKIP –1 ?RECNO(),BOF() 1 .T. （5）将记录指针移动到末记录，再执行命令 SKIP 以后，分别用 RECNO()和 EOF()函 数测试一下记录指针的位置。 GO BOTTOM SKIP ?RECNO(),EOF() 11 .T. 5．表内容的显示（写出相关命令）。 （1）显示学生表中的女同学记录。
三、实验内容
1．建立如下所示的学生表，并保存在指定文件夹下（如 D:\VFP）。 （1）表结构如下：
表 3.1 学生表结构 类 型 宽 度 字符型 6 8 字符型 逻辑型 1 日期型 8 数值型 6 备注型 4
Hale Waihona Puke Baidu
字段名 学号 姓名 性别 出生日期 奖学金 简历
小数位
2
（2）请输入表内容；表内容如下所示：
2．对表结构进行如下操作（在命令窗口写出相关命令）。 （1）将学生表结构复制到新表，（新表名字为学生 1.DBF），学生 1 只含有学生表中 姓名，学号，性别等三个字段。 COPY STRUCTURE TO 学生 1 FIELDS 姓名,学号,性别 （2）在学生 1 表中，增加“成绩”字段。
PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.com.cn
PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.com.cn
（6）? AT ( ‘1’, ‘12341141’,3) （7）? LIKE ( ‘ASD*’, ‘ASDFG’) （8）? TYPE ( ‘ABC’ ) （9）? LEN ( ‘VISUAL FOXPRO’ ) （10）? SPACE ( 10 ) （11）? REPL ( ‘ * ’,10 ) 【运行结果】 （1）579 （2）AA （3）DD （4）BC 空 字符串 （5）WORK （6）6 （7）.T. （8）U （9）13 （10）10 个空格 （11）********** 【3】日期时间函数 ? DATE ( ) ? DATE ( ) + 10 ? MONTH(CTOD(“03/02/94”)), CMONTH(CTOD(“03/02/94”)) 【运行结果】 （1）系统当前日期 （2）系统当前日期后 10 天 （3）3 March 【4】转换函数 （1）? UPPER ( ‘as’ ) （2）? LOWER ( ‘A’ ) （3）? CTOD ( ‘10/18/98’ ) （4）? DTOC ( {10/18/98} ) （5）? ASC ( ‘APPLE’ ) （6）? CHR ( 66 ) （7）? STR ( 156.73, 3 ) （8）? VAL ( “ 156.73”), VAL(“ 168A”) 【运行结果为】： （1）AS （2）a （3）10/18/98 （4）10/18/98 （5）65 （6）B （7）157 （8）156.73 168.00 【5】测试函数 （1）? INKEY (0) 按键 （2）? FILE ( ‘HELP.DBF’ ) （3）? IIF ( 3>2,1,-1 ) （4）? SET ( ‘CENT’ ) 【运行结果】 （1）如按下字母“A”，则返回 65 （2）.T.或.F. （3）1 （4）OFF
三、实验内容
1．内存变量的定义和使用（在命令窗口中使用命令并写出结果）。 设 ABOUT=8， AMOUNT=“ 18”， BOOK=10， ROOT=“HAPPY”， A=123， B= ‘Hangzhou’， C=‘VFP’ 要求： （1）实现对上述变量赋值并显示内存变量。 （2）把上述变量保存到 A1.MEM 文件中。 （3）把第 3 个字母为 O 的变量保存到 A2.MEM 文件中。 （4）把所有第 1 个字母不是 A 的变量保存到 A3.MEM 文件中。 （5）清除所有内存变量 （6）恢复 A1.MEM 文件中变量（不加 additive）。 （7）清除以 A 开头的内存变量。 （8）清除所有第 3 个字母不为 O 的内存变量。 （9）清除所有内存变量。 （10）新增变量 A2=200，B2=50 （11）恢复 A1.MEM 文件中内存变量（带 additive） **建议同学们每执行一条命令后， 都执行一次 DISP MEMO 命令来观察内存变量的变化。 参考答案： （1）在命令窗口中用 STORE 和“=” 直接给变量赋值；DISP/LIST MEMO （2）SAVE TO A1 （3）SAVE TO A2 ALL LIKE ??O∗ （4）SAVE TO A3 ALL EXCEPT A∗ （5）RELEASE ALL （6）RESTORE FROM A1 （7）RELEASE ALL LIKE A* （8）RELEASE ALL EXCEPT ??O* （9）RELEASE ALL （10）在命令窗口定义变量 A2=200，B2=50 （11）RESTORE FROM A1 ADDITIVE 2．数组变量的定义和使用（在命令窗口中使用命令并写出结果）。 （1）定义数组 X(3,4)，Y(8) （2）写出下列命令的运行结果。 STORE 666 TO X(1, 4) X(8)=888
PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.com.cn
LIST/DISP FOR NOT 性别 （2）显示学生表中的“姓名，出生日期，奖学金”三个字段内容。 DISP ALL/LIST FIELDS 姓名,出生日期,奖学金 （3）显示学生表中 1982 年以前出生的学生记录。 DISP/LIST FOR YEAR(出生日期)<1982 （4）显示学生表中第 3~5 个记录。 GO 3 DISP/LIST NEXT 3 （5）显示学生表中从 5 个记录开始的剩余所有记录。 GO 5 DISP/LIST NEXT （6）显示全部姓“杨”的学生。 DISP/LIST FOR SUBSTR(姓名,1,2)=”杨” 6．表内容的修改（写出相关命令）。 （1）将学生表复制一个新表，新表名字为学生 2.DBF。 COPY TO 学生 2 （2）打开学生 2 表浏览窗口，修改第二个记录，将奖学金增加 10 元 USE 学生 2 BROWSE （3）将学生 2 表中第 2~5 个记录的奖学金增加 10 元 GO 2 REPLACE NEXT 3 奖学金 WITH 奖学金+10 （4）将学生 2 表中男同学的奖学金增加 10% REPLACE 奖学金 WITH 奖学金*(1+10%) FOR 性别 7．表内容的删除（写出相关命令） （1）将学生 2 表中奖学金>500 的记录删除并恢复，在 SET DELETED ON/OFF 状态下 用 LIST 命令查看结果。 USE 学生 2 DELETE FOR 奖学金>500 RECALL FOR 奖学金>500 （2）真正删除学生 2 表中的第 2~5 记录 用 DELETE/ PACK 命令 （3）删除学生 2 表中的全部记录 用 PACK 或 ZAP 两种方式
学 号 990103 990101 990202 990301 990403 990402 990102 990302 990203 990201 姓 名 吴晓竹 杨峰 陆杰 钱良锋 林虹 洪霞 林凯旋 杨小帆 凌飞扬 陈欣欣 表 3.4 学生表 性 别 出生日期 .T. .T. .T. .T. .F. .F. .T. .T. .T. .F. 07/21/80 11/05/82 09/27/80 09/09/81 08/06/82 06/12/82 09/04/80 03/03/81 06/12/80 0803/83 200 500 200 500 奖学金 1000 500 简 历 memo memo memo memo memo memo memo memo memo memo
PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.com.cn
STORE X(2, 4) TO Y(6) X(3,4)=X(4) ? X(4) ? X(2, 4) ? X(1, 4) ? X(12) ? Y(4) 1．DIMENSION X(3,4), Y(8) 2．本题的答案为：666，888，666，666，.F. 3．上机计算下列表达式的值。 （1）? 2*5 （2）? ‘I LOVE’ + ‘ CHINA’ （3）? ‘123’ – ‘56’ （4）? {08/12/98}-{08/10/98} （用 set stri to 0 将日期设置为不严格日期格式） （5）? ‘AS’ $ ‘ABDASD’ （6）? ‘AS’ = ‘ABDASD’ （7）? ‘AS’ = = ‘AS’ （8）? (8>5) .AND. ‘STRING’ $ ‘STR’ （9）? {11/26/96}–10 （10）? ‘DEF’ < ‘AB’ （1）10 （2）I LOVE CHINA （3）12356 （4）2 （5）.T. （6）.F. （7）.T. （8）.F. （9）11/16/96 （10）.F. 4．函数（在命令窗口使用下列函数并写出运行结果）。 【1】数值函数 （1）? INT(10−3.2) （2）? ROUND(282.467,1), ROUND(282.467,0) （3）? ABS(2∗3−8) （4）? MOD(218, 7), MOD(417, −8) （5）? MAX(128, 821),MIN(128, 821) （6）? SQRT (9) （7）? SIGN (-5) （8）? INLIST (80,20,100) （9）? BETWEEN (80,20,100) （10）? EMPTY ( 0 ) （11）? EMPTY ( ‘ ’ ) （12）? SIN ( 3.14/2 ) （13）?RAND(-5) 【运行结果为】 （1）6 （2）282.5 282 （3）2 （4）1 -7 （5）821 128 （6）3 （7）-1 （8）.F. （9）.T. （10）.T. （11）.T. （12）1.00 （13）随机值 【2】字符函数 Y=“ 123” （1）? 456+&Y （2）? LEFT(“ AABBCCDD”, 2) （3）? RIGHT(“ AABBCCDD”, 2) （4）? SUBSTR(“ AABBCCDD”, 4, 2), SUBSTR(“ AABBCCDD”, 0, 2) （5）? STUFF(“WORLD”, 2, 4, “ORK”)
实验一 Visual FoxPro 语言基础
一、实验目的
1．熟悉 VFP 的界面和环境。 2．掌握常量、变量的定义和使用。 3．掌握各种表达式的使用方法。 4．掌握常用函数的用法。
二、实验要求
1．熟悉 VFP 的界面和环境。 2．掌握变量的定义和使用（在命令窗口中使用命令并写出结果）。 3．了解数组的概念、定义，掌握数组的基本操作。 4．掌握运算符和表达式的使用（在命令窗口中使用命令并写出结果）。 5．掌握函数使用方法，主要有一般数值函数、字符函数、转换函数、测试函数等。