visual foxpro程序题练习汇总.doc

最新VF程序题练习

一、程序改错
1、求[10,2000]内所有能被7和9中至少一个数整除的整数之个数。
set talk off
clear
n=0
for x=10 to 2000
*下行有错
if mod(x,7)=0 and mod(x,9)=0
n=n+1
endif
endfor
? n
set talk on
return
答案：474

2、求[100,2000]内所有能被6整除但不能被9整除的整数之和。
set talk off
clear
s=0
for x=100 to 2000
*下行有错
if mod(x,6)=0 and mod(x,9)=0
s=s+x
endif
endfor
? s
set talk on
return
答案：221232

3、求[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。
set talk off
clear
s=0
for x=101 to 299
if mod(x,2)=0 and not (mod(x,3)=0 and mod(x,5)=0)
*下行有错
x=s+x
endif
endfor
? s
set talk on
return
答案：18630

4、求出233479的所有真因子（即小于它本身的约数）中最大的两个真因子之和。
set talk off
clear
a=233479
s=0
t=0
for b=a-1 to 1 STEP -1
IF t<=2
if mod(b,a)=0
s=s+b
t=t+1
ENDIF
ELSE
loop
endif
endfor
? s
set talk on
return
答案：10864

5、求559399的所有非平凡因子（即除1和它本身以外的约数）中最小的。
set talk off
clear
a=559399
for n=2 to a
if mod(a,n)=0
*下行有错
loop
endif
endfor
? n
set talk on
return
答案：73

6、求179869和196037的最大公约数。
set talk off
clear
a=179869
b=196037
for d=2 to a
*下行有错
if mod(d,a)=0 and mod(d,b)=0
max=d
endif
endfor
? max
set talk on
return
答案：2021

7、求[1,100]内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果
只保留整数）。
set talk off
clear
s=0
for n=1 to 100
*下行有错
if mod(n,6)=0 and mod(n,8)=0
*下行有错
s=sqrt(s+n)
endif
endfor
? round(s,0)
set talk on
return
答案162

8、求出[100,999]内恰有1位数字是7的所有整数之和。
set talk off
set talk off
clear
s=0
for x=100 to 999
a=int(x/100)
*下行有错
b=INT(x-a*100)/10
c=MOD(x,10)
if (a=7 AND b!=7 AND c!=7) or (a!=7 AND b=7 AND c!=7) or (a!=7 AND b!=7 AND c=7)
s=s+x
endif
endfor
? s
set talk on
return
答案137750

9、编写程序，计算10000以内有多少个这样的数，其个位数为6且该数能被9整除。
set talk off
clea
n=0
for i=1 to 10000
if mod(i,10)=6
*下行有错
if mod(i,10)=9
n=n+1
endif
endif
endfor
? n
return
答案111

10、已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求[100,300]之间能被其因子数目整除的数的个数。
set talk off
clea
c=0
for n=100 to 300
s=0
for i=1 to n
*下行有错
if int(i/10)=0
s=s+1
endif
endfor
if mod(n,s)=0
c=c+1
endif
endfor
*下行有错
? s
set talk on
return
答案19

11、闰年是指年号能被4整除，但不能被100整除，或者能被400整除的年份。求1000年到2050年之间共有多少闰年。
set talk off
clear
n=0
for i=1000 to 2050
*下行有错
if mod(i,4)=0 or mod(i,100)#0 and mod(i,400)=0
n=n+1
endif
endfor
? n
set talk on
return
答案255

12、求出203267的所有真因子（即小于它本身的约数）中最大的。
set talk off
clear
a=203267
for b=1 to a-1 step -1
*下行有错
if mod(b,a)=0
exit
endif
endfor
? b
set talk on
return
答案6557

13、将大于1000且能被3和5中至少一个数整除的所有整数按从小到大顺序排列后，求前面20个数之和。
set talk off
clear
k=0
s=0
x=1000
*下行有错
do while k<=20
x=x+1
if mod(x,3)=0 or mod(x,5)=0
*下行有错
s=s+1
k=k+1
endif
enddo
? s
set talk on
return
答案20465

14、求1000以内最小的自然数n，使得从1开始的连续n个自然数的倒数之和大于5.6。
set talk off
clear
s=0
for n=1 to 1000
s=s+1/n
if s>=5.6
*下行有错
loop
endif
endfor
?n
set talk on
return
答案152

15、求500以内最小的自然数n，使得从102开始的连续n个偶数之和大于60000。
set talk off
clear
s=0
for n=0 to 500
a=102+2*n
s=s+a
if s>60000
*下行有错
loop
endif
endfor
?n
set talk on
return
答案199

16、求出100以内使得算式1+(1+2)+…+(1+2+…+n)的值小于1000的最大的自然数n。
set talk off
clear
s=0
t=0
for n=1 to 100
s=s+n
t=t+s
*下行有错
if t<1000
exit
endif
endfor
?n-1
set talk on
return
答案17

17、求出100以内最大的奇数n使得算式(1-1/2)+(1/3-1/4)+…+(1/n-1/(n+1))的值小于0.68。
set talk off
clear
s=0
for n=1 to 100 step 2
a=1/n-1/(n+1)
s=s+a
*下行有错
if s<0.68
exit
endif
endfor
? n-1
set talk on
return
答案36

18、某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。
set talk off
clear
s=1
for n=2001 to 2100
s=s*1.03
if s=2
loop
endif
endfor
? n
set talk on
return
答案2024

19、已知数列：1,2,4,7,11,16,…，其规律是相邻两项之差依次是1,2,3,4,5,…。试求出此数列中小于6000的最大的项。
set talk off
clear
a=1
for n=0 to 1000
*下行有错
if a+n<6000
exit
endif
a=a+n
endfor
? a
set talk on
return
答案5996

20、求S＝1-1/3+1/5-1/7+.....的前100项之和。
set talk off
clea
s=0
f=-1
for i=1 to 100
*下行有错
s=s-f/(2*i+1)
f=-1*f
endfor
? s
return
答案0.7829

21、求最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于10。
set talk off
clear
s=0
for n=1 to 100000
s=s+1/n
if s>=10
*下行有错
loop
endif
endfor
*下行有错
? s
set talk on
return
答案12366

22、求最小的自然数n，使得从101开始到n中被3除余1的数之和大于8000。
set talk off
clear
s=0
for n=101 to 100000
if mod(n,3)=1
s=s+n
if s>8000
*下行有错
loop
endif
endif
endfor
*下行有错
? n-1
set talk on
return
答案241

23、求使得算式1*3+2*5+…+n*(2n+1)的值小于10000的最大的自然数n。
set talk off
clear
s=0
for n=1 to 1000
s=s+n*(2*n+1)
*下行有错
if s<=10000
exit
endif
endfor
*下行有错
? n
set talk on
return
答案23

24、求最大的自然数n使得算式(1/1-1/2)+(1/3-1/4)+…+(1/(2n-1)-1/(2n))的值小于0.68。
set talk off
clear
s=0
for n=1 to 1000 step 2
a=1/n-1/(n+1)
s=s+a
*下行有错
if s<0.68
exit
endif
endfor
*下行有错
? n
set talk on
return
答案36

25、设等比数列：1，3，9，27，…。求使得此数列的前n项之和大于2345678的最小的自然数n。
set talk off
clear
a=1
s=0
for n=1 to 100
*下行有错
s=s*a
if s>2345678
*下行有错
loop
endif
a=3*a
endfor
? n
set talk on
return
答案14

26、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最小的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程超过589米。
set talk off
clear
h=100
s=h
*下行有错
for n=1 to 100
*下行有错
h=h+h*3/4
s=s+2*h
if s>589
exit
endif
endfor
? n
set talk on
return
答案7

27、设有用26个字母表示的26个表达式：a=1，b=1/(a+1)，c=1/(b+2)，…，z=1/(y+25)。试求出这26个字母中其值小于0.1的字母个数。
set talk off
clear
*下行有错
lett=0
n=0
for k=1 to 25
lett=1/(lett+k)
*下行有错
if lett>=0.1
n=n+1
endif
endfor
? n
set talk on
return
答案16

28、已知数列{f(n)}:f(1)=1,f(2)=1,当n>2时f(n)=3f(n-2)-f(n-1)。试求此数列的前15项中所有正数项之和。
set talk off
clear
dimension f(20)
f(1)=1
f(2)=1
*下行有错
s=0
for n=3 to 15
f(n)=3*f(n-2)-f(n-1)
*下行有错
if f(n)#0
s=s+f(n)
endif
endfor
? s
set talk on
return
答案12293

29、求方程3x-7y=1在条件|x|<100且|y|<40下的整数解的个数。
set talk off
clear
n=0
for x=-99 to 99
y=int((3*x-1)/7)
*下行有错
if 3*x-7*y=1 or abs(y)<40
n=n+1
endif
endfor
? n
set talk on
return
答案26

30、把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案?
set talk off
clear
n=0
for yi=11 to 100
for er=11 to 20
for wu=11 to 20
*下行有错
if yi+er+wu=100
n=n+1
endif
endfor
endfor
endfor
? n
set talk on
return
答案13

31、求方程3x-7y=1在条件|x|<100且|y|<40下的所有整数解的|x|+|y|的最大值。
set talk off
clear
max=0
for x=-99 to 99
*下行有错
y=int((3*x)/7)
*下行有错
z=abs(x+y)
if 3*x-7*y=1 and abs(y)<40
max=z
endif
endfor
? max
set talk on
return
答案127

32、编写程序，求所有符合算式ij*ji=2668的最大数ij（即i*10+j）。其中i、j是1~9之间的一位整数。
set talk off
clea
max=10
for i=1 to 9
for j=1 to 9
*下行有错
if ij+ji=2668
*下行有错
if max<ij
max=10*i+j
endif
endif
endfor
endfor
? max
return
答案92

33、找满足以下条件: X^2+Y^2+Z^2=41^2 且X+Y+Z之值最大的三个正整数X,Y,Z, 求X+Y+Z之值.
set talk off
clea
max=0
for x=0 to 41
for y=0 to 41
for z=0 to 41
*下行有错
if x*2+y*2+z*2=41*41
*下行有错
if max>x+y+z
max=x+y+z
endif
endif
endfor
endfor
endfor
? max
set talk off
答案71

34、求100－1000内的所有素数的平均数。（素数是指只能被1和本身整除的数）
set talk off
clea
n=0
t=0
for i=100 to 1000
f=1
*下行有错
for j=2 to i
if mod(i,j)=0
f=0
*下行有错
loop
endif
endfor
if f=0
n=n+i
t=t+1
endif
endfor
? n/t
return
答案524.9441

35、一个大于6的偶数可以表示为两个素数之和，即C=A+B，其中C为偶数，A与B为素数。求出280的所有素数和表示中A*B的最大值。
c=280
t=0
max=0
for a=3 to c/2 STEP 2
f1=1
for j=2 to a-1
if mod(a,j)=0
f1=0
exit
endif
ENDFOR
IF f1=1
b=c-a
f2=1
for j=2 to b-1
if mod(b,j)=0
f2=0
exit
endif
ENDFOR
ENDIF
*下行有错
IF f1=1 or f2=1
*下行有错
IF max>a*b
max=a*b
endif
ENDIF
endfor
? max
return
答案19519

36、设某四位数的各位数字的立方和等于100，问满足这种条件的四位数且是素数的数共有多少个？
set talk off
clea
n=0
for x=1000 to 9999
f=1
for i=2 to int(sqrt(x))
if mod(x,i)=0
f=0
exit
endif
endfor
*下行有错
if f=0
a=int(x/1000)
b=int((x-a*1000)/100)
*下行有错
c=int(x/10)
d=MOD(x,10)
IF a*a*a+b*b*b+c*c*c+d*d*d=100
n=n+1
ENDIF
ENDIF
ENDFOR
? n
return
答案1933

37、求100－1000内的第10个素数。（素数是指只能被1和本身整除的数）
set talk off
clea
n=0
k=0
for i=100 to 1000
f=1
*下行有错
for j=2 to i
if mod(i,j)=0
f=0
exit
endif
endfor
if f=1
n=i
k=k+i
if k=10
exit
endif
endif
endfor
? n
return
答案149

38、梅森尼数是指能使2^n-1为素数的数n，求[1，21]范围内的梅森尼数的个数？
set talk off
clear
n=0
for I=2 to 21
flag=1
*下行有错
for j=2 to I
if mod((2^I-1),j)=0
flag=0
exit
endif
endfor
*下行有错
if flag=0
n=n+1
endif
endfor
?n
set talk on
return
答案7

39、一个大于6的偶数可以表示为两个素数之和，即C=A+B，其中C为偶数，A与B为素数。求出300的所有素数和表示中A*B的最大值。
set talk off
clea
c=300
t=0
*下行有错
max=10000000
for a=3 to c/2 STEP 2
f1=1
for j=2 to a-1
if mod(a,j)=0
f1=0
exit
endif
ENDFOR
IF f1=1
b=c-a
f2=1
for j=2 to b-1
if mod(b,j)=0
f2=0
exit
endif
ENDFOR
ENDIF
*下行有错
IF f1=1 or f2=1
IF max<a*b
max=a*b
endif
ENDIF
endfor
? max
return
答案22499

40、回文数指的是正读和反读都一样的数字，如121、1221。试求出[1234,9876]内奇数回文数的个数。
set talk off
clear
n=0
for x=1234 to 9876
*下行有错
a=x/1000
b=int((x-a*1000)/100)
c=int((x-a*1000-b*100)/10)
d=x-a*1000-b*100-c*10
*下行有错
if a=d and b=c and mod(x,2)=0
n=n+1
endif
endfor
? n
set talk on
return
答案45

41、勾股弦数是满足公式： A^2+B^2=C^2 (假定A<B<C)的一组正整数（A，B，C），例如，（3，4，5）是勾股弦数，因为：3^2+4^2=5^2。求A，B均小于25且A+B+C<=100的勾股弦数的个数。
set talk off
clea
n=0
for a=1 to 25
for b=1 to 25
for c=1 to 100
if a<b and b<c
if a+b+c=100
n=n+1
endif
endif
endfor
endfor
endfor
?n
return
答案11

42、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是"四位双平方数"。例如： 由于7396=86^2，且7+3+9+6=25=5^2，则称7396是"四位双平方数"。求所有"四位双平方数"中最大的一个"四位双平方数"。
set talk off
clea
max=0
for i=1000 to 9999
*下行有错
a=i/1000
b=int((i-a*1000)/100)
c=int((i-a*1000-b*100)/10)
d=mod(i,10)
x=a+b+c+d
if sqrt(i)=int(sqrt(i)) and sqrt(x)=int(sqrt(x))
*下行有错
if max>i
max=i
endif
endif
endfor
? min
set talk on
return
答案9025

43、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是"四位双平方数"。例如： 由于7396=86^2，且7+3+9+6=25=5^2，则称7396是"四位双平方数"。求所有"四位双平方数"且十位数字是3的数之和"。
set talk off
clea
s=0
for i=1000 to 9999
*下行有错
a=i/1000
b=int((i-a*1000)/100)
c=int((i-a*1000-b*100)/10)
d=mod(i,10)
x=a+b+c+d
if sqrt(i)=int(sqrt(i)) and sqrt(x)=int(sqrt(x)) and c=3
*下行有错
s=s+1
endif
endfor
? s
set talk on
return
答案8836

44、"水仙花数"是指这样的数，其各位数字的立方和等于该数本身，如:153=1^3+5^3+3^3。编写程序，计算从100年开始到3000年为止，最大的水仙花数年号为多少？
set talk off
clea
max=0
for i=100 to 2000
a=int(i/1000)
b=int((i-a*1000)/100)
*下行有错
c=mod(i,100)
d=mod(i,10)
*下行有错
if a*a+b*b+c*c+d*d=i and max<i
max=i
endif
endfor
? max
return
答案407

45、求出[750,978]内恰好有两位数字是8的所有整数之和.
set talk off
set talk off
clear
s=0
for x=750 to 978
a=int(x/100)
b=int((x-a*100)/10)
c=mod(x,10)
if (a=8 and b=8 and c<>8 or a=8 and c=8 and b<>8 or b=8 and c=8 and a<>8)
*下行有错
s=s+1
endif
endfor
? s
set talk on
return
答案16387

46、分子分母为正整数，分子小于分母的分数称为真分数。对于分数的分子分母取值范围为 [50，90] 且分母能被3整除、分子能被5整除的真分数共有多少个.
set talk off
clea
n=0
for a=50 to 89
*下行有错
for b=50 to 90
*下行有错
if mod(b,3)=0
n=n+1
endif
endfor
endfor
? N
set talk on
return
答案63

47、求出[700,900]内最多有一位数字是6所有整数之和（注意AT()函数和STR()函数的功能）。
set talk off
clear
*下行有错
s=700
for x=700 to 900
*下行有错
if at('6',str(x),1)=0 or at('6',str(x),1)>0
s=s+x
endif
endfor
? s
set talk on
return
答案159168

48、50个小学生按１至50序号顺时针围成一圈，做出局游戏，老师站在圈外顺时针从第一个人数起，每数到3时，这人从圈里出来，继续数1,2,3数到第3个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。
set talk off
clea
dime a(50)
for i=1 to 50
a(i)=1
endfor
k=0
n=0
for i=1 to 50
p=1 &&每趟报数
*下行有错
do while p<3
k=K+1
if k>50
k=1
endif
if a[k]<>0
*下行有错
p=k
endif
enddo
a[k]=0
n=n+1
IF n=50
? k
endif
ENDFOR
return
答案11

49、设某四位数的各位数字的平方和等于100，问共有多少个这种四位数？
set talk off
clea
n=0
for x=1000 to 9999
a=int(x/1000)
b=int((x-a*1000)/100)
*下行有错
c=int(x/10)
d=mod(x,10)
if a*a+b*b+c*c+d*d=100
*下行有错
n=n+x
endif
endfor
? n
set talk on
return
答案49

50、将字符串'fgBR5Y2'中对应的第i个字符的ASCII值增加值5i之后生成的新的符号串是什么？。(注意大小写字母）
set talk off
clea
str1='fgBR5Y2'
*下行有错
le=str1
str2=''
for i=1 to le
*下行有错
str2=CHR(ASC(subs(str1,i,1))+5*i)
endfor
? str2
set talk off
return
答案kqQfNwU

二、程序填空
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
答案100737

2、已知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
答案1523

3、求1000到8000以内能被3和7整除的整数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）
SET TALK OFF
CLEA
I=1000
S=0
DO WHILE I<=8000
IF ___________________
s=s+i
ENDI
____________
ENDD
? S
RETU
答案1496502

4、求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
答案36924

5、求在1，2，3，4，…，1000这1000个数中，任意选两个不同的数，它们的和能被6整除的数的总对数（注意：像1+5和5+1被认为是同一对数）。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）
SET TALK OFF
CLEAR
N=0
I=