二级VFP程序填空题

题号题目程序
1 下面的程序是求100到5000中所有能被
7和9整除的奇数之和。

填空完成程序，然
后运行程序得出正确结果。

（答案填程序
运行结果，保留整数位）
SET TALK OFF
CLEAR
I=100
S=0
DO WHILE I<=5000
IF _______________
S=S+I
ENDIF
_____________
ENDDO
? S
RETURN
2 已知S1=1，S2=1+2，S3=1+2+3，…
Sn=1+2+3+…+N，求S1，S2，S3，…S1000
中有多少个能被3或7整除的数。

填空完成
程序，然后运行程序得出正确结果。

（答
案填程序运行结果，保留整数位）
SET TALK OFF
CLEA
I=1
N=0
DO WHILE I<=1000
s=0
J=1
DO WHILE ____________
s=__________
j=J+1
ENDDO
IF INT(S/3)=S/3.OR.INT(S/7)=S/7
N=N+1
ENDIF
I=I+1
ENDDO
3 已知S1=1，S2=1+2，S3=1+2+3，…
Sn=1+2+3+…+N，求S1，S2，S3，…S2000
中有多少个能被3或7整除的数。

填空完成
程序，然后运行程序得出正确结果。

（答
案填程序运行结果，保留整数位）
SET TALK OFF
CLEA
I=1
N=0
DO WHILE I<=2000
s=0
J=1
DO WHILE ________
s=S+J
j=J+1
ENDDO
IF INT(S/3)=S/3.OR.INT(S/7)=S/7
_________
ENDIF
I=I+1
ENDDO
? N
SET TALK ON
RETURN
4 求1000到10000以内能被4和9整除的整
数的和。

填空完成程序，然后运行程序得
出正确结果。

（答案填程序运行结果，保
留整数位）
CLEA
I=1000
S=0
DO WHILE I<=10000
IF ________________
S=S+I
ENDI
___________
ENDD
? S
RETU
5 求1000到20000以内能被4和7整除的整
数的和。

填空完成程序，然后运行程序得
出正确结果。

（答案填程序运行结果，保
留整数位）
SET TALK OFF
CLEA
I=1000
S=0
DO WHILE I<=20000
IF ___________
S=S+I
ENDI
___________
ENDD
? S
RETU
6 求1000到5000以内能被4和7整除的整
数的和。

填空完成程序，然后运行程序得
出正确结果。

（答案填程序运行结果，保
留整数位）
SET TALK OFF
CLEA
I=1000
S=0
DO WHILE I<=5000
IF INT(I/4)=I/4.AND.INT(I/7)=I/7
_________
ENDI
_________
ENDD
? S
RETU
7 求1000到8000以内能被3和7整除的整
数的和。

填空完成程序，然后运行程序得
出正确结果。

（答案填程序运行结果，保
留整数位）
SET TALK OFF
CLEA
I=1000
S=0
DO WHILE ___________
IF ___________________
s=s+i
ENDI
____________
ENDD
? S
RETU
8 求100到7000以内能被5和9整除的整数
的个数。

填空完成程序，然后运行程序得
出正确结果。

（答案填程序运行结果，保
留整数位）
CLEA
I=100
S=0
DO WHILE I<=7000
IF _____________
S=S+1
ENDI
____________
ENDD
? S
RETU
9 求12000以内能同时被13和17整除的数
的和。

填空完成程序，然后运行程序得出
正确结果。

（答案填程序运行结果，保留
整数位）
SET TALK OFF
CLEAR
I=1
S=0
DO WHILE I<12000
IF ___________
S=S+I
ENDIF
__________
ENDDO
? S
SET TALK ON
RETURN
10 求10000以内能同时被3和8整除的数的
和。

填空完成程序，然后运行程序得出正
确结果。

（答案填程序运行结果，保留整
数位）
SET TALK OFF
CLEAR
I=1
S=0
DO WHILE I<10000
IF ____________
s=s+i
ENDIF
________
ENDDO
? S
SET TALK ON
RETURN
11 求30001以内能同时被3和5整除的数的
个数。

填空完成程序，然后运行程序得出
正确结果。

（答案填程序运行结果，保留
整数位）
SET TALK OFF
CLEAR
I=1
S=0
DO WHILE I<30001
IF MOD(I,3)=0.AND.MOD(I,5)=0
________
ENDIF
__________
ENDDO
? S
SET TALK ON
RETURN
12 求23450以内能被7或者17整除的数的
个数。

填空完成程序，然后运行程序得出
正确结果。

（答案填程序运行结果，保留
整数位）
CLEAR
I=1
S=0
DO WHILE .T.
IF __________
S=S+1
ENDIF
IF __________
EXIT
ENDIF
I=I+1
ENDDO
? S
SET TALK ON
RETU
13 求20000以内能被7整除的奇数的个数。

填空完成程序，然后运行程序得出正确
结果。

