湖南省VF程序设计题库答案及过程.doc

《湖南省VF程序设计题库答案及过程.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、湖南省一级程序设计题库过程及答案1编程序求出1-200以内的能被7整除的数的平方和。cleas=0m=0fori=1to200ifi%7=0m=i^2s=s+mendifendfor?s2编程序求1~99的平方根的和并输出结果。（保留小数点两位）661.46cleas=0fori=1to99s=s+sqrt(i)endfor?round(s,2)3编程序求1~55的平方根的和并输出结果。（保留小数点两位）275.43cleas=0fori=1to55s=s+sqrt(i)endfor?round(s,2)4编程序统计1~1000能被3整除的数的个数。333c

2、leas=0forn=1to1000ifn%3=0s=s+1endifendfor?s5编程序求出1~100所有整数的平方和并输出结果。cleas=0forn=1to100s=s+n^2endfor?s6编程序求出1~200所有整数的平方和并输出结果。cleas=0forn=1to200s=s+n^2endfor?s7编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500时程序退出。550cleas=0forn=10to5000step10s=s+nifs>500exitendifendfor?s8编程序求在3000以内被17或者23整除的

3、正整数数的个数。299cleas=0forn=1to3000ifn%17=0orn%23=0s=s+1endifendfor?s9序求在1000以内被17或者23整除的正整数数的个数。99cleas=0forn=1to1000ifn%17=0orn%23=0s=s+1endifendfor?s10编程序求在5000以内被17或者23整除的正整数数的个数。499cleas=0forn=1to5000ifn%17=0orn%23=0s=s+1endifendfor?s11编程序求出1-100以内的能被3整除的数的平方和。cleas=0forn=1to100ifn

4、%3=0s=s+n^2endifendfor?s12已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。cleadimef(36)f(1)=0f(2)=0f(3)=1s=0forn=4to36f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s13编程序求出1-100以内的能被9整除的数的平方和。40986cleas=0forn=1to100ifn%9=0s=s+n^2endifendfor?s14编程序求出1-200以内的能被3整除的数的平方和。cleas=0forn=1to200ifn%3=

5、0s=s+n^2endifendfor?s15编程序求出1-7000以内能被3或者7整除数的个数。3000cleas=0forn=1to7000ifn%3=0orn%7=0s=s+1endifendfor?s16序求出1-3000以内能被3或者5整除数的个数。1400cleas=0forn=1to3000ifn%3=0orn%5=0s=s+1endifendfor?s17编程序求出1-5000以内能被3或者7整除数的个数。2142cleas=0forn=1to5000ifn%3=0orn%7=0s=s+1endifendfor?s18编程序求出1-6000以

6、内能被3或者5整除数的个数。2800cleas=0forn=1to6000ifn%3=0orn%5=0s=s+1endifendfor?s19编程序求出1-4000以内能被3或者11整除数的个数。1575cleas=0forn=1to4000ifn%3=0orn%11=0s=s+1endifendfor?s20编程序求出1-5000以内能被37整除的整数之和。cleas=0forn=1to5000ifn%37=0s=s+nendifEndfor?s21编程序求出1-6000以内能被23整除的整数之和。cleas=0forn=1to6000ifn%23=0s=

7、s+nendifendfor?s22编程序求出1-3000以内能被33整除的整数之和。cleas=0forn=1to3000ifn%33=0s=s+nendifendfor?s23编程序求出1-5000以内能被15整除的整数之和。cleas=0forn=1to5000ifn%15=0s=s+nendifendfor?s24编程序求出100到200之间同时满足除3余2和除5余3条件的数的个数。6cleas=0forn=100to200ifn%3=2andn%5=3s=s+1endifendfor?s25编程序求出1到300之间同时满足除3余2和除5余3条件的数

8、的个数。20cleas=0forn=1to300if