visualfoxpro程序设计期末考试有很多程序设计题求高人帮忙做下。。万分感激上机考试1、计算100到1000之间出现数字5的数的总个数。例如：345，355，250，587等等.2、打印出10到1000

Question

visual foxpro程序设计
期末考试有很多程序设计题 求高人帮忙做下。。万分感激上机考试1、        计算100到1000之间出现数字5的数的总个数。例如：345，355，250，587等等.2、        打印出10到1000之间十位是 数字6的所有素数，例如：67，163，6613、        已知F(N)=F(N-1)+F(N-2),F(0)=1,F(1)=2，求F(50)4、        计算1到20之间所有奇数的平方和和偶数的立方的和。程序设计题1、求1到100以内偶数的和。2、求1到100以内能被3整除的数的和。3、 编写程序，求在四位数的偶数中，所有各位数字之和是30的倍数的数的和 4、求[351,432]之间所有既不能被3整除,又不能被8整除的整数的和。                  5、编写程序，求[1，500]既能被6整除又能被7整除的数之和。              6、编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。              7、所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在100—900的范围内所有能被3整除的回文数的和。        8、用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为30枚，问共有多少种换法？(注：在兑换中一分、两分或五分的硬币数可以为0枚)9、已知一个数列的前3个数为3，4，5，以后每个数为前3个数的和，编程序求此数列的第28个数。10、一只猴子一天从山上摘来一袋桃子，从这天开始，它每天都要把袋中的桃子平分为二堆，吃掉其中的一堆，然后再从剩下的桃中拿出一个解谗，等到第10天，它发现袋中只有一只桃可吃啦，问猴子总共摘了多少桃。11. 求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数        12、把一张一元钞票,换成一分、二分和五分硬币,每种至少1枚,问兑换后其中二分的硬币恰有20枚的方案共有多少种?13、"水仙花数"是指这样的数，其各位数字的立方和等于该数本身，如:153=1^3+5^3+3^3。编写程序，计算从100年开始到3000年为止的水仙花数年号个数？14. 回文指的是正读和反读都一样的一串字符，如121、1221。试求出[1421,4112]内所有回文数的和。15、求1到100所有奇数的和。16. 斐波那契数列的计算前30项的和17.求100以内最大的自然数n，使从1开始的连续n个自然数的倒数之和小于3.5。 18、有50个学生一起买小吃，共花钱100元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？19. 求[10,1000]内所有能同时被7和9整除的整数之和。                     20. 某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。          

Answer 1

&&　1 - 4 题
&& 1.计算100到1000之间出现数字5的数的总个数。
CLEAR
s = 0
FOR i = 100 TO 1000
s = s + IIF(AT("5", STR(i)) > 0, 1, 0)
ENDFOR
? "100到1000之间出现数字5的数的总个数:", s
&& 2.打印出10到1000之间十位是数字6的所有素数
CLEAR
? "10到1000之间十位是数字6的所有素数:"
FOR i = 10 TO 1000
y = 1
FOR j = 2 TO i-1
IF MOD(i, j) = 0
y = 0
EXIT
ENDIF
ENDFOR
IF y = 1 AND RIGHT(STR(i), 2) = "6"
? i
ENDIF
ENDFOR
&& 3.已知F(N)=F(N-1)+F(N-2),F(0)=1,F(1)=2，求F(50)
CLEAR
t1 = 1
t2 = 2
s = 0
FOR i = 2 TO 50
s = t2 + t1
t1 = t2
t2 = s
ENDFOR
? "已知 F(N)=F(N-1)+F(N-2), F(0)=1, F(1)=2， F(50)=", s
&& 4.计算1到20之间所有奇数的平方和和偶数的立方的和
CLEAR
s1 = 0
s2 = 0
FOR i = 1 TO 20
IF MOD(i, 2) = 0
s2 = s2 + i^3
ELSE
s1 = s1 + i^2
ENDIF
ENDFOR
? "1到20之间所有奇数的平方和:", s1
? "1到20之间所有偶数的立方和:", s2