（3）建立索引，将表中的所有记录按总分从高到低的顺序显示出来。

习题 5 参考解答

一、选择题

1~5：ADABC 6~10：DABAB 11~15：CCCAC 16~20：BDAAD 21~25：ADAAB

二、阅读下列程序，写出运行结果

1．15

2．102 3．5、15 4．S,I= 10 5 5．15 4 3 6．求输入的 2 个数的最小公倍数 7．删除 stb 中与 sta 中相同的字母 8．主程序中 X=同学们 主程序中 Y=你们好！ 返回主程序后的 X=同学们 返回主程序后的 Y= 2 返回主程序后的 Z= 5 子程序中的 X=同学们 子程序中的 Y= 2 子程序中的 Z= 300 9．X=30 10． 6

12

6 12

9 36

三、在横线处填上适当的内容，使程序完整 1．MOD(I,3)=0、P=I 2．EXIT、I=N

3．NOT FOUND() 或 EOF()、CONTINUE 4．INDEX ON 姓名 TAG XM

5．&KNAME、FOR 姓名=NAME、EOF()、DELETE 6．AND 物理>=85 AND 英语>=85、REPLACE 等级 WITH \优秀\ 7．SKIP、XM=姓名、ZY=专业、ZF=总分

8．数学>=90、数学>=80、数学>=70、数学>=60 9．PARAMETERS X,Y 、S1 10．skip、Sc=成绩

第二部分 《Visual FoxPro 程序设计（第二版）》复习提要与学习指导、习题及参考解答 131

132 Visual FoxPro 程序设计实训与考试指导（第二版）

四、编程题 1．

CLEAR

INPUT TO A INPUT TO B DO CASE

CASE A=B

?ALLTRIM(STR(A))+\CASE A>B

?ALLTRIM(STR(A))+\CASE A

?ALLTRIM(STR(A))+\ENDCASE RETURN

2．

*使用 FOR 循环 JG=0

FOR I=1 TO 100

IF MOD(I,2)<>0 &&奇数 JG=JG+1/I ELSE

JG=JG-1/I ENDIF ENDFOR ?JG

CANCEL *使用 DO WHILE 循环 JG=0 I=1

DO WHILE I<=100

IF MOD(I,2)<>0 &&奇数 JG=JG+1/I ELSE

JG=JG-1/I

ENDIF I=I+1 ENDDO ?JG

CANCEL

3．

S=0

INPUT \请输入一个数：\ DO SUB WITH N ?S