《Visual FoxPro 语言基础.doc》由会员分享，可在线阅读，更多相关《Visual FoxPro 语言基础.doc（7页珍藏版）》请在金锄头文库上搜索。
1、实验七Visual FoxPro 语言基础一、实验课时3学时二、实验目的？1熟悉VFP的界面和环境。2掌握常量、变量的定义和使用。3掌握各种表达式的使用方法。4掌握常用函数的用法。三、实验要求1熟悉VFP的界面和环境。2掌握变量的定义和使用（在命令窗口中使用命令并写出结果）。3了解数组的概念、定义，掌握数组的基本操作。4掌握运算符和表达式的使用（在命令窗口中使用命令并写出结果）。5掌握函数使用方法，主要有一般数值函数、字符函数、转换函数、测试函数等。四、上机内容1内存变量的定义和使用（在命令窗口中使用命令并写出结果）。设 ABOUT=8，AMOUNT=“18”，BOOK=10，ROOT=“HA
2、PPY”，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命令来
3、观察内存变量的变化。2数组变量的定义和使用（在命令窗口中使用命令并写出结果）。（1）定义数组X(3,4)，Y(8)（2）写出下列命令的运行结果。STORE 666 TO X(1, 4)X(8)=888STORE X(2, 4) TO Y(6)X(3,4)=X(4)? X(4)? X(2, 4)? X(1, 4)? X(12)? Y(4)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 = AB
4、DASD（7）? AS = = AS（8）? (85) .AND. STRING $ STR（9）? 11/26/9610（10）? DEF 2,1,-1 )（4）? SET ( CENT )【运行结果】（1）如按下字母“A”，则返回65（2）.T.或.F.（3）1（4）OFF实验二表的建立与指针操作一、实验学时3学时二、实验目的1掌握表结构的建立与操作。2掌握表内容的编辑。三、实验要求1熟练掌握表结构的建立方法。2掌握表结构的修改和显示。3掌握表的打开和关闭方法。4掌握表数据的输入方法。5掌握记录指针的定义及其定位方法。6掌握表内容的追加、修改、显示、删除等。四、上机内容1建立如下所示的学生
5、表，并保存在指定文件夹下（如D:VFP）。（1）表结构如下：表3.1学生表结构字段名类 型宽 度小数位学号字符型6姓名字符型8性别逻辑型1出生日期日期型8奖学金数值型62简历备注型4（2）请输入表内容；表内容如下所示：表3.4学生表学号姓名性别出生日期奖学金简历990103吴晓竹.T.07/21/801000memo990101杨峰.T.11/05/82500memo990202陆杰.T.09/27/80memo990301钱良锋.T.09/09/81memo990403林虹.F.08/06/82500memo990402洪霞.F.06/12/82200memo990102林凯旋.T.09/0
6、4/80500memo990302杨小帆.T.03/03/81memo990203凌飞扬.T.06/12/80200memo990201陈欣欣.F.0803/83memo2对表结构进行如下操作（在命令窗口写出相关命令）。（1）将学生表结构复制到新表，（新表名字为学生1.DBF），学生1只含有学生表中姓名，学号，性别等三个字段。COPY STRUCTURE TO 学生1 FIELDS 姓名,学号,性别（2）在学生1表中，增加“成绩”字段。USE 学生1MODIFY STRU然后在表设计器窗口中单击“插入”按钮（3）显示表结构LIST/DISP STRU3. 表内容的编辑操作（在命令窗口写出相关命
7、令）（1）将学生表的记录大批追加到学生1中。USE 学生1APPEND FROM 学生（2）在学生1表中第三条记录前插入一条记录（内容自定）USE学生1GO 3INSERT BEFORE（3）对学生1表中的第二条记录编辑备注字段，添加内容“THE STUDENT IS GOOD”USE 学生1GO 2MODI MEMO 简历或直接在浏览窗口中双击第2条记录的备注字段4记录指针及定位（写出下列命令的执行结果）。（1）打开学生表，执行命令LIST以后，用EOF()函数测试一下记录指针是否指向文件结束标识位置。USE 学生 LIST?EOF().T.（2）将记录指针移动到记录号3，执行命令LIST
8、REST以后，用RECNO()函数测试一下记录指针的位置。GO 3LIST REST?RECNO()11（3）把学生表的记录指针移动到记录号2，执行命令LIST NEXT 3以后，用RECNO()和EOF()函数测试一下记录指针的位置。GO 2LIST NEXT 3?RECNO(),EOF()4.T.（4）将记录指针移动到首记录，再执行命令SKIP 1以后，分别用RECNO()和BOF()函数测试一下记录指针的位置。GO TOPSKIP 1?RECNO(),BOF()1.T.（5）将记录指针移动到末记录，再执行命令SKIP以后，分别用RECNO()和EOF()函数测试一下记录指针的位置。GO
9、BOTTOMSKIP?RECNO(),EOF()11.T.5表内容的显示（写出相关命令）。（1）显示学生表中的女同学记录。LIST/DISP FOR NOT 性别（2）显示学生表中的“姓名，出生日期，奖学金”三个字段内容。DISP ALL/LIST FIELDS 姓名,出生日期,奖学金（3）显示学生表中1982年以前出生的学生记录。DISP/LIST FOR YEAR(出生日期)1982（4）显示学生表中第35个记录。GO 3DISP/LIST NEXT 3（5）显示学生表中从5个记录开始的剩余所有记录。GO 5DISP/LIST NEXT（6）显示全部姓“杨”的学生。DISP/LIST FOR SUBSTR(姓名,1,2)=”杨”6表内容的修改（写出相关命令）。（1）将学生表复制一个新表，新表名字为
