填空
1. 在学生表中查找并输出指定学生的所有信息
INDEX ON 学号 TO IXH !FOUND() DISPLAY
2. 判断给定的正整数表达式的值是否为素数,并能反复判断
FOR I=2 TO X-1 I=X
IF UPPER(YN)=”Y”或者IF LOWER(YN)=”y” 3. 输入边长,如果能构成三角形,则计算三角形面积.
DO WHILE .T. LOOP
M=SQRT(U*(U-X)*(U-Y)*(U-Z)) 4. 在屏幕上显示输出一个九九乘法表.
X=1
??STR(X,1)+”*”+STR(Y,1)+”=”+STR(X*Y,2)+” ” ?
5. 根据输入的数据,计算不大于该数的所有奇数累加和.
UPPER(YN)=”Y” INT(X/2)<>X/2
WAIT或者ACCEPT或者INPUT
6. 根据输入的数据,判断该数是否为偶数,可以反复判断.
DO WHILE UPPER(YN)=”Y”
N%2!=0或者 N/2!=INT(N/2) 或者 MOD(N,2)!=0 WAIT
7. 显示指定表中的全部字段名,并由用户输入显示表信息的条件,最后列表显示满足条件的记录.
USE(TBN) 或者 USE&TBN FCOUNT() For &EXPR
8. 接收从键盘输入的任意5个数,输入的数字可以是负数,但最多包括3位符号位.程序的功能是,,找出其中
最大的数和最小的数,最后显示出来. ZX=X
DO WHILE N>1 ZX>X
9. 显示输出学生表中每个班级男女生的奖学金总金额.
DO WHILE !EOF()
LEFT(学号,3)=CLASS 或者 SUBSTR(学号,1,3)=CLASS SKIP
10. 返回给定字符串表达式的倒置字符串.例如,输入字符串”ABCD”,倒置后输出的字符串为”DCBA”.
C=”” 或者 C=SPACE(0) Do While L>0 C+Q
11. 利用公式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
12. 输入一个正整数M,判断并显示1~M中有哪些数可以分为两个相等的素数.(例如,M=10，有2个数符合,
即3+3=6和5+5=10。) ELSE J=2 TO I-1
IF J>I-1 或者 IF J=I
13. 本程序实现口令验证.输入次数在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 M>0 M=INT（M/10）
17. 本程序实现从键盘中输入5个数，去掉一个最大数和一个最小数，然后求平均值。
Store N to A,B,S A 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 +?+ XN的值。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为正整数，从键盘输入）之间的素数和素数的个数。 IF MOD(X,N)=0 IF N=X K=K+1 5．统计显示“课程”表中所有不同学期考试课和考查课的总学分数。输出格式如下： DO WHILE XQ=学期 KS=KS+学分 SKIP 6．程序是显示输出给定行数的对称菱形图案。 ?SPACE(N-I) FOR J=1 TO 2*I-1 FOR K=1 TO 2*P-1 7．本程序显示下列的九九乘法表 ??STR(I,4) FOR J=1 TO I ENDDO 8．求3→200之间的素数。 FOR N=2 TO M-1 MOD(M,N)=0 IF N>=M 9.本程序用以判断输入的字符串是否是回文（回文是从左到右和从右到左读时都一样的一个字符串，不论大小写字母）。 I=LEN(ST) C=Q+C IF UPPER(ST)=UPPER(C) 10．本程序求S=K!+?+M!(M,K由键盘输入，且M>K)，请输入S的值 DO SUB WITH A,I S=S+A DO WHILE L<=N 11.本程序输入一个一位数值（0~9），并把它转化为对应的中文大写数字（零~玖）。 DO WHILE .T. S=SUBSTR(X,2*N+1,2) IF UPPER(T)=”N” 12.对成绩.dbf（其中包含“学号”字段，并且以“学号”为关键字建立了索引标识“学号”）中学号相同的重复记录进行逻辑删除。 USE 成绩 ORDER 学号 DO WHILE 学号=XH SKIP 13.本程序是在屏幕上打印输出如图4-6所示图形。 DO WHILE C<9-2*K+1 ? ENDDO 14.将给定正整数的值分解因子，并输出各个质数因子（如24的质数因子有2,2,2和3）（如果一个质数是某个数的约数，那么这个质数是这个数的质数因子）。 INPUT “M=” TO M ELSE M=INT(M/I) 15.对任意一个正数值型数据(该数可有小数若干位,正数部分不超过12位)自动进行小数部分四舍五入取2位,并将其转换为中文大写金额. Y=ROUND(Y,2) D=SUBSTR(C1,2*P+1,2)+SUBSTR(C2,2*I-1,2)+D Y=INT(Y/10) 16.本程序输出一个对角线上元素为0，其他元素为1的6*6阶方阵.输出时每个元素占2个字符 DIMENSION A(6,6) 或者 DECLARE A(6,6) IF I=J OR I+J=7 或者 IF I=J OR I=7-J 或者 IF I=J OR J=7-I ??STR(A(I,J),2) 17.本程序实现:对输入的正整数,判别其中包含指定数码的个数(如2312132中包含数码1的个数为2). Y=MOD(M,10) M=INT(M/10) EXIT 18.本程序比较从键盘输入的若干个数的大小,并输出其中的最大数和最小数. STORE M TO D,X DO WHILE UPPER(YN)!=’A’ AND UPPER(YN)!=’y’ IF UPPER(YN)=’N’ 或者 IF LOWER(YN)=’n’ 19.输入3个正数,判定是否构成一个三角形,如果构成一个三角形,则返回.T.,否则返回.F.,另外通过参数的引用将三角形的面积传回. ?TARER(@X1,X2,X3) PARAMETERS A,B,C IF A+B>C AND A+C>B AND B+C>A 20、成绩小于60的学号课程号成绩显示出来 GO TOP ?学号+SPACE(5)+课程号+SPACE(5)+STR(成绩,6) ?’当前日期’+DTOC(DATE()) 21、计算S=1+2+3+...+N的和 INPUT”N=”TO N DO WHILE I 22、输入学号，计算平均成绩，说明成绩档次 INPUT”输入学号=”TO XH AVERAGE 成绩 TO CJ FOR 学号=XH DC=SUBSTR(C,6*R+1,6) 23、指定表指定条件的任意查询功能 IF NOT FILE(FNAME+”.dbf”) ENDFOR LIST FOR &EXP 24、输入表名，若存在则打开并显示各字段名 IF NOT FILE(FNAME+”.dbf”) ?”此表中的字段有:”,ZDSM,”个” ??FIELDS(I) 25、屏幕上出现1—5的那个图形 DO WHILE C<=K ??C K=K+1