VFP上机答案(修改).docVIP

在学生表中查找并输出指定学生的所有信息 INDEX ON 学号 TO IXH !FOUND() DISPLAY 判断给定的正整数表达式的值是否为素数,并能反复判断. FOR I=2 TO X-1 I=X-1 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 0L 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 14 本程序显示学生表中获得奖学金的学生姓名和奖学金数额 DO WHILE !EOF() 或 DO WHILE .NOT.EOF() 奖学金0 SKIP 15 本程序显示学生表中1990年或者以前出生的学生姓名和出生年月（日期型） FOR YEAR(出生年月)=1990 或者 FOR 出生年月={^1990-01-01} DO WHILE.NOT.EOF()或者 DO WHILE !EOF() 或者 DO WHILE FOUND() CONTINUE 16本程序计算一个十进制正整数N的各位数字之和（如输入12378，则计算1+2+3+7+8）。 ELSE WHILE M0 M=INT(M/10) 17 本程序实现从键盘中输入5个数，去掉一个最大数和一个最小数，然后求平均值 Store N to A,B,S AN S=S+N 18 计算1！+3！+5！+…+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 24本程序实现“百钱买百鸡”的计算 Y=0 TO 33 5*X+3*Y+Z/3=100 ENDFOR 25输入一个自然数，判断该数是否为完数 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．求X^1 + X^2 + X^3 + X^4 +……+ X^N的值。N，X从键盘输入。 S=0 T=T*X ENDDO 3．用带参调用实现： M！／(M-N)！*N！ DO JC WITH MJ MNJ=M-N X=T 4．输出3～M（M为正整数，从键盘输入）之间的素数和素数