- 1、本文档共54页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
湖南省二級VF程序设计题题库
求出[10,1000]内所有能被7和9中至少一个数整除的整数的个数。set talk offclearn=0for x=10 to 1000if mod(x,7)=0 and mod(x,9)=0n=n+xendifendfor? nset talk onreturn 236 求出[10,1000]内所有能同时被7和9整除的整数之和。set talk offclears=0for x=10 to 1000if mod(x,7)=0 and mod(x,9)=0s=xendifendfor? xset talk onreturn 7560 求出[10,1000]内所有能被6整除但不能被9整除的整数之和。set talk offclears=0for x=10 to 1000if mod(x,6)=0 or mod(x,9)=0x=s+xendifendfor? sset talk onreturn 55440 求出[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。set talk offclearn=0for x=10 to 1000if mod(x,6)=0 and mod(x,9)!=0 and mod(x,6)!=0 and mod(x,9)=0n=xendifendfor? nset talk onreturn 165 求出[100,800]内所有既不能被5整除也不能被7的整数的个数。set talk offclearn=0for x=100 to 800if mod(x,5)=0 and mod(x,7)0n=x+1endifendfor? xset talk onreturn 480 求出[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。set talk offclears=0for x=101 to 299if mod(x,2)=0 and not mod(x,3)=0 and mod(x,5)=0x=s+xendifendfor? sset talk onreturn 18630 求出100以内最大的自然数n,使得从1开始的连续n个自然数的倒数之和小于3.5。set talk offclears=0for n=1 to 100s=(s+1)/nif s=3.5loopendifendfor? n-1set talk onreturn 18 求出100以内最小的自然数n,使得从1开始的连续n个自然数的倒数之和大于3.6。set talk offclears=0for n=1 to 100s=s+1/nif s=3.6loopendifendfor? nset talk onreturn 21 求出100以内最大的自然数n,使得从1开始的连续n个自然数的平方和小于5000。set talk offclears=0for n=1 to 100s=s+n*2if s=5000exitendifendfor? nset talk onreturn 24 求出100以内最小的自然数n,使得从1开始的连续n个自然数的平方之和大于5500。set talk offclears=0for n=1 to 100s=s+n*nif s=5500exitendifendfor? sset talk onreturn 25 求出100以内最大的自然数n,使得从1开始的连续n个自然数的立方和小于20000。set talk offclears=0for n=1 to 100s=s+n*3if s=20000exitendifendfor? nset talk onreturn 16 求出100以内最小的自然数n,使得从1开始的连续n个自然数的立方之和大于30000。set talk offclears=0for n=1 to 100s=s+n*n*3if s30000loopendifendfor? nset talk onreturn 19 求出50以内最大的自然数n,使得从102开始的连续n个偶数之和小于3000。set talk offclears=0for n=1 to 50a=100+2*ns=s*aif s=3000loopendifendfor? n-1set talk onreturn 23 求出50以内最小的自然数n,使得从102开始的连续n个偶数之和大于200
文档评论(0)