《省考复习 VF程序设计一》由会员分享，可在线阅读，更多相关《省考复习 VF程序设计一（20页珍藏版）》请在金锄头文库上搜索。
1、VF程序设计复习题第一部分 程序设计1、 编写程序，求四位数的偶数中，所有各位数字之和是15的倍数的数的和。（）Set talk ofS=0For 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 ifEnd for? SSet talk onReturn1-1、 编写程序，求三位数的偶数中，所有各位数字之和是15的倍数的数的和。(20454)1-2、 编写程序，求三位数的奇数中，所有各位
2、数字之和是15的倍数的数的和。(19731)1-3、 编写程序，求三位数的奇数中，所有各位数字之和是12的倍数的数的个数。(38)1-4 编写程序，求四位数的奇数中，所有各位数字之积（且不为0）是60的倍数的数的和。()1-5 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。(110)2、编写程序，求1到5000之间的能被5整除的前若干个偶数之和，当和值大于500时退出，输出该和值。（550）Set talk offS=0i=2Do while s=500 If mod(i,5)=0 S=s+i End
3、ifEnd do? SSet talk onReturn2-1 编写程序，已知：S=2+4+8+16+32+，求S不大于2500的最大值。(2046)Set talk offS=0i=2Do while sa+b N=n+1 End ifEnd ofr? NSet talk offReturn3-1、编写程序，求在3000以内能被17或者23整除的正整数的个数。(299)Set talk offN=0For x=1 to 3000 If mod(x,17)=0 OR mod(x,23)=0 N=n+1 End ifEnd for? nSet talk onReturn3-2 编写程序，求在10
4、00以内能被17或者23整除的正整数的个数。(99)3-3 编写程序，求在1000以内能被17或者23整除的正整数的和。3-4 编写程序，求在1000以内既能被17，又能被23整除的正整数的和。3-5 编写程序，求出100到500之间同时满足除5余4和除7余2条件的数的个数。（12）3-6 编写程序，求出100到500之间同时满足除5余4和除7余2条件的数的和。（3678）3-7 编写程序，计算1000以内有多少个这样的数，其个位数为6且该数能被9整除。(11)Set talk offN=0For x=1 to 1000 D=mod(x,10) If d=6 and mod(x,9)=0 N=
5、n+1 End ifEnd for? NSet talk offReturn “完数”问题4、一个数如果刚好与它所有的因子之和相等，则称该数为一个完数，如：6=1+2+3，则6就是一个完数。求出200到500之间所有的完数之和。（496）Set talk off S=0 &所有完数之和For x=200 to 500 M=0 & x的因子之和 For q=1 to X-1 If mod(x,q)=0 M=m+q &求因子之和 End if If x=m S=s+x & 求完数之和的 End if End forEnd for? sSet talk on Return4-1 一个数如果刚好与它所
6、有的因子之和相等，则称该数为一个完数，如：6=1+2+3，则6就是一个完数。求出1000以内的完数的个数。(3)一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，求出600以内的所有完数的平方和。()Set talk off S=0 &所有完数的平方和For x=200 to 500 M=0 & x的因子之和 For q=1 to X-1 If mod(x,q)=0 M=m+q &求因子之和 End if If x=m S=s+x2 & 求完数的平方和 End if End forEnd for? sSet talk on Return“斐波拉契”数列问题5、已知一个数列的前3
7、个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。（）Set talk offN=0F1=0F2=0F3=1For x=1 to 33 F=f1+f2+f3 F1=f2 F2=f3 F3=fEnd for? FSet talk onReturn5-1已知一个数列的前3个数为0，1，2，以后每个数为前3个数的和，编写程序求此数列的第30项。()“换零钱”问题6、用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为50枚，问共有多少种换法？(注：在兑换中，一分、两分或五分的硬币数可以为0枚)Set talk offN=0For x=0 to 20 For y=0 to
8、50 For z=0 to 100 If x+y+z=50 and X*5+y*2+x*1=100 N=n+1 End if End for End forEnd for? nSet talk onReturn6-1 把50元钱分成一元、二元和五元的纸币且纸币张数共为20张的分法有多少种？（注：在兑换中，一元、二元、五元的纸币张数可以为0）(4)6-2 有30个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？(9)Set talk offN=0For x=1 to 30 Fro y=
9、1 to 30 For z=1 to 30 If x+y+z=30 And x*3+y*2+x*1=50 N=n+1 End If End for End forEnd for? NSet talk onReturn“回文数”问题7、所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100-900之间的所有回文数的个数。(80)Set talk off N=0For x=100 to 900 A=int(x/100) C=mod(x,10) If a=c N=n+1 End if End for? NSet talk onReturn71 所谓回文数是从
10、左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100-200的范围内所有回文数的和。(1460)72所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在100-900的范围内所有能被3整除的回文数的个数。(26)Set talk offN=0For x=100 to 999 A=int(x/100) C=mod(x,10) If A=C and mod(x,3)=0 N=n+1 End if End for? nSet talk on Return73 所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数
11、。编写程序，计算从1981年开始到3000年为止，共有多少个年号是回文数年号。（11）“水仙花数”问题 8、“水仙花数”是指这样的数，其各位数字的立方和等于该数本身。(如153=13+53+33，153就是水仙花数)编写程序求100至400的范围内有多少个水仙花数。（3）Set talk off N=0For x=100 to 400 A=int(x/100) B=int(x-a*100)/10) C=mod(x,10) If A3+B3+C3=x N=n+1 End ifEnd for? NSet talk onReturn81“水仙花数”是指这样的数，其各位数字的立方和等于该数本身。编写程
12、序，计算从100年开始到2000年为止，共有多少个年号是水仙花数年号。（4）“素数”问题9、所谓素数是指这样的自然数，除1和它本身外不再有其它因子。编写程序，计算从1981年开始到3000年为止，我们将遇到多少个素数年号。（131）Set talk offN=0For x=1981 to 3000 Fiag=1 For q=2 to x-1If mod(x,q)=0 Flag=0 ExitEnd if End for If Flag=1 N=n+1 End ifEnd for? NSe talk onReturn91 编写程序，求出3到200之间的所有非偶数非素数的数之和。(5774)Set
13、talk offS=0For x=3 to 199 step 2 For q=2 to x-1If mod(x,q)=0 S=s+xEnd if End forEnd for? SSet talk offReturn92 编写程序，求出3到100之间的所有非偶数非素数的数的个数。(25)“等差数列”问题10、编写程序，求一正整数等差数列的前六项的平方和，该数列的前四项之和是26，之积是880。设第1项为I，第2项为J，第3项为k，第4项为L,公差为D。Set tlk offFor I=1 to 26 For j=1 to 26For K=1 to 26 For l=1 to 26 If I+J+K+L=26 And I*J*K*