（答案填程序运行结果，保留整数
位）
SET TALK OFF
CLEAR
I=1
S=0
DO WHILE .T.
IF ________=I/7
_________
ENDIF
IF I>=20000
EXIT
ENDIF
________
ENDDO
? S
SET TALK ON
RETU
14 求15000以内不能被7整除的数的个数。

填空完成程序，然后运行程序得出正确
结果。

（答案填程序运行结果，保留整数
位）
SET TALK OFF
CLEAR
I=1
S=0
DO WHILE .T.
IF ________<>I/7
_________
ENDIF
IF I>=15000
EXIT
ENDIF
I=I+1
ENDDO
? S
SET TALK ON
RETU
15 求30000以内不能被17整除的数的个数。

填空完成程序，然后运行程序得出正确
结果。

（答案填程序运行结果，保留整数
位）
CLEAR
I=1
S=0
DO WHILE .T.
IF ___________
S=S+1
ENDIF
IF ___________
EXIT
ENDIF
I=I+1
ENDDO
? S
SET TALK ON
RETU
16 求40000以内不能被13整除的数的个数。

填空完成程序，然后运行程序得出正确
结果。

（答案填程序运行结果，保留整数
位）
SET TALK OFF
CLEAR
I=1
S=0
DO WHILE .T.
IF __________
S=S+1
ENDIF
IF __________
EXIT
ENDIF
I=I+1
ENDDO
? S
SET TALK ON
RETU
17 求能被3整除且有一位数字为6的三位
数的个数。

填空完成程序，然后运行程序
得出正确结果。

（答案填程序运行结果，
保留整数位）
SET TALk OFF
CLEA
S=0
X=100
DO WHILE X<999
IF ___________
A=INT(X/100)
B=INT(X/10)-A*10
C=X-A*100-B*10
IF ____________
S=S+1
ENDIF
ENDIF
X=X+1
ENDDO
? S
RETU
18 求能被6整除且有一位数字为8的三位
数的和。

填空完成程序，然后运行程序得
出正确结果。

（答案填程序运行结果，保
留整数位）
CLEA
S=0
X=100
DO WHILE X<999
IF ___________
A=INT(X/100)
B=INT(X/10)-A*10
C=X-A*100-B*10
IF ___________
___________
ENDIF
ENDIF
X=X+1
ENDDO
? S
RETU
19 求能被7整除且有一位数字为8的四位
数的和。

填空完成程序，然后运行程序得
出正确结果。

（答案填程序运行结果，保
留整数位）
SET TALk OFF
CLEA
S=0
X=1000
DO WHILE X<9999
IF MOD(_______)=0
A=INT(X/1000)
B=INT(X/100)-A*10
C=INT(X/10)%10
D=INT(X%10)
IF ___________
_________
ENDIF
ENDIF
X=X+1
ENDDO
? S
RETU
20 求[100,800]中，个位数字与十位数字
之和除以10所得的余数是百位数字的偶数
的个数。

填空完成程序，然后运行程序得
出正确结果。

（答案填程序运行结果，保
留整数位）
SET TALK OFF
CLEA
S=0
X=100
DO WHILE X<=800
A=INT(X/100)
B=INT(X/10)-A*10
C=X-A*100-B*10
IF _________________
S=S+1
ENDIF
__________
ENDDO
? S
RETURN
21 求在1，2，3，4，…，1000这1000个
数中，任意选两个不同的数，它们的和能
被6整除的数的总对数（注意：像1+5和5+1
被认为是同一对数）。

填空完成程序，然
后运行程序得出正确结果。

（答案填程序
运行结果，保留整数位）
CLEAR
N=0
I=1
DO WHILE I<=1000
J=1
DO WHILE J<I
IF MOD(I+J,6)=0
_________
ENDIF
J=J+1
ENDDO
_________
ENDDO
? N
SET TALK ON
RETURN
22 求在1，2，3，4，…，2000这2000个
数中，任意选两个不同的数，它们的和能
被9整除的数的总对数（注意：像4+5和5+4
被认为是同一对数）。

填空完成程序，然
后运行程序得出正确结果。

（答案填程序
运行结果，保留整数位）
SET TALK OFF
CLEAR
N=0
I=1
DO WHILE I<=2000
J=1
DO WHILE J<I
IF MOD(I+J,9)=0
__________
ENDIF
J=J+1
ENDDO
_________
ENDDO
? N
SET TALK ON
RETURN
23 求1到2000中所有能被5和7整除的奇数
之和。

填空完成程序，然后运行程序得出
正确结果。

（答案填程序运行结果，保留
整数位）
SET TALK OFF
CLEAR
I=1
S=0
DO WHILE I<=2000
IF ____________
S=S+I
ENDIF
_________
ENDDO
? S
RETURN
24 求1到30000中所有能被11和13整除的
偶数的个数。

填空完成程序，然后运行程
SET TALK OFF
CLEAR
25 求在1，2，3，…，80这80个数中，任
意选两个不同的数，它们的和能被4和9整
除的数的总对数（1+35和35+1认为是同一
对数）。

