省考复习VF程序设计一.docVIP

VF程序设计复习题 第一部分程序设计 1、 编写程序，求四位数的偶数中，所有各位数字之和是15的倍数的数的和。(1592376) Set talk of S=0 For i=1000 to 9998 Step 2 A=int(i/1000) B=int((i-a* 1000)/100) C=int((i-a* 1000-b* 100)/10) D=mod(i,1000) If mod((a+b+c+d), 15)=0 S=s+i End if End for ? S Set talk on Return 1、 编写程序，求三位数的偶数中，所有各位数字之和是15的倍数的数的和。(20454) 1-2. 编写程序，求三位数的奇数中，所有各位数字Z和是15的倍数的数的和。(19731) 1-3、 编写程序，求三位数的奇数小，所有各位数字之和是12的倍数的数的个数。(38) 1-4编写程序，求四位数的奇数中，所有各位数字之积(且不为0)是60的倍数的数的和。 (3456254) 5编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且 A+B二B+C,即第1位数加上第2位数等于第2位数加上第3位数。(110) 2、 编写程序，求1到5000之间的能被5整除的前若干个偶数之和，当和值大于500吋退出, 输出该和值。(550) Set talk off S=() i=2 Do while s=500 If mod(i,5)=0 S=s+i End if End do ? S Set talk on Return 1编写程序，已知：S=2+4+8+16+32+…,求S不大于2500的最大值。(2046) Set talk off S=0 i=2 Do while s=2500 S=s+i i二i*2 End do ? s-i Set talk on Return 3、编写程序，计算在0?50的范围内有多少个数，其每位数的乘积大于每位数的和。(23) Set talk off N=0 For x=ll to 50 A=int(x/10) B=mod(x,10) If a*ba+b N=n+1 End if End ofr ? N Set talk off Retum 1、编写程序，求在3000以内能被17或者23整除的正整数的个数。(299) Set talk off N=0 For x=l to 3000 If mod(x, 17)=0 OR mod(x,23)=0 N=n+1 End if End for ? n Set talk on Return 3-2编写程序，求在1000以内能被17或者23整除的正整数的个数。(99) 3-3编写程序，求在1000以内能被17或者23整除的正整数的和。 3-4编写程序，求在1000以内既能被17,又能被23整除的正整数的和。 3-5编写程序，求出100至I」500之间同时满足除5余4和除7余2条件的数的个数。(12) 3-6编写程序，求出100至I」500之I可同吋满足除5余4和除7余2条件的数的和。(3678) 3-7编写程序，计算1000以内有多少个这样的数，其个位数为6且该数能被9整除。(11) Set talk off N=0 For x=1 to 1000 D=mod(x,10) If d=6 and mod(x,9)=0 N=n+1 End if End for ? N Set talk off Return “完数”问题 4、一个数如果刚好与它所有的因子之和相等，则称该数为一个“完数”，如：6= 1+2+3,则6 就是一个完数。求出200到500之间所有的完数之和。(496) Set talk off S=0 所有完数之和 For x=200 to 500 M=0 x的因子之和 For q=l to X-l If mod(x,q)=0 M=m+q 求因子之和 End if If x=m S=s+x 求完数之和的 End if End for End for ? s Set talk on Return 1 一个数如果刚好与它所有的因子之和相等，则称该数为一个“完数“，如：6=1+2+3,则 6就是一个完数。求出1000以内的完数的个数。(3) 一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，求出600以内 的所有完数的平方和。(246836) Set talk off S=0 所有完数的平方和 For x=200 to 500 M=0 x的因子之和 For q=l to X-l If mod(x,q)=0 M=m+q 求因子之和 End if If x=m S=s+xA2 求完数的平方和 End if End for End for ? s Se