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