资源描述：
《湖南省二级VF程序设计题题库.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、求出[10,1000]内所有能被7和9中至少一个数整除的整数的个数。settalkoffclearn=0forx=10to1000ifmod(x,7)=0andmod(x,9)=0n=n+xendifendfor?nsettalkonreturn236求出[10,1000]内所有能同时被7和9整除的整数之和。settalkoffclears=0forx=10to1000ifmod(x,7)=0andmod(x,9)=0s=xendifendfor?xsettalkonreturn7560求出[10,1000]内所有能被6整除但不能被9整除的整数之和。settalkoffclears=0forx
2、=10to1000ifmod(x,6)=0ormod(x,9)=0x=s+xendifendfor?ssettalkonreturn55440求出[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。settalkoffclearn=0forx=10to1000ifmod(x,6)=0andmod(x,9)!=0andmod(x,6)!=0andmod(x,9)=0n=xendifendfor?nsettalkonreturn165求出[100,800]内所有既不能被5整除也不能被7的整数的个数。settalkoffclearn=0forx=100to800ifmod(x,5
3、)=0andmod(x,7)<>0n=x+1endifendfor?xsettalkonreturn480求出[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。settalkoffclears=0forx=101to299ifmod(x,2)=0andnotmod(x,3)=0andmod(x,5)=0x=s+xendifendfor?ssettalkonreturn18630求出100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。settalkoffclears=0forn=1to100s=(s+1)/nifs>=3.5loopendifendfor
4、?n-1settalkonreturn18求出100以内最小的自然数n，使得从1开始的连续n个自然数的倒数之和大于3.6。settalkoffclears=0forn=1to100s=s+1/nifs<=3.6loopendifendfor?nsettalkonreturn21求出100以内最大的自然数n，使得从1开始的连续n个自然数的平方和小于5000。settalkoffclears=0forn=1to100s=s+n*2ifs>=5000exitendifendfor?nsettalkonreturn24求出100以内最小的自然数n，使得从1开始的连续n个自然数的平方之和大于5500。s
5、ettalkoffclears=0forn=1to100s=s+n*nifs<=5500exitendifendfor?ssettalkonreturn2516求出100以内最大的自然数n，使得从1开始的连续n个自然数的立方和小于20000。settalkoffclears=0forn=1to100s=s+n*3ifs>=20000exitendifendfor?nsettalkonreturn求出100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于30000。settalkoffclears=0forn=1to100s=s+n*n*3ifs>30000loopendifend
6、for?nsettalkonreturn19求出50以内最大的自然数n，使得从102开始的连续n个偶数之和小于3000。settalkoffclears=0forn=1to50a=100+2*ns=s*aifs>=3000loopendifendfor?n-1settalkonreturn23求出50以内最小的自然数n，使得从102开始的连续n个偶数之和大于2000。settalkoffclears=0forn=1to50a=102+2*ns=s+aifs>2000loopendifendfor?nsettalkonreturn17求出50以内最大的自然数n，使得从101开始的连续n个奇数之和
7、小于2000。settalkoffclears=0forn=1to50a=99+2*ns=s+aifs<2000exitendifendfor?nsettalkonreturn17求出50以内最小的自然数n，使得从101开始的连续n个奇数之和大于3000。settalkoffclears=0forn=1to50a=101+2*ns=s+aifs>3000exitendifendfor?ssetta