填空完成程序，然后运行程序得
出正确结果。

（答案填程序运行结果，保
留整数位）
CLEA
N=0
I=1
DO WHILE I<=80
J=1
DO WHILE _____________
IF MOD(I+J,4)=0.AND.MOD(I+J,9)=0
_______
ENDIF
J=J+1
ENDDO
____________
ENDDO
? N
SET TALK ON
RETU
26 已知S1=1，S2=1+2，S3=1+2+3，…
Sn=1+2+3+…+N，求S1，S2，S3，…S1000
中有多少个能被8或13整除的数。

填空完成
程序，然后运行程序得出正确结果。

（答
案填程序运行结果，保留整数位）
SET TALK OFF
CLEA
I=1
N=0
DO WHILE I<=1000
s=0
J=1
DO WHILE _______
S=______
j=J+1
ENDDO
IF INT(S/8)=S/8.OR.INT(S/13)=S/13
N=N+1
ENDIF
I=I+1
ENDDO
? N
SET TALK ON
RETURN
27 已知S1=1，S2=1+2，S3=1+2+3，…
Sn=1+2+3+...+N，求S1，S2，S3， (200)
能被4和7整除的数的和。

填空完成程序，
然后运行程序得出正确结果。

（答案填程
序运行结果，保留整数位）
SET TALK OFF
CLEA
I=1
N=0
DO WHILE I<=200
s=0
J=1
DO WHILE _______
s=________
j=J+1
ENDDO
IF INT(S/4)=S/4.AND.INT(S/7)=S/7
N=N+S
ENDIF
I=I+1
ENDDO
? N
SET TALK ON
RETURN
28 已知S1=1，S2=1+2，S3=1+2+3，…
Sn=1+2+3+…+N，求S1，S2，S3，…S2000
中有多少个能被9或11整除的数。

填空完成
程序，然后运行程序得出正确结果。

（答
案填程序运行结果，保留整数位）
CLEA
I=1
N=0
DO WHILE I<=2000
s=0
J=1
DO WHILE _________
s=_________
j=J+1
ENDDO
IF INT(S/9)=S/9.OR.INT(S/11)=S/11
N=N+1
ENDIF
I=I+1
ENDDO
? N
SET TALK ON
RETURN
29 求出[100，900]范围内所有的除3余1
的素数的个数。

填空完成程序，然后运行
程序得出正确结果。

（答案填程序运行结
果，保留整数位）
set talk off
clea
count1=0
for i=100 to 900
if _________________
count1=count1+1
endif
endfor
? count1
retu
function su(x)
for j=2 to sqrt(x)
if ____________
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
30 求出[100，800]范围内所有的除3余1
的素数之和。

填空完成程序，然后运行程
序得出正确结果。

（答案填程序运行结
果，保留整数位）
set talk off
clea
sum1=0
for i=100 to 800
if ________________
sum1=sum1+i
endif
endfor
? sum1
retu
function su(x)
for j=2 to sqrt(x)
if ___________
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
31 计算[4000，4500]中各个数的因子
（因子不包括这个数本身）之和，求出和
的最大值。

填空完成程序，然后运行程序
得出正确结果。

（答案填程序运行结果，
保留整数位）
set talk off
clea
max1=0
for i=4000 to 4500
sum2=0
for j=1 to i-1
if i%j=0
___________
endif
endfor
if max1<sum2
___________
endif
endfor
? max1
retu
32 求[4000，4500]中哪一个数的因子
（因子不包括这个数本身）之和最大。

填
空完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
set talk off
clea
max1=0
k=0
for i=4000 to 4500
sum2=0
for j=1 to i-1
if __________
sum2=sum2+j
endif
endfor
if ___________
k=i
max1=sum2
endif
endfor
? k
retu
33 求1234680的因子中素数因子的和是多
少。

填空完成程序，然后运行程序得出正
确结果。

（答案填程序运行结果，保留整
数位）
clea
sum1=0
for i=2 to 1234680
if _________________
sum1=________________
endif
endfor
? sum1
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
34 求2468640的因子中素数有多少个。

填
空完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
set talk off
clea
count1=0
for i=2 to 2468640
if _________________
count1=______________
endif
endfor
? count1
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
35 求[1000,3000]范围内满足这样条件的
数的个数：这个数的所有因子之和（不包
括这个数本身）能够被3整除。

填空完成程
序，然后运行程序得出正确结果。

（答案
填程序运行结果，保留整数位）
set talk off
clea
count1=0
for i=1000 to 3000
sum2=0
for j=1 to i-1
if i%j=0
____________
endif
endfor
if ____________
count1=count1+1
endif
endfor
? count1
retu
36 求[1000,4000]范围内满足这样条件的
数的个数：这个数的所有因子之和（不包
括这个数本身）能够被7整除。

填空完成程
序，然后运行程序得出正确结果。

