急求VFP程序填空题答案

Question

【程序填空】
*-------------------------------------------------------

* 题目1:显示输出图形：
*****
***
*
*请在【】处添上适当的内容，使程序完整。

*-------------------------------------------------------

CLEAR
I=1
***********SPACE**********
DO WHILE 【?】
J=1
DO WHILE J<=7-2*I
***********SPACE**********
【?】
j=j+1
ENDDO
***********SPACE**********
【?】
?
ENDDO

*题目2:找出XSDB.DBF中奖学金最高的学生记录并输出。请在【】
* 处添上适当的内容，使程序完整。

*-------------------------------------------------------

***********SPACE**********
【USE XSDB】
MAX=0
***********SPACE**********
DO WHILE 【?】
IF MAX<奖学金
***********SPACE**********
【?】
JLH=RECN()
ENDIF
SKIP
ENDDO
?MAX
DISP FOR RECN()=JLH
USE

题目3:查找XSDB表中计算机成绩最高分的学生，将其姓名和计算
* 机字段的内容显示出来,如：王迪 98。请在【】处添上适
* 当的内容，使程序完整。

*-------------------------------------------------------

USE XSDB
MAX=计算机
***********SPACE**********
【?】
do while .NOT.EOF()
IF MAX<计算机
MAX=计算机
***********SPACE**********
【?】
ENDIF
***********SPACE**********
【?】
enddo
?XM,MAX
USE

Answer 1

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

Answer 2

（1）j=10*b+a
(2)
y=.t.
另外(if
prime(1)
and
prime(j)
then
中的1应该
是
i
吧)