湖南省二级VF程序的设计题题库.doc

. . . . PAGE . . .. 求出[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 s>30000loopendifendfor? nset talk onreturn 19 求出50以最大的自然数n，使得从