（答案
填程序运行结果，保留整数位）
clea
count1=0
for i=1000 to 4000
sum2=0
for j=1 to i-1
if i%j=0
____________
endif
endfor
if sum2%7=0
______________
endif
endfor
? count1
retu
37 求[2000,3000]范围内满足这样条件的
数之和：这个数的所有因子之和（不包括
这个数本身）能够被13整除。

填空完成程
序，然后运行程序得出正确结果。

（答案
填程序运行结果，保留整数位）
set talk off
clea
sum1=0
for i=2000 to 3000
sum2=0
for j=1 to i-1
if i%j=0
_____________
endif
endfor
if ____________
sum1=sum1+i
endif
endfor
? sum1
retu
38 求[1000,3000]范围内满足这样条件的
数之和：这个数的所有因子之和（不包括
这个数本身）能够被17整除。

填空完成程
序，然后运行程序得出正确结果。

（答案
填程序运行结果，保留整数位）
set talk off
clea
sum1=0
for i=1000 to 3000
sum2=0
for j=1 to i-1
if i%j=0
______________
endif
endfor
if sum2%17=0
______________
endif
endfor
? sum1
retu
39 求[1000,4000]范围内满足这样条件的
数的个数：这个数的所有因子之和（不包
括这个数本身）能够同时被3和7整除。

填
空完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
clea
count1=0
for i=1000 to 4000
sum2=0
for j=1 to i-1
if ________________
sum2=sum2+j
endif
endfor
if _________________
count1=count1+1
endif
endfor
? count1
retu
40 求[1000,4000]范围内满足这样条件的
数之和：这个数的所有因子之和（不包括
这个数本身）能够同时被3和7整除。

填空
完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
set talk off
clea
sum1=0
for i=1000 to 4000
sum2=0
for j=1 to i-1
if i%j=0
_____________
endif
endfor
if _________________
sum1=sum1+i
endif
endfor
? sum1
retu
41 一只猴子一天从山上摘来一袋桃子，
从这天开始，它每天都要把袋中的桃子平
分为二堆，吃掉其中的一堆，然后再从剩
下的桃中拿出一个解谗，等到第11天，它
发现袋中只有一只桃可吃啦，问猴子总共
摘了多少桃。

填空完成程序，然后运行程
序得出正确结果。

（答案填程序运行结
果，保留整数位）
set talk off
clear
days=11
dime ts(days)
ts(days)=_________
for i=days-1 to 1 step -1
_______________
endfor
? ts(1)
retu
42 在[111，999]范围内存在满足这样条
件的数：该数是一个素数，又是一个回文
数，而且该数除7余3。

求这样的数的个数。

回文数指这个数顺着和倒着是同一个
数，如：121，232，…都是回文数。

填空
完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
clea
count1=0
for i=111 to 999
a=i%10
c=int(i/100)
if ____________________
count1=_________________
endif
endfor
? count1
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
43 在[222，999]范围内存在满足这样条
件的数：该数是一个素数，又是一个回文
数，而且该数除7余2。

求这样的数之和。

回文数指这个数顺着和倒着是同一个数，
如：121，232，…都是回文数。

填空完成
程序，然后运行程序得出正确结果。

（答
案填程序运行结果，保留整数位）
set talk off
clea
sum1=0
for i=222 to 999
a=i%10
c=int(i/100)
if ________________
sum1=_______________
endif
endfor
? sum1
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
44 求在[1000，2000]范围内，最大的除7
余3的素数是多少。

填空完成程序，然后运
行程序得出正确结果。

（答案填程序运行
结果，保留整数位）
clea
cj=1
for i=2000 to 1000 step -1
if ________________
exit
endif
endfor
? i
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>x
return(.t.)
endif
45 求在[1000，2000]范围内，最大的除7
余6的素数是多少。

填空完成程序，然后运
行程序得出正确结果。

（答案填程序运行
结果，保留整数位）
set talk off
clea
cj=1
for i=2000 to 1000 step -1
if ________________
exit
endif
endfor
? i
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>x
return(.t.)
endif
46 在[1000，4000]范围内，求所有的的
除7余2，除5余3，除3余1的素数的和是多
少。

填空完成程序，然后运行程序得出正
确结果。

（答案填程序运行结果，保留整
数位）
clea
sum1=0
for i=1000 to 4000
if ________________
sum1=______________
endif
endfor
? sum1
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
47 在[1000，5000]范围内，求所有的的
除7余6，除5余4，除3余2的素数的个数。

填空完成程序，然后运行程序得出正确结
果。

（答案填程序运行结果，保留整数
位）
set talk off
clea
count1=0
for i=1000 to 5000
if _______________
count1=___________
endif
endfor
? count1
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
48 下列程序求三位数中，个位数字与十
位数字之积除以3所得的余数是百位数字的
奇数之和。

填空完成程序，然后运行程序
得出正确结果。

