1、VF的程序设计题VF的程序设计题1、 求10,1000内所有能被被7和9中至少一个数整除的整数之个数。答案：236n=0for i=10 to 1000 if mod(i,7)=0 or mod(i,9)=0 n=n+1 endiendf?n2、 求101,299内所有能被2整除但不能同时被3和5整除的整数之和。答案：18630s=0for i=101 to 299 if mod(i,2)=0 and not (mod(i,3)=0 and mod(i,5)=0) s=s+i endiendf?s3、求100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。答案：18s=0
2、for i=1 to 100 s=s+1/i if s=3.5 exitendiendf?i-14、求100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于30000。答案：25s=0for i=1 to 100 s=s+i3 if s30000 exitendiendf?i5、求出100以内使得算式1*2+2*3+n*(n+1)的值小于5000的最大的自然数n。答案：23s=0for i=1 to 100 s=s+i*(i+1) if s=5000 exitendiendf?i-16、求出100以内使得算式1/(1*1)+1/(2*2)+1/(n*n)的值小于1.6的最大的自然
3、数n。答案：21s=0for i=1 to 100 s=s+1/i2 if s=1.6 exitendiendf?i-17、某国今年的人口总数为1亿，若以每年4%的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。答案：18n=0x=1do while x2x=x*(1+0.04) n=n+1enddo?n8、设等比数列：1，3，9，27，。求使得此数列的前n项之和大于2345678的最小的自然数n。答案：14s=0n=0do while s=2345678 s=s+3n n=n+1enddo?n9、求出45678的所有非平凡因子（即除1和它本身以外的约数）中是奇数的因子个数。答案：7n=
4、0s=45678for i=3 to 22839 step 2 if mod(s,i)=0 n=n+1 endifendfor?n10、求出203267的所有真因子（即小于它本身的约数）中最大的因子数。答案：6557s=203267for i=1 to int(203267/3)if mod(s,i)=0 n=i endifendfor?n 11、求出20677和42067的最大公约数。答案：713for i=20677 to 1 step -1 if mod(20677,i)=0 and mod(42067,i)=0 exit endifendfor?i12、求前1,100内能被6或8整除的
5、所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。答案：162s=0for i=1 to 100 if mod(i,6)=0 or mod(i,8)=0 s=s+sqrt(i) endifendfor?round(s,0)13、求所有符合算式ab*ba=2701的最小的两位数ab（即a*10+b）。其中a、b是19之间的一位整数。答案：37for a=1 to 9 for b=1 to 9 if (a*10+b)*(b*10+a)=2701 ?a*10+b return endif endforendfor14、已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是1
6、,2,3,4,5,。试求出此数列中大于5000的最小的项。答案：5051a=1n=1do while a5000 a=a+n n=n+1enddo?a15、已知数列f(n)：f(1)=1，f(2)=4，当n=3,4,5,时，f(n)=3*f(n-1)-f(n-2)。试求出100以内最小的自然数n使得此数列的第n项大于87654321。答案：20Dimension f(100)f(1)=1f(2)=4n=2do while f(n) 87654321 n=n+1f(n)=3*f(n-1)-f(n-2)enddo?n16、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是
7、前一高度的3/4倍，试求出最大的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程不超过690米。答案：15h=100s=100n=1do while s690 h=h*3/4s=s+2*h n=n+1enddo?n-117、设有用26个字母表示的26个表达式：a=1，b=1/(a+1)，c=1/(b+2)，z=1/(y+25)。试求出这26个字母中其值小于0.1的字母个数。答案：16a=1n=0for i=1 to 25 a=1/(a+i) if a0.1n=n+1 endifendfor?n18、 回文指的是正读和反读都一样的一串字符，如121、1221。试求出1421,4
8、112内所有回文数的和。答案：74250s=0for i=1421 to 4112 if int(i/1000)=i%10 and int(i/100)%10= int(i%100/10)s=s+i endifendfor?s19、求在100,999内所有不含数字0且各位数字之积被96整除的数之和。答案：26640s=0for a=1 to 9 for b=1 to 9for c=1 to 9 if(mod(a*b*c,96)=0) s=s+a*100+b*10+c endiendf endfendf?s 20、将大于1000且能被4和6中至少一个数整除的所有整数按从小到大顺序排列后，求前面2
9、0个数之和。答案：20610a=1001n=0s=0do while n20 if mod(a,4)=0 or mod(a,6)=0s=s+a n=n+1endifa=a+1enddo?s 21、若一个自然数恰好是它的平方的末后几位数，则称此数为自同构数。如5和76都是自同构数，因为它们的平方分别是25和5776。求2,99999内所有自同构数之和。（提示：若x是m位同构数，则x的平方除以10的m次方的余数就是x）答案：101114s=0for i=2 to 999999 if mod(i*i,10)=i or mod(i*i,100)=i or mod(i*i,1000)=i or mod(
10、i*i,10000)=i or mod(i*i,100000)=is=s+i endifendfor?s22、求满足条件A*B=54321且使A+B的值最小的自然数对A、B中较小的一个数。（提示：设A=B，当A越大时A+B越小）答案：57s1=54322for i=1 to int(sqrt(54321) if(54321%i=0 )s=i+54321/iif(s0 if(c%2=1)n=n+1 endif c=int(c/2)enddo?n25、对自然数A、B、C，若ABC且A*A+B*B=C*C，则称A,B,C为一组勾股弦数，其中A、B、C分别称为勾、股、弦。试求出弦为25000的勾股弦数
11、组的个数。答案：5n=0for b=12500 to 25000 for a=1 to b-1if a*a+b*b=25000*25000 n=n+1endif endforendfor ?n 26、求方程3x-7y=1在条件|x|100且|y|75364321exit endifendfor?n28、求100200内的所有素数的个数。（素质是指只能被1和本身整除的数） 答案：21n=0for i=100 to 200 for j=2 to i-1if(i%j=0) exitendif endfor if j=in=n+1 endifendfor?n29、求100010000内的第50个素数。
12、（素质是指只能被1和本身整除的数）答案：1361n=0for i=1000 to 10000 for j=2 to i-1if(i%j=0) exitendif endfor if j=in=n+1 endif if n=50exit endifendfor?i30、编写程序，计算10000以内有多少个这样的数，其个位数为6且该数能被9整除。答案：111n=0for i=1 to 10000 if i%10=6 and i%9=0n=n+1endifendfor?n31、设某四位数的各位数字的平方和等于100，问共有多少个这种四位数？答案：49n=0for i=1000 to 9999 a=i
13、nt(i/1000) b=int(i/100)%10 c=int(i/10)%10 d=i%10 if a2+b2+c2+d2=100n=n+1 endifendfor?n32、把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案?答案：13n=0for a=11 to 20 for b=11 to 50for c=11 to 100 if a*5+b*2+c=100 n=n+1 endif endfor endforendfor?n33、把一张一元钞票,换成一分、二分和五分硬币,每种至少1枚,问兑换后硬币总数最多的与硬币总数最少的枚数之差是多少?答案：73max=3min
14、=300for a=1 to 20 for b=1 to 50for c=1 to 100 if a*5+b*2+c=100 s=a+b+cif(smax) max=s endif if(smin)min=s endif endifendfor endforendfor?max-min34、找满足以下条件: X2+Y2=412 且X+Y之值最大的二个正整数X,Y, 求X+Y之值.答案：49max=41for x=1 to 41 for y=x to 41if x*x+y*y=41*41 and max500exit endif endifendfor?s40、一个数如果刚好与它所有的因子之和相
15、等，则称该数为一个完数，如：6=1+2+3，则6就是一个完数。求出200到500之间所有的完数之和。答案：496sum=0for i=200 to 500 s=0 for j=1 to i-1if i%j=0 s=s+jendif endfor if s=isum=sum+i endifendfor?sum41、编写程序，求在5000以内能被17或者23整除的正整数的个数。答案：499n=0for i=1 to 5000 if i%17=0 or i%23=0n=n+1 endifendfor?n42、编写程序，求四位数的偶数中，所有各位数字之和是15的倍数的数的个数。答案：306n=0for
16、 i=1000 to 9999 step 2 a=int(i/1000) b=int(i/100)%10 c=int(i/10)%10 d=i%10 if (a+b+c+d)%15=0n=n+1 endifendfor?n43、编写程序，计算在050的范围内有多少个数，其每位数的乘积大于每位数的和。答案：23n=0for i=0 to 50 a=int(i/10) b=i%10 if a*ba+bn=n+1 endifendfor?n 44、用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为60枚，问共有多少种换法？(注：在兑换中，一分、两分或五分的硬币数可以为0枚)答案：11n=0f
17、or a=0 to 20 for b=0 to 50c=60-a-b if a*5+b*2+c=100 n=n+1 endif endforendfor?n45、编写程序，求出100到500之间同时满足除5余4和除7余2条件的数的个数。答案：12n=0for i=100 to 500 if i%5=4 and i%7=2n=n+1endifendfor?n 46、有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值多少钱？答案：23for a=1 to 300 for b=1 to 300for c=1 to 170 d=
18、861-2*a-3*b-5*c if 4*a+2*b+6*c+3*d=1175 and 3*a+b+7*c+5*d=958 and 5*a+4*b+3*c+2*d=1496 ?c return endifendforendforendfor47、编写程序，求出3到100之间的所有非偶数非素数的数之和。答案：1441s=0for i=3 to 100 step 2 for j=2 to i-1 if i%j=0 exitendif endfor if jis=s+i endifendfor?s48、有50个学生一起买小吃，共花钱200元，其中每个大学生花5元，每个中学生花3元，每个小学生花2元，
19、问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？答案：8n=0for x=1 to 40for y=1 to 70 z=50-x-y if x*5+y*3+z*2=200n=n+1 endifendforendfor?n49、编写程序，统计10009999之间的所有满足以下条件的四位数的个数。该数是一个完全平方数，且其第1、2位数字之和为10，第3、4位数字之积为18。答案：1k=0n1=int(sqrt(1000)for n=n1 to 99 m=n*n a=int(m/1000) b=int(m/100)%10 c=int(m/10)%10d=m%10if a+b=10 and c*d=18 k=k+1endifendfor?k50、编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是26、之积是880。答案：4720for a=1 to 5 for d=1 to 4if 4*a+6*d=26 and a*(a+d)*(a+2*d)*(a+3*d)=880 ?a3+ (a+d)3+(a+2*d)3+(a+3*d)3+(a+4*d)3endif endforendfor
