Question

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

1. 请把下面的程序补充完整，使得该程序运行后能够得到如下图形：
A
D D
G G G
J J J J
M M M M M

CLEAR
K = ASC('A')
FOR I = 1 TO 5
FOR J = 1 TO I
@ ① SAY CHR(K)
ENDFOR
②
ENDFOR
RETURN

2. 下面的程序是将“中华人民共和国”显示为“中 华 人 民 共 和 国”，即在每两个汉字之间加入一个空格。阅读下面的程序，将程序填写完整。
CLEAR
X = '中华人民共和国'
Y = ''
DO WHILE LEN(X) >= ③
Y = Y+SUBSTR(X,1,2)+' '
X = SUBSTR(④)
ENDDO
?⑤

Answer 1

学习了。这几个填空题可不简单。 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

Answer 2

1 = i, Abs(i-5)+(j-1)*2
2 = K = Asc(Chr(K)) + 3
3 = 1
4 = X,3
5 = Y

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
EndFor
Return

X = '中华人民共和国'
Y = ''
DO WHILE LEN(X) >= 1
Y = Y + SUBSTR(X,1,2)+' '
X = SUBSTR(X,3)
ENDDO
?Y

Derek Shu