VF模拟试题 及答案（1）.pptx

学 海 无 涯 《VFP 程序设计》期末模拟试卷-Ⅰ ;2;3;4;学 海 无 涯 ?RECNO(),EOF() 10 .F. SKIP +1 ?RECNO(),EOF() 11 .T. 3、若有图书库存表“BOOKSTORE.DBF” (书号 N 5，书名 C 20，作者 C 8，出版日期 D 8， 出版社 C 10，定价 N 5,2，册数 N 5，总价 N 8，2 )，部分数据记录如下，请给出完成 下列任务的 Visual FoxPro 命令。 ;6;7;8;学 海 无 涯 2、编写程序实现从键盘上输入正整数 N，计算 1!+2!+……+N!。要求 N 的阶乘计算代码按函 数的形式来组织，过程名为 JC，请写出完整的程序代码。（5 分） input "输入正整数 N:" to n sum=0 for i=1 to n sum=sum+jc(i) endfor ?"1!+2!+……+N!",sum retu function jc(m) t=1 for j=1 to m t=t*j endfor retu t 3、若设计如下图所示的求解一元二次方程根的表单程序，其中方程的三个参数从表单的文 本框(Text1、Text2、Text3)中输入，单击“求解”按钮求实数根，所求实数根显示在 文本框（Text4 和 Text5）中。（5 分） ;学 海 无 涯 《Visual FoxPro 程序设计》期末模拟试卷-Ⅱ ;11;12;;;学 海 无 涯 五、程序阅读题（每空 2 分，共 10 分） 1．若 STUDENT.DBF 是一个有 10 条记录的表文件，若在交互方式下依次顺序执行如下命令序 列，请空格处填上屏幕的显示结果。 USE STUDENT.DBF ?RECNO()，BOF() 1 .f. SKIP –1 ?RECNO()，BOF() 1 .t. GO BOTTOM ?RECNO()，EOF() 10 .f. ;16;17;学 海 无 涯 n=1 s=1 do while s>=0.000001 t=t*n s=1/t e=e+s n=n+1 enddo ?"1+1/1!+1/2!+1/3!+……1/n!=",e retu ;学 海 无 涯 1. Visual FoxPro 中，在建立字段的类型时，C 表示字符型字段，N 表示数字型字段，M 表;;学 海 无 涯 ;学 海 无 涯 ;23;24;;学 海 无 涯 X=X+1 DO CASE CASE INT(X/2)=X/2 LOOP CASE X>=100 ;27;学 海 无 涯 另外一个退出（CmdReturn）按钮用于结束表单的运行，下面是该命令按钮组 Click 事件的代 码，请把程序中的空缺部分填上。 ;学 海 无 涯 七、编程（每题 5 分，共 10 分） 1. 编写程序实现对 SCORE.DBF 中每条记录根据“成绩”字段值（百分制）自动替换其“等级” 字段。其中，SCORE 表的结构为 SCORE（学号 C（5），姓名 C(8)，班级 C??10），成绩 N（3， 0），等级 C（6））。判断的依据是：若成绩大于等于 90 填入“优秀”，若成绩大于等于 80 小于 90 填入“良好”，若成绩大于等于 60 小于 80 填入“及格”，60 以下填写“不及格”。 请参考《实验教程》P56 多分支结构程序设计 ;;;;学 海 无 涯 （17）在 Visual FoxPro 中，为了将按钮的 Click 事件代码设置为表单从内存中释放（清除）， 可 将 表 单 中 退 出 命 令 ( ) 。 ;;学 海 无 涯 D)在程序中直接使用的内存变量(不通过 A，B，C 说明) ;学 海 无 涯 ;37;学 海 无 涯 ;学 海 无 涯 查 询 结 果 是 ( ) 。 ;40;41