《湖南省二级VF程序设计题题库》由会员分享，可在线阅读，更多相关《湖南省二级VF程序设计题题库（54页珍藏版）》请在金锄头文库上搜索。
1、1求出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 onreturn236求出10,1000内所有能同时被 7 和 9 整除的整数之和。set talk offclears=0for x=10 to 1000if mod(x,7)=0 and mod(x,9)=0s=xendifendfor? xset talk onreturn7560求出10,1000内所有能被 6 整除但不能被 9 整
2、除的整数之和。set talk offclears=0for x=10 to 1000if mod(x,6)=0 or mod(x,9)=0x=s+xendifendfor? sset talk onreturn55440求出10,1000内所有能被 6 和 9 中的一个且只有一个数整除的整数的个数。set talk offclearn=0for x=10 to 1000165if mod(x,6)=0 and mod(x,9)!=0 and mod(x,6)!=0 and mod(x,9)=0n=xendifendfor? nset talk onreturn求出100,800内所有既不能被
3、 5 整除也不能被 7 的整数的个数。set talk offclearn=0for x=100 to 800if mod(x,5)=0 and mod(x,7)=3.5loopendifendfor18? n-1set talk onreturn求出 100 以内最小的自然数 n，使得从 1 开始的连续 n 个自然数的倒数之和大于 3.6。set talk offclears=0for n=1 to 100s=s+1/nif s=5000exitendifendfor? nset talk onreturn24求出 100 以内最小的自然数 n，使得从 1 开始的连续 n 个自然数的平方之和
4、大于 5500。set talk offclears=0for n=1 to 100s=s+n*nif s=20000exitendifendfor? nset talk onreturn16求出 100 以内最小的自然数 n，使得从 1 开始的连续 n 个自然数的立方之和大于 30000。set talk offclears=0for n=1 to 100s=s+n*n*3if s30000loopendifendfor? nset talk onreturn19求出 50 以内最大的自然数 n，使得从 102 开始的连续 n 个偶数之和小于 3000。set talk offclears=
5、0for n=1 to 50a=100+2*ns=s*aif s=3000loopendifendfor? n-1set talk onreturn23求出 50 以内最小的自然数 n，使得从 102 开始的连续 n 个偶数之和大于 2000。17set talk offclears=0for n=1 to 50a=102+2*ns=s+aif s2000loopendifendfor? nset talk onreturn求出 50 以内最大的自然数 n，使得从 101 开始的连续 n 个奇数之和小于 2000。set talk offclears=0for n=1 to 50a=99+2*
6、ns=s+aif s3000exitendifendfor? sset talk onreturn25求出 100 以内使得算式 1*2+2*3+n*(n+1)的值小于 5000 的最大的自然数 n。23set talk offclears=0for n=1 to 100a=n*(n+1)s=s+aif s=10000loopendifendfor? n-1set talk onreturn23求出 100 以内使得算式 1+(1+2)+(1+2+n)的值小于 1000 的最大的自然数 n。173set talk offclears=0t=0for n=1 to 100s=s+nt=t+sif
7、 t1500exitendifendfor? nset talk onreturn20求出 100 以内使得算式 1/(1*2)+1/(2*3)+1/(n*(n+1)的值小于 0.952 的最大的自然数 n。set talk offclears=0for n=1 to 100s=s+1/n*(n+1)if s1.35loopendifendfor? nset talk onreturn求出 100 以内的最大的自然数 n，使得算式1+1/(1+2)+1/(1+2+n)的值小于 1.9。set talk offclears=0t=0for n=1 to 100s=s+1/nt=t+sif t=1
8、.9exitendifendfor? n-1set talk onreturn18求出 100 以内使得算式 1+1/(1*2)+1/(1*2*n)的值大于 1.71828 的最小的自然数 n。set talk offcleara=1.00000000s=0.00000000for n=1 to 100a=a/ns=s+aif s=2loopendifendfor? nset talk onreturn18设等比数列：1，2，4，8，。求使得此数列的前n 项之和大于 100000 的最小的自然数 n。set talk offcleara=1s=1for n=1 to 100s=s+aif s1
9、00000exitendifa=2+aendfor? nset talk onreturn17设等比数列：1，2，4，8，。求使得此数列的前n 项之和小于 150000 的最大的自然数 n。set talk offcleara=1s=0for n=1 to 100s=s+aif s=150000exitendifa=2+aendfor? nset talk on17return设等比数列：1，3，9，27，。求使得此数列的前n 项之和大于 2345678 的最小的自然数 n。set talk offcleara=1s=0for n=1 to 100s=s*aif s2345678exitend
10、ifa=3+aendfor? nset talk onreturn14设等比数列：1，3，9，27，。求使得此数列的前n 项之和小于 3456789 的最大的自然数 n。set talk offcleara=1s=0for n=1 to 100s=s*aif s0loopendifendfor? kset talk onreturn268801求所有符合算式 ab*ba=2701 的最小的两位数ab（即 a*10+b） 。其中 a、b 是 19 之间的一位整数。set talk offclearfor x=11 to 99a=x/10b=mod(x,10)y=10*a+bif x*y=2701
11、exitendifendfor? xset talk onreturn37已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是 1,2,3,4,5,。试求出此数列中大于 5000 的最小的项。set talk offcleara=1for n=0 to 1000a=a+nif a5000loop 5051endifendfor? nset talk onreturn已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是 1,2,3,4,5,。试求出此数列中小于 6000 的最大的项。set talk offcleara=0for n=0 to 1000if a+n80
12、0exit endifendfor? nset talk onreturn已知数列f(n)：f(1)=1 ，f(2)=4，当 n=3,4,5,时，f(n)=3*f(n-1)-f(n-2)。试求出 100 以内最小的自然数n 使得此数列的第 n 项大于 7654321。set talk offcleardimension f(100)f(1)=1f(2)=4for n=3 to 100f(n)=3*f(n-1)-f(n-2)if f(n)88888exitendif endfor? aset talk onreturn24求出 100 以内最大的自然数 n，使得从 1 开始的连续 n 个自然数的
13、立方之和小于 99999。set talk off24clears=0for n=1 to 100a=n*n*ns=s+a* ? n,a,sif678exitendif endfor? nset talk onreturn13一球从 100 米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的 3/4倍，试求出最大的自然数 n，使得此球从开始下落至第 n 次着地时在垂直方向所经过的总路程不超过590 米。set talk offclearh=100s=0for n=1 to 100h=3/4*hs=s+2*hif s=590exit6endif endfor? n-1se
14、t talk onreturn设一数列f(n)：f(1)=1 ，当 n1 时 f(n)=1/(f(n-1)+1)。试求出此数列的前 20 项中小于 0.618 的项的数目。set talk offclearf=1.000000n=0for k=1 to 20f=1/f+1if f1 时 f(n)=1/(f(n-1)+1)。试求出此数列的前 20 项中大于 0.618 的项的数目。set talk offclearf=1.00000000n=0for k=2 to 20f=1/f+1if f0.618n=n+1endif * ? k,f,nendfor? nset talk onreturn15
15、设有用 26 个字母表示的 26 个表达式：a=1，b=1/(a+1)，c=1/(b+2)，z=1/(y+25)。试求出这 26 个字母中其值小于 0.1 的字母个数。set talk offclearlett=1n=0for k=1 to 26167lett=1/(lett+k)if lett54321n=n+1endiff1=f2f2=f3f3=f1endfor? nset talk onreturn5已知一个由分数组成的数列：1/2，3/5，8/13，21/34，其特点是：从其中第202 个分数起，每个分数的分子都是前一分数的分子分母之和而其分母都是其分子与前一分数的分母之和。试求出此数
16、列的前 25 项中其值大于 0.618 的项数。set talk offclearf1=1f2=2n=0for k=1 to 25f=f1/f2if f0.618n=n+1endiff1=f2f2=f1endfor? nset talk onreturn已知数列f(n)：f(1)=1 ，f(2)=4，当 n=3,4,5,时，f(n)=3*f(n-1)-f(n-2)。试求出 100 以内最大的自然数n 使得此数列的第 n 项不超过 7654321。set talk offclearf1=1f2=4for n=3 to 100f=3*f2-f1* ? n,fif f0.618n=n+1endiff=f1+f2f1=f2+ff2=f+f1endfor? nset talk onreturn已知一个由分数组成的数列：1/2，2/3，3/5，5/8，8/13， ，其特点：是从第 2个分数起，每个分数的分子都是前一分数的分母而其分母都是其前一分数的分子与分母
