1、Visual FoxPro 程序设计实习教程与习题集(第 2 版)实习教程第 1 单元 Visual FoxPro 基本操作 (参考答案) 1利用对其赋值的方法，判定下列字符串是否为合法的内存变量名。 1）X1，X(1） ，X*，X ，X_1，1X 执行赋值命令：X1=3，或 STORE 3 TO X1，系统没有任何错误显示，知 X1 为合法的内存变量名。类似地，X_1 也为合法的内存变量名，其余为不合法。2）变量，变 量，变量 X，变量 1，变量_1 利用上面的方法可以判定：变量，变量 X，变量 1，变量_1 为合法内存变量名，其余不合法。2计算并显示下面各题的结果。 1）分别利用函数(MO
2、D)和运算(%)，求出 987654321 除以 123456789 的余数。 利用函数：? MOD(987654321,123456789) 显示: 9 利用运算：? 987654321%123456789 显示: 9 2）若 X=5.1249，求 2X与 X2的最小值。 命令: X=5.1249? MIN(2X,X2) 显示: 26.2646 3) 设：a=1，b=4，c=3，计算一元二次方程：aX 2+bX+c=0 的两个根。 命令: a=1b=4c=3? (-b+SQRT(b2-4*a*c)/(2*a) 显示: -1.0000? (-b-SQRT(b2-4*a*c)/(2*a) 显示:
3、 -3.00004） 设 C1=AB，C2=SPACE(2 ） ，C3=str(3.14,5,2） ，且 A1=C1+C2+C3， A2=trim(C1+C2-C3） 求 A1 和 A2 的长度。 命令: C1=ABC2=SPACE(2)C3=STR(3.14,5,2)A1=C1+C2+C3A2=TRIM(C1+C2-C3)?LEN(A1) 显示:9?LEN(A2) 显示:75）设 C1= SPACE(2） ，C2=”ABC” ,C3=SPACE(3） ，且 A1=C1+C2+C3， A2=trim(C1+C2+C3）, A3=ltrim(C1+C2+C3), A4=alltrim(C1+C2
4、+C3) 求 A1、A2、A3、A4 的长度。 命令: C1=SPACE(2)C2=”ABC”C3=SPACE(3)A1=C1+C2+C3A2=trim(C1+C2+C3)A3=ltrim(C1+C2+C3)A4=alltrim(C1+C2+C3)?LEN(A1) 显示:8?LEN(A2) 显示:5?LEN(A3) 显示:6?LEN(A4) 显示:36）设 A=微型计算机 ，利用函数 SUBSTR 和 A 表示字符串 微机 。 命令：A=微型计算机 ? SUBSTR(A,1,2) + SUBSTR(A,9,2) 显示: 微机7）求出从今天起，万天之后的日期。 命令：? DATE() + 100
5、00 显示: 09/06/36 （与当天日期有关）8）求到今天为止，香港回归祖国的天数。 命令：? DATE() 1997/07/01 显示: 4312 （与当天日期有关）9）写出如下表达式的值，然后利用计算机验证自己的答案。 X+YX*Y OR XY ，其中：X=1，Y=2 命令：X=1Y=2? X+YX*Y OR XY 显示: .T. 94005显示 ZGGZ2.DBF 的结构。 use zggz2list structure6浏览 ZGGZ2.DBF 的记录。 use zggz2browse 实习教程第 4 单元 数据表记录的指针移位 (参考答案)1. 顺序执行下面有关记录指针移位的命令
6、，并解释得到的结果。 USE ZGGZ ? BOF() 显示结果：.F.（表示此时记录指针不在表顶） GO 5 ? RECNO() 5 （表示此时记录指针指在第 5 条记录上） SKIP -2 ? RECNO() 3 （表示此时记录指针指在第 3 条记录上） GO TOP ? BOF() .F.（表示此时记录指针不在表顶） ? RECCOUNT() 8 （表示此表共有 8 条记录） 实习教程第 5 单元 数据表记录的追加 (参考答案)1. 将数据表 ZGGZ.DBF 的结构复制到新的数据表 TEMP.DBF，并显示新表的结构。 USE ZGGZCOPY STRUCTURE TO TEMPUSE
7、 TEMPLIST STRUCTURE2. 向 TEMP.DBF 随意追加 2 条记录，要求输入备注信息。 USE TEMPAPPEND在弹出的追加记录窗口中，向除“memo”以外的字段随意输入数据。然后，双击“memo” ， 在打开的窗口中，随意输入文字。最后，单击窗口的“关闭”按钮。3. 将 ZGGZ.DBF 中所有职务为“科长”的记录追加到 TEMP.DBF 中，并浏览结果。 APPEND FROM ZGGZ FOR 职务=科长BROWSE实习教程第 6 单元 数据表记录的显示和修改 (参考答案)1. 分别用 LIST 和 DISPLAY 显示 ZGGZ.DBF 中所有未婚职工的姓名、婚
8、否和基本工资字段。 use zggzlist 姓名,婚否,基本工资 for 婚否=.F.display 姓名,婚否,基本工资 for .NOT. 婚否2显示 ZGGZ.DBF 中， 1960 年 1 月 1 日 之后出生且基本工资超过 400 元的职工信息。 list for 出生日期 1960/1/1 AND 基本工资4003显示 ZGGZ.DBF 中第 4 到第 8 号记录中“王”姓的职工信息。 （提示：先将记录指针移到第 4 号记录上，再在命令中指定范围。 ） go 4 list next 5 for substr(姓名,1,2)=王4. 在 ZGGZ.DBF 的编辑窗口中，利用键盘输入
9、对所有女职工的“实发工资”字段进行修改，使得：实发工资 = 基本工资奖金扣款。 （略）5. 利用 REPLACE 命令对所有男职工的记录完成上述操作。 replace 实发工资 with 基本工资+奖金-扣款 for 性别=男 6. 利用 REPLACE 命令为所有职务为科长的奖金增加 20 元。 replace 奖金 with 奖金+20 for 职务=科长 7. 利用 REPLACE 命令为所有职工的基本工资增加 10%。 replace all 基本工资 with 基本工资*1.1 8. 利用 BROWSE 命令，查看上述的替换的结果。 browse 实习教程第 7 单元 数据表记录的删
10、除 (参考答案)准备：将数据表 ZGGZ.DBF 复制成 TEMP.DBF，并打开 TEMP.DBF。use zggzcopy to tempuse temp1对所有的未婚科员记录加删除标记。 DELETE FOR 职务=科员 AND 婚否=.F.2对基本工资少于 400 元的记录加删除标记。 DELETE FOR 基本工资=400displaycontinue 2. 利用 SEEK 进行如下的快速查询。 1）查找并显示姓名为“苏平”的职工记录。 set order to xmseek 苏平 display2）查找并显示出所有职务为“科长”的职工记录。 set order to zwseek 科长 displayskipdisplay3）查找并显示男科长的记录。 （提示：利用第 8 单元中按“性别”和“职务”建立的索引。 ） set order to xbzwseek 男科长 display
