《VisualFoxPro程序设计实习教程与习题集》由会员分享，可在线阅读，更多相关《VisualFoxPro程序设计实习教程与习题集（16页珍藏版）》请在金锄头文库上搜索。
1、Visual FoxPro 程序设计实习教程与习题集实习教程第 11 单元 程序设计初步 (参考答案)1编写一程序，计算并显示圆的周长(L)和面积(S)，其中半径(R)由 INPUT 语句读入。SET TALK OFFINPUT R: TO RPI=3.1416L=2*PI*RS=PI*R2? L=,L? S=,SRETURN2. 编写一程序，读入圆柱体的高(H)和底面半径(R)，计算并显示圆柱体的体积(V)。SET TALK OFFINPUT H: TO HINPUT R: TO RV=3.1416*R2*H? V=,VRETURN3. 编写一程序，首先由用户输入一个职务，如：“科长”，“处
2、长”等，然后显示数据表 ZGGZ.DBF 中所有该职务的职工记录。 SET TALK OFFUSE ZGGZACCEPT 职务： TO ZWLIST FOR 职务=ZWRETURN实习教程第 12 单元 分支结构的程序设计 (参考答案)1编写一程序，输入一个英文字母，若为大写，则显示它的小写字母，若为小写则显示它的大写字母。set talk offaccept 输入一个字符: to chif upper(ch)=ch? lower(ch)else? upper(ch)endifreturn2. 编写程序，计算分段函数： 的值。set talk offinput x= to xinput y=
3、to yif x=90n1=n1+1case x=80n2=n2+1case x=70n3=n3+1case x=60n4=n4+1otherwisen5=n5+1endcasei=i+1enddo? 90 分以上人数 :,n1? 80-89 分人数 :,n2? 70-79 分人数 :,n3? 60-69 分人数 :,n4? 60 分以下人数 :,n5return7编写一个二重循环程序，显示如下的乘法口诀表。set talk offi=1do while i=4 and recno()400displaycontinuedisplaycontinue2. 利用 SEEK 进行如下的快速查询。1
4、）查找并显示姓名为“苏平”的职工记录。set order to xmseek 苏平display2）查找并显示出所有职务为“科长”的职工记录。set order to zwseek 科长displayskipdisplayskipdisplayskipdisplay3）查找并显示男科长的记录。set order to xbzwseek 男科长display3. 在数据表 ZGGZ.DBF 中，进行如下的数据表筛选操作：1）筛选出 65 年以前出生的所有职务为“科员”的职工记录，并显示当前记录。执行 GO TOP 命令后，再显示当前记录，查看两者的区别。set filter to year(出生
5、日期)=400 and 基本工资4005分别显示 ZGGZ2.DBF 的结构和浏览其记录。use zggz2list structurebrowse实习教程第 4 单元 数据表记录的指针移位 (参考答案)1. 顺序执行下面有关记录指针移位的命令，并解释得到的结果。? BOF() .F.? RECNO() 5? RECNO() 3? BOF() .F.? RECCOUNT() 8实习教程第 5 单元 数据表记录的追加 (参考答案)1. 将数据表 ZGGZ.DBF 的结构复制到新的数据表 TEMP.DBF，并显示新表的结构。use zggzcopy structure to tempuse tem
6、plist structure2. 向 TEMP.DBF 随意追加 2 条记录，要求输入备注信息。append3. 将 ZGGZ.DBF 中所有职务为“科长”的记录追加到 TEMP.DBF 中，并浏览结果。append from zggz for 职务=“科长“browse实习教程第 6 单元 数据表记录的显示和修改 (参考答案)1. 分别用 LIST 和 DISPLAY 显示 ZGGZ.DBF 中所有未婚职工的姓名、婚否和基本工资字段。use zggzlist 姓名,婚否,基本工资 for not 婚否display all 姓名,婚否,基本工资 for not 婚否2显示 ZGGZ.DBF
7、 中，1960 年 1 月 1 日之后出生且基本工资超过 400 元的职工信息。list for 出生日期1960/1/1 and 基本工资4003显示 ZGGZ.DBF 中 48 号记录中“王”姓的职工信息。（提示：先将记录指针移到第 4 号记录上。）go 4list next 5 for substr(姓名,1,2)=王4. 在 ZGGZ.DBF 的编辑窗口中，对所有女职工的“实发工资”字段进行修改，使得：实发工资等于基本工资奖金扣款。change5. 利用 REPLACE 命令对所有男职工的记录完成上述操作。replace 实发工资 with 基本工资+奖金-扣款 for 性别=男6.
8、利用 REPLACE 命令为所有职务为科长的奖金增加 20 元。replace 奖金 with 奖金+20 for 职务=科长7. 利用 REPLACE 命令为所有职工的基本工资增加 10%。replace all 基本工资 with 基本工资*1.18. 利用 BROWSE 命令，查看上述的替换的结果。browse实习教程第 7 单元 数据表记录的删除 (参考答案)准备：将数据表 ZGGZ.DBF 复制成 TEMP.DBF，并打开 TEMP.DBF。use zggzcopy to tempuse temp1对所有的未婚科员记录加删除标记。delete for 婚否=.f. and 职务=科员
9、list2对基本工资少于 400 元的记录加删除标记。delete for 基本工资4003分别在取消遮盖和遮盖带删除标记记录的环境下，显示数据表的记录。set delete offlistset delete onlist4打开 BROWSE 窗口，利用鼠标单击的方法，练习为记录添加和取消删除标记的操作。（需在取消遮盖带删除标记记录的环境下操作）set delete offbrowse5利用命令取消所有记录的删除标记。recall all6物理删除最后一条记录。go bottomdeletepack7物理删除 1969 年及以前出生的职工记录。delete for year(出生日期)=1969pack8物理删除数据表的所有记录。zap