（答案填程序运行结果，
保留整数位）
SET TALK OFF
CLEA
S=0
X=100
DO WHILE X<=999
A=INT(X/100)
B=INT(X/10)-A*10
C=X-A*100-B*10
IF ______________
S=S+X
ENDIF
_________
ENDDO
? S
RETURN
49 下面程序是求1到200之间的所有除23
余11的奇数之积再加上所有偶数之和的结
果是多少。

填空完成程序，然后运行程序
得出正确结果。

（答案填程序运行结果，
保留整数位）
CLEA
P=0
S=1
FOR I=1 TO 200
IF MOD(I,2)<>0
IF I%23=11
____________
ENDIF
ELSE
____________
ENDI
ENDF
? ______
RETU
50 下面程序是计算小于或等于5000的所
有正偶数的积和正奇数的和,并显示正奇数
的和。

填空完成程序，然后运行程序得出
正确结果。

（答案填程序运行结果，保留
整数位）
SET TALK OFF
CLEAR
S1=1
S2=0
FOR I=1 TO 5000
IF INT(I/2)=I/2
________
ELSE
________
ENDIF
ENDFOR
? S2
RETURN
51 下面程序是计算小于或等于40的所有
正奇数的积，正偶数的和。

填空完成程
序，然后运行程序得出正确结果。

（答案
填程序运行结果，保留整数位）
SET TALK OFF
CLEAR
S1=1
S2=0
FOR I=1 TO 40
IF ____________
S1=S1*I
ELSE
_________
ENDIF
ENDFOR
? S2
RETURN
52 下面程序是求1到40之间所有奇数的平
方和。

填空完成程序，然后运行程序得出
正确结果。

（答案填程序运行结果，保留
整数位）
SET TALK OFF
CLEAR
S=0
X=1
DO WHILE X<=40
IF ___________
S=S+X^2
ENDIF
__________
ENDDO
? S
RETURN
53 设S是前若干个可被23整除的正整数之
和，求使S>10000时的最小和数S。

填空完
成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
CLEA
STORE 0 TO S,I
DO WHILE .T.
I=I+1
IF INT(I/23)=______
S=S+I
ENDIF
IF S>10000
_________
ENDIF
ENDDO
? S
SET TALK ON
RETURN
54 下列程序的功能是：计算2000至10000
之间的奇数之和。

填空完成程序，然后运
行程序得出正确结果。

（答案填程序运行
结果，保留整数位）
SET TALK OFF
CLEA
x=1999
s=0
DO WHILE .T.
x=x+1
DO CASE
CASE x>10000
EXIT
CASE MOD(x,2)=_______
LOOP
OTHERWISE
_________
ENDCASE
ENDDO
? s
RETURN
55 下列程序的功能是：计算2000至9000
之间的奇数之和。

填空完成程序，然后运
行程序得出正确结果。

（答案填程序运行
结果，保留整数位）
SET TALK OFF
CLEA
x=1999
s=0
DO WHILE .T.
x=x+1
DO CASE
CASE x>9000
EXIT
CASE _________=0
LOOP
OTHERWISE
________
ENDCASE
ENDDO
? s
RETURN
56 下列程序的功能是：计算1至7000之间
的偶数之和。

填空完成程序，然后运行程
序得出正确结果。

（答案填程序运行结
果，保留整数位）
CLEA
x=0
s=0
DO WHILE .T.
x=x+1
DO CASE
CASE __________
EXIT
CASE __________
LOOP
OTHERWISE
S=S+X
ENDCASE
ENDDO
? S
RETURN
57 下列程序的功能是：计算1至4000之间
的偶数之和。

填空完成程序，然后运行程
序得出正确结果。

（答案填程序运行结
果，保留整数位）
SET TALK OFF
CLEA
x=0
s=0
DO WHILE .T.
x=x+1
DO CASE
CASE x>4000
EXIT
CASE MOD(x,2)<>______
LOOP
OTHERWISE
_______
ENDCASE
ENDDO
? s
RETURN
58 下列程序的功能是求500到1000之间的
所有奇数的平方和并显示结果。

填空完成
程序，然后运行程序得出正确结果。

（答
案填程序运行结果，保留整数位）
SET TALK OFF
CLEAR
Sum=0
x=500
DO WHILE x<=1000
IF _________
Sum=__________
ENDIF
__________
ENDDO
? Sum
RETU
59 下列程序的功能是求6到180之间的所
有奇数的平方和。

填空完成程序，然后运
行程序得出正确结果。

（答案填程序运行
结果，保留整数位）
CLEAR
Sum=0
x=6
DO WHILE _________
IF _________
sum=sum+x^2
ENDIF
__________
ENDDO
? Sum
RETU
60 下列程序的功能是求6到280之间的所
有奇数的平方和。

填空完成程序，然后运
行程序得出正确结果。

（答案填程序运行
结果，保留整数位）
SET TALK OFF
CLEAR
Sum=0
x=6
DO WHILE _________
IF _______
Sum=___________
ENDIF
x=x+1
ENDDO
? Sum
retu
61 下列程序的功能是求6到156之间的所
有奇数的平方和。

