VF程序设计题

VF程序设计题(1) 编写程序，求[1，1000]既能被6整除又能被7整除的数的个数。

2cleas=0for n=1 to 100if mod(n,6)=0 and mod(n,7)=0s=s+1endifendfor?s(2)求正整数[1，500]中，能同时满足用3除余2，用5除余3，用7除余2的所有正整数的个数。

5cleas=0for n=1 to 500if mod(n,3)=2 and mod(n,5)=3 and mod(n,7)=2s=s+1endifendfor?s(3)求正整数[500，1000]中，能同时满足用5除余3，用7除余5，用9除余7的数平方和。

1283633cleas=0for n=1 to 500if mod(n,5)=3 and mod(n,7)=5 and mod(n,9)=7s=s+n^2endifendfor?s(5)求1到6000之间的能被5整除的前若干个偶数之和，当和大于650时退出并输出结果。

660cleas=0for n=1 to 6000if mod(n,5)=0 and mod(n,2)=0s=s+nendifif s>650exitendifendifendfor?s(9)计算1000以内多少个数，个位为6且该数被9整除 11n=0for t=6 to 1000if mod(t,10)=6 mod(t,9)=0n=n+1endifendf?n(11) 、统计200-400间满足三个数之积为42，三个数之和为12的数的个数。

4 n=0for x=200 to 400a=int(x/100)b=int((x-a*100)/10)c=mod(x,10)if a+b+c=12 and a*b*c=42n=n+1endifendf?n(13)、求在四位数的奇数中，所以各位数字之和是25的倍数的数的和。

1298515s=0for t=1000 to 9999a=int(t/1000)b=int((t-a*1000)/100)c=int(mod(t,100)/10)d=mod(t,10)if mod(t,2)<>0 and mod(a+b+c+d,25)=0s=s+tendifendf?s(17)、四位数ABCD的个数，他是8的倍数，A+D=B+C， 77s=0for t=1000 to 9999a=int(t/1000)b=int((t-a*1000)/100)c=int(mod(t,100)/10)d=mod(t,10)if mod(t,8)=0 and a+d=b+cs=s+1endifendf?s(19)、0-50内有多少个数，每位数的乘积小于每位数的和。

26n=0for t=0 to 50b=mod(t,10)a=int(t/10)if a*b<a+bn=n+1endifendf?n(21)、"水仙花数"指各位数字的立方和等于该数本身，100——400内有多少个？ n=0for t=100 to 400a=int(t/100)b=int((t-a*100)/10)c=mod(t,10)if a^3+b^3+c^3=a*100+b*10+cn=n+1endifendf?n(23)、、…………，100——2000年内共有多少个水仙花数年号？ 4n=0for t=100 to 2000a=int(t/1000)b=int((t-a*1000)/100)c=int((t-a*1000-b*100)/10)d=mod(t,10)if a^3+b^3+c^3+d^3=a*1000+b*100+c*10+dn=n+1endifendf?n(25)、回文数就是从左至右与从右至左读起来都是一样的数字，例如121是回文数，求100——900内能被3整除的回文数的个数？ 26n=0for x=100 to 400a=int(x/100)b=int((x-a*100)/10)c=mod(x,10)if a=c and mod(x,3)=0n=n+1endifendf?n(27)、…………，从1981——3000年为止，有多少个年号是回文数年号。

11 n=0for x=1981 to 3000a=int(x/1000)b=int((x-a*1000)/100)c=int((x-a*1000-b*100)/10)d=mod(x,10)if a=d and b=cn=n+1endifendf?n(29)、把一张一元钞票,换成一分、二分和五分,要求兑换总数为60枚,问有多少种方案? (1、2、5分币数可为0) 11n=0for a=0 to 100b=0 to 50c=0 to 20if a+b+c=60 and c*5+b*2+a=100n=n+1endifendfendfendf?n(31)、把50元钱分成1，2，5元的纸币共20张的分法有多少种？(1、2、5元张数可为0) 4n=0for a=0 to 20b=0 to 20c=0 to 20if a+b+c=20 and c*5+b*2+a*1=50n=n+1endifendfendfendf?n(33)、60个人买小吃，花钱100元，每大学生花3元，每中学生花2元，每小学生花1元，问大中小学生人数分配有几种解？（去掉某类学生为0） 19s=0for a=1to 40b=1 to 50c=1 to 100if a+b+c=60 and c*1+b*2+a*3=100s=s+1endifendfendfendf?s(35)、50个人买小吃，花钱120元，每大学生花4元，中学生花3元，小学生花2元，问大中小学生人数分配几种解？（去掉某类学生为0） 9 n=0for a=1to 30b=1 to 40c=1 to 60if a+b+c=50 and c*2+b*3+a*4=120n=n+1endifendfendfendf?n(37)、一个数如果刚好与它所有的因子之和相等，称“完数”6=1+2+3，则6是完数，求400以内的完数之和？ 34s=0for k=1 to 400c=0for i=1 to k-1if mod(k,i)=0c=c+iendifendfif c=ks=s+kendifendf?s(39)、…………，200到500之间所有完数之和？ 496s=0for k=200 to 500c=0for i=1 to k-1if mod(k,i)=0c=c+iendifendfif c=ks=s+kendifendf?s(41)、统计1000——9999满足以下条件的四位数的个数，该数是一个完全平方数，1、2位和为12，第3、4位之积24。

