vfp答案vfp答案.doc

填空 在学生表中查找并输出指定学生的所有信息 INDEX ON 学号 TO IXH !FOUND() DISPLAY 判断给定的正整数表达式的值是否为素数,并能反复判断 FOR I=2 TO X-1 I=X IF UPPER(YN)=”Y”或者IF LOWER(YN)=”y” 输入边长,如果能构成三角形,则计算三角形面积. DO WHILE .T. LOOP M=SQRT(U*(U-X)*(U-Y)*(U-Z)) 在屏幕上显示输出一个九九乘法表. X=1 ??STR(X,1)+”*”+STR(Y,1)+”=”+STR(X*Y,2)+” ” ? 根据输入的数据,计算不大于该数的所有奇数累加和. UPPER(YN)=”Y” INT(X/2)X/2 WAIT或者ACCEPT或者INPUT 根据输入的数据,判断该数是否为偶数,可以反复判断. DO WHILE UPPER(YN)=”Y” N%2!=0或者 N/2!=INT(N/2) 或者 MOD(N,2)!=0 WAIT 显示指定表中的全部字段名,并由用户输入显示表信息的条件,最后列表显示满足条件的记录. USE(TBN) 或者 USETBN FCOUNT() For EXPR 接收从键盘输入的任意5个数,输入的数字可以是负数,但最多包括3位符号位.程序的功能是,,找出其中最大的数和最小的数,最后显示出来. ZX=X DO WHILE N1 ZXX 显示输出学生表中每个班级男女生的奖学金总金额. DO WHILE !EOF() LEFT(学号,3)=CLASS 或者 SUBSTR(学号,1,3)=CLASS SKIP 返回给定字符串表达式的倒置字符串.例如,输入字符串”ABCD”,倒置后输出的字符串为”DCBA”. C=”” 或者 C=SPACE(0) Do While L0 C+Q 利用公式e的x次方=1+X+X2/2!+X3/3!+…+XN/N!,输入X和N,计算e的x次方的近似值. S=1 FOR I=1 TO N S=S+A/B 输入一个正整数M,判断并显示1~M中有哪些数可以分为两个相等的素数.(例如,M=10，有2个数符合,即3+3=6和5+5=10。) ELSE J=2 TO I-1 IF JI-1 或者 IF J=I 本程序实现口令验证.输入次数在3次以内,给予重输的提示;超过3次,则进入死循环. EXIT IF I=3 或者 IF I=3 I=I+1 14. 显示学生表中的获得奖学金的学生姓名和奖学金数额 DO WHILE !EOF() IF 奖学金0 SKIP 15. 填空本程序显示学生表中1990年或以前出生的学生姓名和出生年月(日期型)。 LOCATE FOR YEAR(出生年月)=1990 DO WHILE !EOF() CONTINUE 16. 计算一个十进制正整数N的各位数字之和（如输入：12378，则计算1+2+3+7+8。） ELSE DO WHILE M0 M=INT（M/10） 17. 本程序实现从键盘中输入5个数，去掉一个最大数和一个最小数，然后求平均值。 Store N to A,B,S AN S=S+N 18.计算1！+3！+5！+……+N！，N由键盘输入 INPUT “N=” TO N S=S+T T=T*J 19设变量N 的输入值为5，字符A的ASCII码为65。 SPACE(N-I) 2*I-1 CHR(65+I-1) 20将表“学生.DBF”中指定学生（键盘输入）的奖学金加60，并显示该学生的记录。 LOCATE FOR 学号=M REPLACE 奖学金 WITH 奖学金+60 ENDIF 21下面程序统计指定学生的平均成绩及该成绩的档次 LOCATE FOR 学号=XH AVERAGE 成绩 TO PJCJ FOR 学号=XH OTHERWISE 22程序输入的结果如图所示（三角*********） H=5 SPACE(H-K) 2*K-1 23编程实现将日期转换成中文星期的字定义函数 N=DOW(D) OTHERWISE RETURE C 24百钱买百鸡。 FOR Y=0 TO 33 IF 5*X+3*Y+Z/3=100 ENDFOR 25输入一个自然数，判断是否为完数（若该数除本身之外的所有因子之和等于该数，则为完数。例如，1+2+3=6，6为完数；1+2+4=、8，8不是完数） S=0 或者 STORE 0 TO S MOD(M,N)=0 或者 INT(M/N)=M/N 或者 M%N=0 S=M 改错 1．求当1！+ 3！+ 5！+?+ N！的值不超过1020时的临界值及N的值。 DO WHILE S=1E+20 T=T*I N=N+2 2．求X1 + X2 + X3 + X4 +?+