填空完成程序，然后运
行程序得出正确结果。

（答案填程序运行
结果，保留整数位）
SET TALK OFF
CLEAR
Sum=0
x=6
DO WHILE x<=156
IF _______
Sum=_________
ENDIF
X=X+1
ENDDO
? Sum
return
62 下列程序的功能是求7到256之间的所
有奇数的平方和。

填空完成程序，然后运
行程序得出正确结果。

（答案填程序运行
结果，保留整数位）
SET TALK OFF
CLEAR
SUM=0
x=7
DO WHILE x<=256
SUM=________
X=______
ENDDO
? SUM
RETU
63 下列程序求三位数中，个位数字与十
位数字之积除以4所得的余数是十位数字的
奇数和。

填空完成程序，然后运行程序得
出正确结果。

（答案填程序运行结果，保
留整数位）
CLEA
S=0
X=100
DO WHILE X<=999
A=INT(X/100)
B=INT(X/10)-A*10
C=X-A*100-B*10
IF ____________
S=___________
ENDIF
X=X+1
ENDDO
? S
RETURN
64 下面程序求1!+3!+5!+…+(2K+1)!，要
求在其和大于10000时中止程序运行。

填空
完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
SET TALK OFF
CLEA
I=0
S=0
DO WHILE .T.
I=I+1
IF I/2=________
LOOP
ENDIF
J=1
SUB=1
DO WHILE ________
SUB=SUB*J
J=J+1
ENDDO
S=S+SUB
IF S>10000
EXIT
ENDIF
ENDDO
? S
SET TALK ON
RETU
65 下面程序求1!+3!+5!+…+(2K+1)!，要
求在其和大于20000时中止程序运行。

填空
完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
CLEA
I=0
S=0
DO WHILE .T.
I=I+1
IF I/2=________
LOOP
ENDIF
J=1
SUB=1
DO WHILE J<=I
___________
J=J+1
ENDDO
S=S+SUB
IF S>20000
EXIT
ENDIF
ENDDO
? S
SET TALK ON
RETU
66 下面程序是求1到5000之间的所有奇数
之积和所有偶数之和，并显示所有偶数之
和。

填空完成程序，然后运行程序得出正
确结果。

（答案填程序运行结果，保留整
数位）
SET TALK OFF
CLEA
P=0
S=1
FOR I=1 TO 5000
IF MOD(I,2)<>0
________
ELSE
________
ENDI
ENDF
? P
RETU
67 下面程序是求1到8000之间的所有奇数
之积和所有偶数之和，并显示所有偶数之
和。

填空完成程序，然后运行程序得出正
确结果。

（答案填程序运行结果，保留整
数位）
SET TALK OFF
CLEA
P=0
S=1
FOR I=1 TO 8000
IF MOD(I,2)<>0
________
ELSE
________
ENDI
ENDF
? P
RETU
68 下面程序是计算小于或等于17的所有
正奇数的积和正偶数的和,并显示符合条件
的正奇数的积。

填空完成程序，然后运行
程序得出正确结果。

（答案填程序运行结
果，保留整数位）
CLEAR
S1=1
S2=0
FOR I=1 TO 17
IF INT(I/2)<>I/2
___________
ELSE
___________
ENDIF
ENDFOR
? S1
RETURN
69 下面程序是计算小于或等于10000的所
有正偶数的积和正奇数的和,并显示正奇数
的和。

填空完成程序，然后运行程序得出
正确结果。

（答案填程序运行结果，保留
整数位）
SET TALK OFF
CLEAR
S1=1
S2=0
FOR I=1 TO 10000
IF _________
S1=S1*I
ELSE
_________
ENDIF
ENDFOR
? S2
RETURN
70 (A,B)满足条件A是素数，B是素数，
A+B的和也是一个素数，又777>B>A>=2。

求
这样的（A，B）有多少组。

填空完成程
序，然后运行程序得出正确结果。

（答案
填程序运行结果，保留整数位）
set talk off
clea
count1=0
for a=2 to 777
for b=a+1 to 777
if ________________
count1=_______________
endif
endfor
endfor
? count1
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
71 (A,B)满足条件A是素数，B是素数，
A+B的和也是一个素数，又777>B>A>=2。

求
这样的（A，B）中所有A的和是多少。

填空
完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
clea
sum1=0
for a=2 to 777
for b=a+1 to 777
if ________________
sum1=_______________
endif
endfor
endfor
? sum1
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
72 (A,B)满足条件A是素数，B是素数，
A+B的和也是一个素数，又777>B>A>=2。

求
这样的（A，B）中所有B的和是多少。

填空
完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
set talk off
clea
sum1=0
for a=2 to 777
for b=a+1 to 777
if ___________________
sum1=___________________
endif
endfor
endfor
? sum1
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
73 （x,y,z）满足方程：
x^2+y^2+z^2=200^2(注：要求 z > y >
x>0),则（x,y,z）称为方程的一个解。

