最新VF程序题练习.docx
《最新VF程序题练习.docx》由会员分享，可在线阅读，更多相关《最新VF程序题练习.docx（57页珍藏版）》请在冰豆网上搜索。
最新VF程序题练习
最新VF程序题练习
一、程序改错
1、求[10,2000]内所有能被7和9中至少一个数整除的整数之个数。
settalkoff
clear
n=0
forx=10to2000
*下行有错
ifmod（x,7）=0andmod（x,9）=0
n=n+1
endif
endfor
n
settalkon
return
答案：
474
2、求[100,2000]内所有能被6整除但不能被9整除的整数之和。
settalkoff
clear
s=0
forx=100to2000
*下行有错
ifmod（x,6）=0andmod（x,9）=0
s=s+x
endif
endfor
s
settalkon
return
答案：
221232
3、求[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。
settalkoff
clear
s=0
forx=101to299
ifmod（x,2）=0andnot（mod（x,3）=0andmod（x,5）=0）
*下行有错
x=s+x
endif
endfor
s
settalkon
return
答案：
18630
4、求出233479的所有真因子（即小于它本身的约数）中最大的两个真因子之和。
settalkoff
clear
a=233479
s=0
t=0
forb=a-1to1STEP-1
IFt<=2
ifmod（b,a）=0
s=s+b
t=t+1
ENDIF
ELSE
loop
endif
endfor
s
settalkon
return
答案：
10864
5、求559399的所有非平凡因子（即除1和它本身以外的约数）中最小的。
settalkoff
clear
a=559399
forn=2toa
ifmod（a,n）=0
*下行有错
loop
endif
endfor
n
settalkon
return
答案：
73
6、求179869和196037的最大公约数。
settalkoff
clear
a=179869
b=196037
ford=2toa
*下行有错
ifmod（d,a）=0andmod（d,b）=0
max=d
endif
endfor
max
settalkon
return
答案：
2021
7、求[1,100]内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果
只保留整数）。
settalkoff
clear
s=0
forn=1to100
*下行有错
ifmod（n,6）=0andmod（n,8）=0
*下行有错
s=sqrt（s+n）
endif
endfor
round（s,0）
settalkon
return
答案162
8、求出[100,999]内恰有1位数字是7的所有整数之和。
settalkoff
settalkoff
clear
s=0
forx=100to999
a=int（x/100）
*下行有错
b=INT（x-a*100）/10
c=MOD（x,10）
if（a=7ANDb!
=7ANDc!
=7）or（a!
=7ANDb=7ANDc!
=7）or（a!
=7ANDb!
=7ANDc=7）
s=s+x
endif
endfor
s
settalkon
return
答案137750
9、编写程序，计算10000以内有多少个这样的数，其个位数为6且该数能被9整除。
settalkoff
clea
n=0
fori=1to10000
ifmod（i,10）=6
*下行有错
ifmod（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]之间能被其因子数目整除的数的个数。
settalkoff
clea
c=0
forn=100to300
s=0
fori=1ton
*下行有错
ifint（i/10）=0
s=s+1
endif
endfor
ifmod（n,s）=0
c=c+1
endif
endfor
*下行有错
s
settalkon
return
答案19
11、闰年是指年号能被4整除，但不能被100整除，或者能被400整除的年份。
求1000年到2050年之间共有多少闰年。
settalkoff
clear
n=0
fori=1000to2050
*下行有错
ifmod（i,4）=0ormod（i,100）#0andmod（i,400）=0
n=n+1
endif
endfor
n
settalkon
return
答案255
12、求出203267的所有真因子（即小于它本身的约数）中最大的。
settalkoff
clear
a=203267
forb=1toa-1step-1
*下行有错
ifmod（b,a）=0
exit
endif
endfor
b
settalkon
return
答案6557
13、将大于1000且能被3和5中至少一个数整除的所有整数按从小到大顺序排列后，求前面20个数之和。
settalkoff
clear
k=0
s=0
x=1000
*下行有错
dowhilek<=20
x=x+1
ifmod（x,3）=0ormod（x,5）=0
*下行有错
s=s+1
k=k+1
endif
enddo
s
settalkon
return
答案20465
14、求1000以内最小的自然数n，使得从1开始的连续n个自然数的倒数之和大于5.6。
settalkoff
clear
s=0
forn=1to1000
s=s+1/n
ifs>=5.6
*下行有错
loop
endif
endfor
n
settalkon
return
答案152
15、求500以内最小的自然数n，使得从102开始的连续n个偶数之和大于60000。
settalkoff
clear
s=0
forn=0to500
a=102+2*n
s=s+a
ifs>60000
*下行有错
loop
endif
endfor
n
settalkon
return
答案199
16、求出100以内使得算式1+（1+2）+…+（1+2+…+n）的值小于1000的最大的自然数n。
settalkoff
clear
s=0
t=0
forn=1to100
s=s+n
t=t+s
*下行有错
ift<1000
exit
endif
endfor
n-1
settalkon
return
答案17
17、求出100以内最大的奇数n使得算式（1-1/2）+（1/3-1/4）+…+（1/n-1/（n+1））的值小于0.68。
settalkoff
clear
s=0
forn=1to100step2
a=1/n-1/（n+1）
s=s+a
*下行有错
ifs<0.68
exit
endif
endfor
n-1
settalkon
return
答案36
18、某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。
settalkoff
clear
s=1
forn=2001to2100
s=s*1.03
ifs=2
loop
endif
endfor
n
settalkon
return
答案2024
19、已知数列：
1,2,4,7,11,16,…，其规律是相邻两项之差依次是1,2,3,4,5,…。
试求出此数列中小于6000的最大的项。
settalkoff
clear
a=1
forn=0to1000
*下行有错
ifa+n<6000
exit
endif
a=a+n
endfor
a
settalkon
return
答案5996
20、求S＝1-1/3+1/5-1/7+.....的前100项之和。
settalkoff
clea
s=0
f=-1
fori=1to100
*下行有错
s=s-f/（2*i+1）
f=-1*f
endfor
s
return
答案0.7829
21、求最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于10。
settalkoff
clear
s=0
forn=1to100000
s=s+1/n
ifs>=10
*下行有错
loop
endif
endfor
*下行有错
s
settalkon
return
答案12366
22、求最小的自然数n，使得从101开始到n中被3除余1的数之和大于8000。
settalkoff
clear
s=0
forn=101to100000
ifmod（n,3）=1
s=s+n
ifs>8000
*下行有错
loop
endif
endif
endfor
*下行有错
n-1
settalkon
return
答案241
23、求使得算式1*3+2*5+…+n*（2n+1）的值小于10000的最大的自然数n。
settalkoff
clear
s=0
forn=1to1000
s=s+n*（2*n+1）
*下行有错
ifs<=10000
exit
endif
endfor
*下行有错
n
settalkon
return
答案23
24、求最大的自然数n使得算式（1/1-1/2）+（1/3-1/4）+…+（1/（2n-1）-1/（2n））的值小于0.68。
settalkoff
clear
s=0
forn=1to1000step2
a=1/n-1/（n+1）
s=s+a
*下行有错
ifs<0.68
exit
endif
endfor
*下行有错
n
settalkon
return
答案36
25、设等比数列：
1，3，9，27，…。
求使得此数列的前n项之和大于2345678的最小的自然数n。
settalkoff
clear
a=1
s=0
forn=1to100
*下行有错
s=s*a
ifs>2345678
*下行有错
loop
endif
a=3*a
endfor
n
settalkon
return
答案14
26、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最小的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程超过589米。
settalkoff
clear
h=100
s=h
*下行有错
forn=1to100
*下行有错
h=h+h*3/4
s=s+2*h
ifs>589
exit
endif
endfor
n
settalkon
return
答案7
27、设有用26个字母表示的26个表达式：
a=1，b=1/（a+1），c=1/（b+2），…，z=1/（y+25）。
试求出这26个字母中其值小于0.1的字母个数。
settalkoff
clear
*下行有错
lett=0
n=0
fork=1to25
lett=1/（lett+k）
*下行有错
iflett>=0.1
n=n+1
endif
endfor
n
settalkon
return
答案16
28、已知数列{f（n）}:
f
（1）=1,f
（2）=1,当n>2时f（n）=3f（n-2）-f（n-1）。
试求此数列的前15项中所有正数项之和。
settalkoff
clear
dimensionf（20）
f
（1）=1
f
（2）=1
*下行有错
s=0
forn=3to15
f（n）=3*f（n-2）-f（n-1）
*下行有错
iff（n）#0
s=s+f（n）
endif
endfor
s
settalkon
return
答案12293
29、求方程3x-7y=1在条件|x|<100且|y|<40下的整数解的个数。
settalkoff
clear
n=0
forx=-99to99
y=int（（3*x-1）/7）
*下行有错
if3*x-7*y=1orabs（y）<40
n=n+1
endif
endfor
n
settalkon
return
答案26
30、把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案?
settalkoff
clear
n=0
foryi=11to100
forer=11to20
forwu=11to20
*下行有错
ifyi+er+wu=100
n=n+1
endif
endfor
endfor
endfor
n
settalkon
return
答案13
31、求方程3x-7y=1在条件|x|<100且|y|<40下的所有整数解的|x|+|y|的最大值。
settalkoff
clear
max=0
forx=-99to99
*下行有错
y=int（（3*x）/7）
*下行有错
z=abs（x+y）
if3*x-7*y=1andabs（y）<40
max=z
endif
endfor
max
settalkon
return
答案127
32、编写程序，求所有符合算式ij*ji=2668的最大数ij（即i*10+j）。
其中i、j是1~9之间的一位整数。
settalkoff
clea
max=10
fori=1to9
forj=1to9
*下行有错
ifij+ji=2668
*下行有错
ifmaxmax=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之值.
settalkoff
clea
max=0
forx=0to41
fory=0to41
forz=0to41
*下行有错
ifx*2+y*2+z*2=41*41
*下行有错
ifmax>x+y+z
max=x+y+z
endif
endif
endfor
endfor
endfor
max
settalkoff
答案71
34、求100－1000内的所有素数的平均数。
（素数是指只能被1和本身整除的数）
settalkoff
clea
n=0
t=0
fori=100to1000
f=1
*下行有错
forj=2toi
ifmod（i,j）=0
f=0
*下行有错
loop
endif
endfor
iff=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
fora=3toc/2STEP2
f1=1
forj=2toa-1
ifmod（a,j）=0
f1=0
exit
endif
ENDFOR
IFf1=1
b=c-a
f2=1
forj=2tob-1
ifmod（b,j）=0
f2=0
exit
endif
ENDFOR
ENDIF
*下行有错
IFf1=1orf2=1
*下行有错
IFmax>a*b
max=a*b
endif
ENDIF
endfor
max
return
答案19519
36、设某四位数的各位数字的立方和等于100，问满足这种条件的四位数且是素数的数共有多少个？
settalkoff
clea
n=0
forx=1000to9999
f=1
fori=2toint（sqrt（x））
ifmod（x,i）=0
f=0
exit
endif
endfor
*下行有错
iff=0
a=int（x/1000）
b=int（（x-a*1000）/100）
*下行有错
c=int（x/10）
d=MOD（x,10）
IFa*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和本身整除的数）
settalkoff
clea
n=0
k=0
fori=100to1000
f=1
*下行有错
forj=2toi
ifmod（i,j）=0
f=0
exit
endif
endfor
iff=1
n=i
k=k+i
ifk=10
exit
endif
endif
endfor
n
return
答案149
38、梅森尼数是指能使2^n-1为素数的数n，求[1，21]范围内的梅森尼数的个数？
settalkoff
clear
n=0
forI=2to21
flag=1
*下行有错
forj=2toI
ifmod（（2^I-1）,j）=0
flag=0
exit
endif
endfor
*下行有错
ifflag=0
n=n+1
endif
endfor
n
settalkon
return
答案7
39、一个大于6的偶数可以表示为两个素数之和，即C=A+B，其中C为偶数，A与B为素数。
求出300的所有素数和表示中A*B的最大值。
settalkoff
clea
c=300
t=0
*下行有错
max=10000000
fora=3toc/2STEP2
f1=1
forj=2toa-1
ifmod（a,j）=0
f1=0
exit
endif
ENDFOR
IFf1=1
b=c-a
f2=1
forj=2tob-1
ifmod（b,j）=0
f2=0
exit
endif
ENDFOR
ENDIF
*下行有错
IFf1=1orf2=1
IFmaxmax=a*b
endif
ENDIF
endfor
max
return
答案22499
40、回文数指的是正读和反读都一样的数字，如121、1221。
试求出[1234,9876]内奇数回文数的个数。
settalkoff
clear
n=0
forx=1234to9876
*下行有错
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
*下行有错
ifa=dandb=candmod（x,2）=0
n=n+1
endif
endfor
n
settalkon
return
答案45
41、勾股弦数是满足公式：
A^2+B^2=C^2（假定A3^2+4^2=5^2。
求A，B均小于25且A+B+C<=100的勾股弦数的个数。
settalkoff
clea
n=0
fora=1to25
forb=1to25
forc=1to100
ifaifa+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是"四位双平方数"。
求所有"四位双平方数"中最大的一个"四位双平方数"。
settalkoff
clea
max=0
fori=1000to9999
*下行有错
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
ifsqrt（i）=int（sqrt（i））andsqrt（x）=int（sqrt（x））
*下行有错
ifmax>i
max=i
endif
endif
endfor
min
settalkon
return
答案9025
43、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是"四位双平方数"。
例如：
由于7396=86^2，且7+3+9+6=25=5^2，则称7396是"四位双平方数"。
求所有"四位双平方数"且十位数字是3的数之和"。
settalkoff
clea
s=0
fori=1000to9999
*下行有错
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
ifsqrt（i）=int（sqrt（i
升级会员 