请求哪位VF高手帮我编写下面程序~~急用！！！！

Question

VF上机考试练习题
1、求2+4+6+8+……+100的和。
求水仙花数的个数。（水仙花数是指一个三位数，它的各位数字的立方和等于它本身，例如153，13+53+33=153，所以153是水仙花数。）
2、求【100，500】能除3余1，除5余2，除7余3的数的个数。
3、求【200，600】内能被3、5、7整除的数的个数。
4、求4位数的对称数的个数。
5、数列0，1，2，3，6，11，20……，求第40项是多少。
求水仙花数的个数。
6、求【500，800】内能被3或者5整除，但是不能被7整除的数的个数。
10100块钱买100只鸡。公鸡5元一只，母鸡3元一只，小鸡1元钱3只。问共育多少种买法。
7、求1/2+2/3+3/4+ …… + 99/100 的和。
8、求253686和8542568的最大公约数
9、将一张100元的钞票换成零钱，可以换5元的，2元的和1元的，其中要求5元的钞票和2元的钞票的总张数不能超过8张，问共有多少种换法。
10、输入一个四位数的年份，判断是否闰年。
11、求数列0，1，1，2，3，5 …… 前12项的和。
12、求3位数的对称数的个数
13、100元钱换成零钱，可以换10元的，5元的，1元的，问共有多少种换法。
14、数列0，1，1，2，3，5，8……，求前30项和
15、求[600，900]内除以3余2，除以5余3的数的个数。
16、求[100，2500]内各位数字的和是15的数的个数。例如1437，1+4+3+7=15。
17、求1/2+1/3+1/4+ …… +1/100的和。
18、一个数如果刚好与它所有的真因子之和相等，则称该数为一个"完数"，如：6=1+2+3，则6就是一个完数。求出200到500之间所有的完数之和。
19、100元钱买100只鸡，其中公鸡5元一只，母鸡2元一只，小鸡1元钱2只，问共有多少种买法？
20、求【30，300】内能被17和23整除的数的和。
21、S=1+2+4+8+16+……，求S大于5000的第一个值。
22、求【100，200】内素数的个数
23、求所有四位数中，对称数的个数。对称数是指千位数字与个位数字相等、百位数字与十位数字相等的数，例如2662，4334。
24、求1+3+5+ …… +99的和。
25、如果一个数只有1和它本身两个约数，则称该数是质数。求[780，2800]内质数的个数。
26、数列1，2，3，5，8……，求第30项是多少。
27、用100元钱去买水果，香蕉3元钱一个，苹果2元钱一个，芒果1元钱一个，问总共有多少种买法。

Answer 1

好多，收费帮你写

Answer 2

1题10分如何？，先帮你解下第10题：
CLEAR
DIMENSION chick[3,2]
STORE 0 TO chick
chick[1,2]=5
chick[2,2]=3
chick[3,2]=1/3
lnmax=0
FOR i=0 TO 100/chick[1,2]

FOR j=0 TO 100/chick[2,2]

FOR k=0 TO 100/chick[3,2]

IF i+j+k=100 AND ;
i*chick[1,2]+j*chick[2,2]+k*chick[3,2]=100
?'公鸡:'+TRANSFORM(i)+'·母鸡:'+TRANSFORM(j)+'·小鸡:'+TRANSFORM(k)
?'公鸡'+tran(i*chick[1,2])+'元·'+;
'母鸡'+TRANSFORM(j*chick[2,2])+'元·'+;
'小鸡'+TRANSFORM(k*chick[3,2])+‘元'
lnmax=lnmax+1
ENDIF
ENDFOR
ENDFOR
ENDFOR
?'共有'+TRANSFORM(lnmax)+'种买法'

Answer 3

呵呵，你都跑到这里来了啊

Answer 4

1.s=0
for i=2 to 100 step 2
s=s+i
endfor
?s
2.n=0
for i=100 to 999
a=int(i/100)
b=int(i/10)-10*a
c=mod(i,10)
if i=a^3+b^3+c^3
n=n+1
endif
endfor