急求VFP程序填空题答案

PROCEDURE PRG_01

CLEAR

I=1

***********SPACE**********

*DO WHILE 【?】

DO WHILE I <= 5 &&&此处填： I <= 5

J=1

DO WHILE J<=7-2*I

***********SPACE**********

*【?】

??"*" &&&此处填： ??"*"

j=j+1

ENDDO

***********SPACE**********

*【?】

I = I + 1 &&&此处填： I = I + 1

?

ENDDO

RETURN

PROCEDURE PRG_02

***********SPACE**********

*【USE XSDB】

USE XSDB

MAX=0

***********SPACE**********

*DO WHILE 【?】

DO WHILE .NOT. EOF() &&&此处填：.NOT. EOF()

IF MAX<奖学金

***********SPACE**********

* 【?】

MAX = 奖学金 &&&此处填：MAX = 奖学金

JLH=RECN()

ENDIF

SKIP

ENDDO

?MAX

DISP FOR RECN()=JLH

USE

RETURN

PROCEDURE PRG_03

USE XSDB

MAX=计算机

***********SPACE**********

*【?】

XM = "" &&&此处填：XM = ""

do while .NOT.EOF()

IF MAX<计算机

MAX=计算机

***********SPACE**********

*【?】

XM = 姓名 &&&此处填：XM = 姓名

ENDIF

***********SPACE**********

*【?】

SKIP &&&此处填：SKIP

enddo

?XM,MAX

USE

SET TALK OFF

USE XSDB

***********FOUND**********

loca for 奖学金>"60"

DO WHILE .NOT.EOF()

***********FOUND**********

?"姓名="+姓名,"奖学金="+奖学金

CONT

ENDDO

USE

SET TALK ON

RETU

---