求
该方程的整数解的个数。

填空完成程序，
然后运行程序得出正确结果。

（答案填程
序运行结果，保留整数位）
clea
count1=0
for x=1 to 200
for y=x+1 to 200
for z=y+1 to 200
if _________________
_________________
endif
endfor
endfor
endfor
? count1
retu
74 （x,y,z）满足方程：
x^2+y^2+z^2=260^2(注：要求 z > y >
x>0),则（x,y,z）称为方程的一个解。

求
该方程的整数解的个数。

填空完成程序，
然后运行程序得出正确结果。

（答案填程
序运行结果，保留整数位）
set talk off
clea
count1=0
for x=1 to 260
for y=x+1 to 260
for z=y+1 to 260
if ________________
_______________
endif
endfor
endfor
endfor
? count1
retu
75 50元的整币兑换成5元、2元和1元币
值，要求三种币值均至少有一枚，编程求
这样的换法有多少种。

填空完成程序，然
后运行程序得出正确结果。

（答案填程序
运行结果，保留整数位）
set talk off
clea
_____________
for wy=1 to 10
for ey=1 to 25
for yy=1 to 50
if ______________
count1=count1+1
endif
endfor
endfor
endfor
? count1
retu
76 50元的整币兑换成5元、2元和1元币
值，要求三种币值均至少有一枚，编程求
这样的换法有多少种。

填空完成程序，然
后运行程序得出正确结果。

（答案填程序
运行结果，保留整数位）
clea
____________
for wy=1 to 10
for ey=1 to 25
for yy=1 to 50
if ______________
count1=count1+1
endif
endfor
endfor
endfor
? count1
retu
77 A,B,C是三个小于或等于100的正整
数，当满足1/A^2+1/B^2=1/C^2关系,并且
A>B>C时，称为倒勾股数。

求（A,B,C）这
样的倒勾股数有多少组。

填空完成程序，
然后运行程序得出正确结果。

（答案填程
序运行结果，保留整数位）
set talk off
clea
count1=0
for c=1 to 100
for b=c+1 to 100
for a=b+1 to 100
if _________________
________________
endif
endfor
endfor
endfor
? count1
retu
78 A,B,C是三个小于或等于300的正整
数，当满足1/A^2+1/B^2=1/C^2关系,并且
A>B>C时，称为倒勾股数。

求这样的
倒勾股数有多少组。

填空完成程序，然后
运行程序得出正确结果。

（答案填程序运
行结果，保留整数位）
set talk off
clea
___________
for c=1 to 300
for b=c+1 to 300
for a=b+1 to 300
if _________________
count1=count1+1
endif
endfor
endfor
endfor
? count1
retu
79 A,B,C是三个小于或等于100的正整
数，当满足1/A^2+1/B^2=1/C^2关系,并且
A>B>C时，称为倒勾股数。

求这样的
倒勾股数中A+B+C的值最大是多少。

填空完
成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
clea
max1=0
for c=1 to 100
for b=c+1 to 100
for a=b+1 to 100
if _____________
if _____________
max1=a+b+c
endif
endif
endfor
endfor
endfor
? max1
retu
80 A,B,C是三个小于或等于400的正整
数，当满足1/A^2+1/B^2=1/C^2关系,并且
A>B>C时，称为倒勾股数。

求（A,B,C）这
样的倒勾股数有多少组。

填空完成程序，
然后运行程序得出正确结果。

（答案填程
序运行结果，保留整数位）
set talk off
clea
count1=0
for c=1 to 400
for b=c+1 to 400
for a=b+1 to 400
if _______________
______________
endif
endfor
endfor
endfor
? count1
retu
81 fibonacci数列：
fib(1)=1,fib(2)=1,fib(n)=fib(n-
1)+fib(n-2) n>=3。

求数列中第一个大于
100的素数项是数列的第几项。

填空完成程
序，然后运行程序得出正确结果。

（答案
填程序运行结果，保留整数位）
clea
dime fib(100)
fib(1)=1
fib(2)=1
________________
do while .t.
fib(i)=fib(i-1)+fib(i-2)
if _____________________
? i
exit
endif
i=i+1
enddo
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
82 fibonacci数列：
fib(1)=1,fib(2)=1,fib(n)=fib(n-
1)+fib(n-2), n>=3。

求数列中第10项到第
30项的和是多少（包括第10项和第30项）。

填空完成程序，然后运行程序得出正确
结果。

（答案填程序运行结果，保留整数
位）
clea
dime fib(100)
sum1=0
fib(1)=1
fib(2)=1
____________
do while .t.
fib(i)=fib(i-1)+fib(i-2)
if ________________________
sum1=sum1+fib(i)
endif
i=i+1
if i>30
exit
endif
enddo
? sum1
retu
83 fibonacci数列：
fib(1)=1,fib(2)=1,fib(n)=fib(n-
1)+fib(n-2), n>=3。

