vfp简单的程序填空题。。。

学习了。这几个填空题可不简单。 Derek Shu 的水平很高！

CLEAR

K = ASC('A')

FOR I = 1 TO 5

For J = 1 TO I

@i, Abs(i-5)+(j-1)*2 SAY CHR(K) 这行很难填写，因为列位置不好找，你是怎么想到的呢？

EndFor

K = Asc(Chr(K)) + 3这行语句改为：k=k+3 就行了

EndFor

Return

我觉得下面这个题也有点小问题。题目要求“中 华 人 民 共 和 国”，注意，最后一个字末尾并不带空格。我觉得这样改更符合题意。

X = '中华人民共和国'

Y = ''

DO WHILE LEN(X) >= 3

Y = Y + SUBSTR(X,1,2)+' '

X = SUBSTR(X,3)

ENDDO

?Y+x

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

ts(days)=1

ts(i)=(ts(i+1)+1)*2

ts() 是一个数组,用  dimension 来声明, dime是简写, dimension ts(11) 就是声明一个有11个元素的数组

,  元素的个数就是天数11,  值就是桃子数.

ts(11)就是第11天的桃子数, 在循环开始赋值.

之后用for循环,从第10天开始逐天计算,直至第一天, 最后ts(1)就是一开始的桃子数

---