Visual FoxPro程序设计实习教程与习题集（参考答案）

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）分别利用函数(mod)和运算(%)，求出987

2、654321除以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，计算一元二次方程：ax2+bx+c=0的两个根。 命令: a=1 b=4 c=3 ? (-b+sqrt(b2-4*a*c)/(2*a) 显示: -1.0000 ? (-b-sqrt(b2-4*a*c)/(2*a) 显示: -3.0000 4） 设c1=ab

3、，c2=space(2），c3=str(3.14,5,2），且a1=c1+c2+c3， a2=trim(c1+c2-c3） 求a1和a2的长度。 命令: c1=ab c2=space(2) c3=str(3.14,5,2) a1=c1+c2+c3 a2=trim(c1+c2-c3) ?len(a1) 显示:9 ?len(a2) 显示:7 5）设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+c3) 求a1、a2、a3、a4的长度。 命令

4、: 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+c3) ?len(a1) 显示:8 ?len(a2) 显示:5?len(a3) 显示:6?len(a4) 显示:3 6）设a=微型计算机，利用函数substr和a表示字符串微机。 命令：a=微型计算机 ? substr(a,1,2) + substr(a,9,2) 显示: 微机 7）求出从今天起，万天之后的日期。 命令：? date() + 10000 显示: 09/06/36 （与当天日期有关

5、） 8）求到今天为止，香港回归祖国的天数。 命令：? date() 1997/07/01 显示: 4312 （与当天日期有关） 9）写出如下表达式的值，然后利用计算机验证自己的答案。 x+yx*y or xy ，其中：x=1，y=2 命令：x=1 y=2 ? x+yx*y or xy 显示: .t. 94 and 4#2 or not 2*3=sqrt(16) 命令：? 9400 5显示zggz2.dbf的结构。 use zggz2list structure6浏览zggz2.dbf的记录。 use zggz2 browse 实习教程第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 zggz copy structure to temp

7、use temp list structure 2. 向temp.dbf随意追加2条记录，要求输入备注信息。 use temp append 在弹出的追加记录窗口中，向除“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 基本工资400 3显示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单元 数据表记录的删除 (参考答案)准备：将数据表zggz.dbf复制成temp.dbf，并打开

10、temp.dbf。 use zggz copy to temp use temp1对所有的未婚科员记录加删除标记。 delete for 职务=科员 and 婚否=.f. 2对基本工资少于400元的记录加删除标记。 delete for 基本工资400 3分别在取消遮盖和遮盖带删除标记记录的环境下，显示数据表的记录。 set delete off list set delete on list 4打开browse窗口，利用鼠标单击的方法，练习为记录添加和取消删除标记的操作。 （需在取消遮盖带删除标记记录的环境下操作） （略） 5利用命令取消所有记录的删除标记。 recall all 6物理删除

11、最后一条记录。 go bottom delete pack 7物理删除1969年及以前出生的职工记录。 delete for year(出生日期)=400 display continue 2. 利用seek进行如下的快速查询。 1）查找并显示姓名为“苏平”的职工记录。 set order to xm seek 苏平 display2）查找并显示出所有职务为“科长”的职工记录。 set order to zw seek 科长 display skip display 3）查找并显示男科长的记录。（提示：利用第8单元中按“性别”和“职务”建立的索引。） set order to xbzw see

12、k 男科长 display 实习教程第10单元 数据表的统计 (参考答案) 1分别统计数据表中已婚的男职工和未婚的女职工人数。 use zggz count for 性别=男 and 婚否=.t. count for 性别=女 and 婚否=.f. 2求出所有男职工的人数和基本工资总额，并分别赋值给cn和sn，利用上述两个内存变量计算出男职工的平均工资。 count for 性别=男 to cn sum 基本工资for 性别=男 to sn ? sn/cn 3计算所有职务为科长的平均年龄。 average year(date()-year(出生日期) for 职务=科长 4计算所有职工的基本工

13、资和奖金的总金额。 sum 基本工资+奖金实习教程第11单元 程序设计初步 (参考答案)1. 编写一程序，计算一元二次方程ax2+bx+c=0的根。其中系数a,b,c由input语句读入。运行该程序时，分别为a,b,c输入3，4，1。 set talk off input a= to a input b= to b input c= to c x1=(-b+sqrt(b*b-4*a*c)/(2*a) x2=(-b-sqrt(b*b-4*a*c)/(2*a) ? x1=,x1 ? x2=,x2 return2. 编写一程序，读入圆柱体的高(h)和底面半径(r)，计算并显示圆柱体的体积(v)。 s

14、et talk off input h: to h input r: to r v=3.1416*r2*h ? v=,v return3. 编写一程序，首先由用户输入一个职务，如：“科长”，“处长”等，然后显示数据表 zggz.dbf中所有该职务的职工记录。（提示：利用list命令。） set talk offuse zggzaccept 职务： to zwlist for 职务=zwreturn实习教程第12单元 分支结构的程序设计 (参考答案)1. 编写一程序，输入一个英文字母，若为大写，则显示它的小写字母；若为小写，则显示它的大写字母。 set talk offaccept 输入一个字符

15、: to chif upper(ch)=ch ? lower(ch)else ? upper(ch)endifreturn2. 编写一程序，输入x、y的值，计算分段函数： 的值。 执行程序，分别计算x=3, y=5和x=1500, y=1200时z的值。 set talk offinput x= to xinput y= to yif xy z=x*x+2*x*y+y*yelse if x=y z=x+y else z=x-y endifendif? z=,zreturn3. 编写一程序，输入某人的收入额，计算其个人所得税。 个人所得税的计算方法为：不超过500元的税率为5，500元到2000

16、元部分的税率为10，超过2000元部分的税率为 15。 set talk off input x= to x if x=500 t=x*0.05 else if x=2000 t=500*0.05+(x-500)*0.1 else t=500*0.05+1500*0.1+(x-2000)*0.15 endif endif ? 税金为: ,str(t,6,2) return4. 用do case语句编写第3题的程序，并重复上面的计算。 set talk off input x= to x do case case x=500 t=x*0.05 case x=0 ? x1=,(-b+sqrt(d)

17、/(2*a) ? x2=,(-b-sqrt(d)/(2*a) else ? 方程无实数根！ endif return实习教程第13单元 循环结构的程序设计 (参考答案)1. 编写一程序，计算 s1/2+1/22+1/23+1/2n，其中n由用户输入。(保留小数点后5位) 利用程序分别计算n=5，10和20时，s的值。 提示：对s赋初值为0.00000，可达到保留小数点后5位的目的。 set talk offs=0.00000i=1input n= to ndo while i=n s=s+1/2i i=i+1enddo? s=,sreturn2. 在数据表zggz.dbf中，循环查找和显示所有

18、1970年以前出生的职工记录。 set talk off use zggz locate for year(出生日期)1970 do while found() display continue enddo return3利用循环编程计算zggz.dbf中男职工的平均工资。 set talk off use zggz s=0 n=0 do while not eof() if 性别=男 s=s+基本工资 n=n+1 endif skip enddo ? 男职工平均工资为: ,str(s/n,6,2) return4.利用scan语句编写第2题的程序。 set talk off use zggz

19、 scan for year(出生日期)1970 display endscan return5.利用scan语句编写第3题的程序。set talk offuse zggzs=0n=0scan for 性别=男 s=s+基本工资 n=n+1endscan? 男职工平均工资为: ,str(s/n,6,2)return 6. 设一个班有10名学生，循环输入每个学生的分数（百计分），统计并显示各分数段的人数。其中分数段的划分如下：90分以上，8089分，7079分，6069分，60分以下。 set talk off store 0 to n1,n2,n3,n4,n5 i=1 do while i=9

20、0 n1=n1+1 case x=80 n2=n2+1 case x=70 n3=n3+1 case x=60 n4=n4+1 otherwise n5=n5+1 endcase i=i+1 enddo ? 90分以上人数 :,n1 ? 80-89分人数 :,n2 ? 70-79分人数 :,n3 ? 60-69分人数 :,n4 ? 60分以下人数 :,n5 return7. 编写一个程序，求解猴子吃桃问题。猴子第一天摘了若干桃子，当即吃了一半，又多吃了一个；第二天早上又将剩下的桃子吃了一半，又多吃了一个；以后每天早上都是如此。到了第10天早上想吃时，就剩下一个桃子。问第一天共摘了多少桃子。 s

21、et talk off d=10 n=1 do while d=1 ? 第+str(d,2)+天有+str(n,4)+个桃子。 n=2*(n+1) d=d-1 enddo return8. 编写一程序，显示如下图形，其中星号之间有一个空格： * * * * * * * * * * * * * * * * set talk off i=1 do while i=4 ? space(2*i-1) j=1 do while j=9-2*i ? * j=j+1 enddo i=i+1 enddo return9. 编写一个二重循环程序，显示如下的乘法口诀表。 set talk off i=1 do w

22、hile i=9 j=1 do while j=i ? str(i,2)+*+str(j,1)+=+str(i*j,2) j=j+1 enddo ? i=i+1 enddo return 习题集参考答案 第 1 部分 vfp基础知识 一、选择题1d11c21a31d41b51ab2c12b22d32b42c52a3a13d23a33c43c53b4b14d24c34c44d54b5d15d25a35d45b55a6d16d26d36a46b7d17d27d37c47d8c18a28c38a48d9a19b29b39c49a10a20a30b40d50d 二、填空题1数据库管理系统26n2关系模

23、型27c3关系28.f.4二维表29efg5属性（或字段）30.f. (2009-4-2修改） 6元组（或记录）3117选择3258连接33.t.9元组34.t.10属性35d11quit36数值型12交互37.f.13字段38数值型14年月日39315century40a16c41逻辑型 (2009-4-2修改）172008/10/0842.t. (2009-4-2修改）18clear43or (2009-4-2修改）19?20?21store 3 to x,y,z22-16231524123456258习题集参考答案 第 2 部分 数据表 一、选择题1a*11d21d31a41a51d2c

24、12c22c32d42b52d3a13b23d33c43d53c4c14a24b34d44d54b5a15a25a35a45c6a16a26a36a46a7c17d27a37d47b8a18a28d38a48b9d19b29d39d49b10d20b30c40c50c* ：第1题题干中应删除“日期型、”几个字。 二、填空题1通用26replace2dbf27recall3128pack4929set delete on5fpt30delete rest6default31index on 职称 tag zc7create32结构复合8use books33唯一9rest34普通10copy structure35cdx11表设计器36set order to 索引名12l37set order to13.f.38continue14.f.39.f.1510140count for 年龄=3024replace 工资 with 工资*1.1 for 职称=工程师25笔试=60 and 上机=60习题集参考答案 第 3 部分 程序设计 一、选择题1a6b2c7a3a8a4b9a5a10c 二、填空题1input11嵌套循环2*3set talk off4