VFP实验答案

PDF 文件使用 "pdfFactory Pro" 试用版本创建
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,令窗口中使用命令并写出结果）。 设 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
三、实验内容
1．建立如下所示的学生表，并保存在指定文件夹下（如 D:\VFP）。 （1）表结构如下：
表 3.1 学生表结构 类 型 宽 度 字符型 6 8 字符型 逻辑型 1 日期型 8 数值型 6 备注型 4
字段名 学号 姓名 性别 出生日期 奖学金 简历
小数位
2
（2）请输入表内容；表内容如下所示：
2．对表结构进行如下操作（在命令窗口写出相关命令）。 （1）将学生表结构复制到新表，（新表名字为学生 1.DBF），学生 1 只含有学生表中 姓名，学号，性别等三个字段。 COPY STRUCTURE TO 学生 1 FIELDS 姓名,学号,性别 （2）在学生 1 表中，增加“成绩”字段。
PDF 文件使用 "pdfFactory Pro" 试用版本创建
实验一 Visual FoxPro 语言基础
一、实验目的
1．熟悉 VFP 的界面和环境。 2．掌握常量、变量的定义和使用。 3．掌握各种表达式的使用方法。 4．掌握常用函数的用法。
二、实验要求
1．熟悉 VFP 的界面和环境。 2．掌握变量的定义和使用（在命令窗口中使用命令并写出结果）。 3．了解数组的概念、定义，掌握数组的基本操作。 4．掌握运算符和表达式的使用（在命令窗口中使用命令并写出结果）。 5．掌握函数使用方法，主要有一般数值函数、字符函数、转换函数、测试函数等。
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）显示学生表中的女同学记录。
PDF 文件使用 "pdfFactory Pro" 试用版本创建
实验二 表的建立与指针操作
一、实验目的
1．掌握表结构的建立与操作。 2．掌握表内容的编辑。
二、实验要求
1．熟练掌握表结构的建立方法。 2．掌握表结构的修改和显示。 3．掌握表的打开和关闭方法。 4．掌握表数据的输入方法。 5．掌握记录指针的定义及其定位方法。 6．掌握表内容的追加、修改、显示、删除等。
学 号 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" 试用版本创建
（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