求数列第10项到第30
项中项值为偶数的项有多少项（包括第10
项和第30项）。

填空完成程序，然后运行
程序得出正确结果。

（答案填程序运行结
果，保留整数位）
set talk off
clea
dime fib(100)
count1=0
fib(1)=1
fib(2)=1
______________
do while .t.
fib(i)=fib(i-1)+fib(i-2)
if _______________________
count1=count1+1
endif
i=i+1
if i>30
exit
endif
enddo
? count1
retu
84 百钱百鸡问题：用100钱买100只鸡，
公鸡一只五钱，母鸡一只三钱，雏鸡三只
一钱，求共有多少种买法(要求每种鸡至少
要买1只)。

填空完成程序，然后运行程序
得出正确结果。

（答案填程序运行结果，
保留整数位）
set talk off
clear
count1=0
for gj=1 to 20
for mj=1 to 33
zj=_____________
if ______________
count1=count1+1
endif
endfor
endfor
? count1
retu
85 求[100，999]范围内是素数的回文数
的个数。

回文数指这个数顺着和倒着是同
一个数，如：121，232，…都是回文数。

填空完成程序，然后运行程序得出正确结
果。

（答案填程序运行结果，保留整数
位）
clea
count1=0
for i=100 to 999
a=i%10
c=int(i/100)
if ____________
count1=___________
endif
endfor
? count1
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
86 求[100，999]范围内是素数的回文数
之和。

回文数指这个数顺着和倒着是同一
个数，如：121，232，…都是回文数。

填
空完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
set talk off
clea
sum1=0
for i=100 to 999
a=i%10
c=int(i/100)
if ____________
sum1=____________
endif
endfor
? sum1
retu
function su(x)
for j=2 to sqrt(x)
if x%j=0
return(.f.)
endif
endfor
if j>sqrt(x)
return(.t.)
endif
87 求[2，10000]中所有的完全数的个数。

所谓完全数是指这个数所有的因子之和
（不包括这个数本身）等于这个数，例
如：6 1+2+3=6 所以6是个完全数。

填空
完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
clea
count1=0
for i=2 to 10000
sum2=0
for j=1 to i-1
if __________
sum2=sum2+j
endif
endfor
if _________
count1=count1+1
endif
endfor
? count1
retu
88 求[2，10000]中所有的完全数之和。

所谓完全数是指这个数所有的因子之和
（不包括这个数本身）等于这个，例如：6
1+2+3=6 所以6是个完全数。

填空完成程
序，然后运行程序得出正确结果。

（答案
填程序运行结果，保留整数位）
set talk off
clea
sum1=0
for i=2 to 10000
sum2=0
for j=1 to i-1
if ____________
sum2=sum2+j
endif
endfor
if ______________
sum1=sum1+i
endif
endfor
? sum1
retu
89 求[100,140] 之间的弦数的个数（若
某正整数的平方等于另两个正整数平方之
和，则称该数为弦数.例如:3^2+4^2=5^2,
因此5是弦数）。

填空完成程序，然后运行
程序得出正确结果。

（答案填程序运行结
果，保留整数位）
set talk off
clea
count1=0
for i=100 to 140
k=i
for x=1 to i-2
for y=x+1 to i-1
if _____________
count1=count1+1
___________
endif
endfor
endfor
endfor
? count1
retu
90 求[100,140] 之间的弦数的和（若某
正整数的平方等于另两个正整数平方之
和，则称该数为弦数.例如:3^2+4^2=5^2,
因此5是弦数）。

填空完成程序，然后运行
程序得出正确结果。

（答案填程序运行结
果，保留整数位）
clea
sum1=0
for i=100 to 140
k=i
for x=1 to i-2
for y=x+1 to i-1
if _______________
sum1=sum1+I
_____________
endif
endfor
endfor
endfor
? sum1
retu
91 求[140,180] 之间的弦数的个数（若
某正整数的平方等于另两个正整数平方之
和，则称该数为弦数.例如:3^2+4^2=5^2,
因此5是弦数）。

填空完成程序，然后运行
程序得出正确结果。

（答案填程序运行结
果，保留整数位）
set talk off
clea
count1=0
for i=140 to 180
k=i
for x=1 to i-2
for y=x+1 to i-1
if _____________
count1=count1+1
____________
endif
endfor
endfor
endfor
? count1
retu
92 求[140,180] 之间的弦数的和（若某
正整数的平方等于另两个正整数平方之
和，则称该数为弦数.例如:3^2+4^2=5^2,
因此5是弦数）。

填空完成程序，然后运行
程序得出正确结果。

（答案填程序运行结
果，保留整数位）
set talk off
clea
sum1=0
for i=140 to 180
k=i
for x=1 to i-2
for y=x+1 to i-1
if _______________
sum1=sum1+I
______________
endif
endfor
endfor
endfor
? sum1
retu。