VFP 程序填空题 帮我填这五个题的五个空就OK啦！！！谢谢谢谢！！！

&&第一题
SET TALK OFF
CLEAR
S=0
I=8
DO WHILE I<=10
STORE 1 TO T,J
DO WHILE J<=I
T=T*J
J=J+1
ENDDO
S=S+T
I=I+1
ENDDO
?S
SET TALK ON
RETURN
&&运行结果如下：
4032000

&&第2题
set talk off
clear
s=0
i=1
do while s<=10
s=s+1/i
i=i+1
enddo
? i-2
set talk on
return
&&运行结果如下：
12366

&&第三题
SET TALK OFF
N=0
FOR K=10 TO 100
IF k%17=INT(K/5)
? K
N=N+1
ENDIF
ENDFOR
? N
RETURN

&&运行结果如下：
21
42
63
84
4

&&第四题
SET TALK OFF
N=0
FOR K=10 TO 100
IF K%15=INT(K/4)
? K
N=N+1
ENDIF
ENDFOR
? N
RETURN
&&运行结果如下：
19
20
39
40
59
5

&&第五题
Set talk off
t=0
I=1000
do while I<=9999
if I%3=0 AND INT(I/1000) +I%10=8
t=t+1
endif
I=I+1
enddo
?t
return
&&运行结果如下：
264

不懂

s=s+t
i=i+1
k%17=k/5
k%15=k/4
l%3=0 and int(l/1000)+i%10=8