1s=0for x=1000 to 9999a=int(x/1000)b=int((x-a*1000)/100)c=int(mod(x,100)/10)d=mod(x,10)y=int(sqrt(x))if x=y*y and a+b=12 and d*c=24s=s+1endifendf?s(43)、已知一个数列的前3个数为3，4，5，以后每个数为前3个数的和，求数列第33项？ 537346739a1=3a2=4a3=5for k=4 to 33a=a1+a2+a3a1=a2a2=a3a3=aendf?a(45)、S=2+4+8+16+32+…求S不大于5000的最大值？ 4096s=0x=2do while .t.s=s+x?s,xif s>5000exitendifx=2*xendd?s-x(49)、一正整数等差数列的前5项的平方和，前四项和26，之积880 ？ 410 for a=1 to 5for d=1 to 5if a+(a+d)+(a+d+d)+(a+d+d+d)=26 anda*(a+d)*(a+d+d)*(a+d+d+d)=880s=a^2+(a+d)^2+(a+d+d)^2+(a+d+d+d)^2+(a+d+d+d+d)^2exitendiendfendf?s51、有5羊4犬3鸡2兔值钱1496,4羊2犬6鸡3兔值钱1175,3羊1犬7鸡5兔值钱958,2羊3犬5鸡1兔值钱861。

求羊值多少钱？ 177n=0for a=10 to 300for b=10 to 250for c=10 to 200for d=10 to 30if 5*a+4*b+3*c+2*d=1496 and 4*a+2*b+6*c+3*d=1175if 3*a+1*b+7*c+5*d=958 and 2*a+3*b+5*c+1*d=861?aendiexitendfendfendfendf(53)、3到200之间的所有非偶数非素数之和. 5774s=0for t=3 to 200f=1for j=2 to int(sqrt(t))if mod(t,j)=0f=0exitendifendfif f=0 and mod(t,2)<>0s=s+tendifendf?s(55)、3到100之间的所有非偶数非素数的数的个数? 25s=0for t=3 to 100f=1for j=2 to int(sqrt(t))if mod(t,j)=0f=0exitendifendfif f=0 and mod(t,2)<>0s=s+1endifendf?s(57)、求共有几组i、j、k符合算式ijk+kji=1333，i、j、k是0到9之间的一个整数. 6n=0for i=0 to 9for j=0 to 9for k=0 to 9if i*100+j*10+k+k*100+j*10+i=1333endifendfendfendf?n（2）、1到6000以内被3或者5整除的数的个数？ 2800（4）、求正整数[200，1000]中，能被4除余3，用7除余5，用9除余2的数之和? 1653（6）、求1到3000之间的能被3整除的前若干个数之和，当和大于600时退出？ 630（8）、1到500能被3和 5 整除的数的个数？ 33(10)、100到500之间满足除5余4和除7余2条件的数的个数。

12 (12)、统计200-300间满足三个数之积为24，三个数之和为10的数的个数。

2 14、求在三位数的奇数中，所以各位数字之和是12的倍数的数的和。

20292 16、在四位数的奇数中，所有各位数字之积（且不为0）是125的倍数的数的和。

16109518、四位数ABCD的个数，他是8的倍数，A+D=B 5720、0-99内有多少个数，每位数的乘积大于每位数的和。

6322、”水仙花数“指各位数字的立方和等于该数本身，100——500内有多少个？ 424、…………，100——999内有多少个？ 426、…………，求100——900内所以回文数的个数？ 8028、121是回文数，求100——900内能被3整除的回文数的和？ 12987 30、把一张一元钞票,换成一分、二分和五分,要求兑换总数为50枚,问有多少种方案? 1332、把18元钱分成1，2，5元的纸币共10张的分法有多少种？ 334、40个人买，花钱100元，每大花5元，中花3元，小花1元，问大中小学生人数分配几种解？ 1436、50个人买，花钱200元，每大花5元，中花3元，小花2元，问大中小学生人数分配几种解？ 838、10000以内的完数的个数？不知道40、1000以内的所有完数的平方和？ 24683642、……该数是一个完全平方数，1、3位积为10， 2、4位之和12 ？ 2 44、已知一个数列的前3个数为1，2，3，以后每个数为前3个数的和，求第20项？ 10190246、S=1+3+5+7……求S不大于1200的最大值？ 115648、S=2+4+8+16+32+…，求S不大于2500的最大值？ 204650、一正整数等差数列的前3项的平方和，前四项和26，之积880 ？ 93 52、鸡犬羊问题，犬值多少钱？ 12154、3到100之间的所有非偶数非素数之和/? 144156、求 2到50区间内亲密数对的对数？ 28。