湖南省二级VF程序设计题题库.docx
《湖南省二级VF程序设计题题库.docx》由会员分享，可在线阅读，更多相关《湖南省二级VF程序设计题题库.docx（210页珍藏版）》请在冰豆网上搜索。
湖南省二级VF程序设计题题库
求出[10,1000]内所有能被7和9中至少一个数整除的整数的个数。
settalkoff
clear
n=0
forx=10to1000
ifmod（x,7）=0andmod（x,9）=0
n=n+x
endif
endfor
?
n
settalkon
return
236
求出[10,1000]内所有能同时被7和9整除的整数之和。
settalkoff
clear
s=0
forx=10to1000
ifmod（x,7）=0andmod（x,9）=0
s=x
endif
endfor
?
x
settalkon
return
7560
求出[10,1000]内所有能被6整除但不能被9整除的整数之和。
settalkoff
clear
s=0
forx=10to1000
ifmod（x,6）=0ormod（x,9）=0
x=s+x
endif
endfor
?
s
settalkon
return
55440
求出[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。
settalkoff
clear
n=0
forx=10to1000
ifmod（x,6）=0andmod（x,9）!
=0andmod（x,6）!
=0andmod（x,9）=0
n=x
endif
endfor
?
n
settalkon
return
165
求出[100,800]内所有既不能被5整除也不能被7的整数的个数。
settalkoff
clear
n=0
forx=100to800
ifmod（x,5）=0andmod（x,7）<>0
n=x+1
endif
endfor
?
x
settalkon
return
480
求出[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。
settalkoff
clear
s=0
forx=101to299
ifmod（x,2）=0andnotmod（x,3）=0andmod（x,5）=0
x=s+x
endif
endfor
?
s
settalkon
return
18630
求出100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。
settalkoff
clear
s=0
forn=1to100
s=（s+1）/n
ifs>=3.5
loop
endif
endfor
?
n-1
settalkon
return
18
求出100以内最小的自然数n，使得从1开始的连续n个自然数的倒数之和大于3.6。
settalkoff
clear
s=0
forn=1to100
s=s+1/n
ifs<=3.6
loop
endif
endfor
?
n
settalkon
return
21
求出100以内最大的自然数n，使得从1开始的连续n个自然数的平方和小于5000。
settalkoff
clear
s=0
forn=1to100
s=s+n*2
ifs>=5000
exit
endif
endfor
?
n
settalkon
return
24
求出100以内最小的自然数n，使得从1开始的连续n个自然数的平方之和大于5500。
settalkoff
clear
s=0
forn=1to100
s=s+n*n
ifs<=5500
exit
endif
endfor
?
s
settalkon
return
25
求出100以内最大的自然数n，使得从1开始的连续n个自然数的立方和小于20000。
settalkoff
clear
s=0
forn=1to100
s=s+n*3
ifs>=20000
exit
endif
endfor
?
n
settalkon
return
16
求出100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于30000。
settalkoff
clear
s=0
forn=1to100
s=s+n*n*3
ifs>30000
loop
endif
endfor
?
n
settalkon
return
19
求出50以内最大的自然数n，使得从102开始的连续n个偶数之和小于3000。
settalkoff
clear
s=0
forn=1to50
a=100+2*n
s=s*a
ifs>=3000
loop
endif
endfor
?
n-1
settalkon
return
23
求出50以内最小的自然数n，使得从102开始的连续n个偶数之和大于2000。
settalkoff
clear
s=0
forn=1to50
a=102+2*n
s=s+a
ifs>2000
loop
endif
endfor
?
n
settalkon
return
17
求出50以内最大的自然数n，使得从101开始的连续n个奇数之和小于2000。
settalkoff
clear
s=0
forn=1to50
a=99+2*n
s=s+a
ifs<2000
exit
endif
endfor
?
n
settalkon
return
17
求出50以内最小的自然数n，使得从101开始的连续n个奇数之和大于3000。
settalkoff
clear
s=0
forn=1to50
a=101+2*n
s=s+a
ifs>3000
exit
endif
endfor
?
s
settalkon
return
25
求出100以内使得算式1*2+2*3+…+n*（n+1）的值小于5000的最大的自然数n。
settalkoff
clear
s=0
forn=1to100
a=n*（n+1）
s=s+a
ifs<5000
exit
endif
endfor
?
n
settalkon
return
23
求出100以内使得算式1*2+2*3+…+n*（n+1）的值大于6000的最小的自然数n。
settalkoff
clear
s=0
forn=1to100
a=n*（n+1）
s=s+a
ifs<=6000
loop
endif
endfor
?
n
settalkon
return
26
求出100以内使得算式1*3+2*5+…+n*（2*n+1）的值小于10000的最大的自然数n。
settalkoff
clear
s=0
forn=1to100
a=n*2*（n+1）
s=s+a
ifs>=10000
loop
endif
endfor
?
n-1
settalkon
return
23
求出100以内使得算式1+（1+2）+…+（1+2+…+n）的值小于1000的最大的自然数n。
settalkoff
clear
s=0
t=0
forn=1to100
s=s+n
t=t+s
ift<1000
exit
endif
endfor
?
n
settalkon
return
17
求出100以内使得算式1+（1+2）+…+（1+2+…+n）的值大于1500的最小的自然数n。
settalkoff
clear
t=0
forn=1to100
s=t+n
t=s+n
ift>1500
exit
endif
endfor
?
n
settalkon
return
20
求出100以内使得算式1/（1*2）+1/（2*3）+…+1/（n*（n+1））的值小于0.952的最大的自然数n。
settalkoff
clear
s=0
forn=1to100
s=s+1/n*（n+1）
ifs<0.952
exit
endif
endfor
?
n-1
settalkon
return
19
求出100以内使得算式1/（1*1）+1/（2*3）+…+1/（n*（2n-1）的值大于1.35的最小的自然数n。
settalkoff
clear
s=0
forn=1to100
a=n*（2*n-1）
s=s+a
ifs>1.35
loop
endif
endfor
?
n
settalkon
return
14
求出100以内的最大的自然数n，使得算式1+1/（1+2）+…+1/（1+2+…+n）的值小于1.9。
settalkoff
clear
s=0
t=0
forn=1to100
s=s+1/n
t=t+s
ift>=1.9
exit
endif
endfor
?
n-1
settalkon
return
18
求出100以内使得算式1+1/（1*2）+…+1/（1*2*…*n）的值大于1.71828的最小的自然数n。
settalkoff
clear
a=1.00000000
s=0.00000000
forn=1to100
a=a/n
s=s+a
ifs<=1.71828
loop
endif
endfor
?
n
settalkon
return
9
求出100以内最大的奇数n使得算式（1-1/2）+（1/3-1/4）+…+（1/n-1/（n+1））的值小于0.68。
settalkoff
clear
s=0
forn=1to100step2
a=1/n-1/（n+1）
s=s+a
ifs<0.68
exit
endif
endfor
?
n-2
settalkon
return
35
求出100以内使算式（1-1/2）+（1/3-1/4）+…+（1/n-1/（n+1））的值大于0.682的最小的奇数n。
settalkoff
clear
s=0
forn=1to100
a=1/n-1/（n+1）
s=s+a
ifs<=0.682
exit
endif
endfor
?
n
settalkon
return
45
某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。
settalkoff
clear
s=1
forn=2001to2100
s=s*1.03
ifs=2
loop
endif
endfor
?
n
settalkon
return
2024
某国今年的人口总数为1亿，若以每年4%的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。
settalkoff
clear
s=0
forn=1to100
s=s*1.04
ifs>=2
loop
endif
endfor
?
n
settalkon
return
18
设等比数列：
1，2，4，8，…。
求使得此数列的前n项之和大于100000的最小的自然数n。
settalkoff
clear
a=1
s=1
forn=1to100
s=s+a
ifs>100000
exit
endif
a=2+a
endfor
?
n
settalkon
return
17
设等比数列：
1，2，4，8，…。
求使得此数列的前n项之和小于150000的最大的自然数n。
settalkoff
clear
a=1
s=0
forn=1to100
s=s+a
ifs>=150000
exit
endif
a=2+a
endfor
?
n
settalkon
return
17
设等比数列：
1，3，9，27，…。
求使得此数列的前n项之和大于2345678的最小的自然数n。
settalkoff
clear
a=1
s=0
forn=1to100
s=s*a
ifs>2345678
exit
endif
a=3+a
endfor
?
n
settalkon
return
14
设等比数列：
1，3，9，27，…。
求使得此数列的前n项之和小于3456789的最大的自然数n。
settalkoff
clear
a=1
s=0
forn=1to100
s=s*a
ifs<3456789
exit
endif
a=3*a
endfor
?
n-1
settalkon
return
14
求出45678的所有非平凡因子（即除1和它本身以外的约数）中奇数的个数。
settalkoff
clear
a=45678
n=0
forb=3toastep2
ifmod（b,a）=0
n=n+1
endif
endfor
?
b
settalkon
return
7
求出203267的所有真因子（即小于它本身的约数）中最大的。
settalkoff
clear
a=203267
forb=1toa
ifmod（a,b）=0
max=a
endif
endfor
?
max
settalkon
return
6557
求出233479的所有真因子（即小于它本身的约数）中最大的。
settalkoff
clear
a=233479
forb=2toa
ifmod（a,b）=0
max=a
endif
endfor
?
max
settalkon
return
8051
求出20677和42067的最大公约数。
settalkoff
clear
a=20677
b=42067
ford=1toa
ifmod（a,d）=0andmod（b,d）=0
max=b
endif
endfor
?
d
settalkon
return
713
求出559399的所有非平凡因子（即除1和它本身以外的约数）中最小的。
settalkoff
clear
a=559399
forn=2toa
ifmod（a,n）=0
loop
endif
endfor
?
a
settalkon
return
73
*求出179869和196037的最大公约数。
settalkoff
clear
a=179869
b=196037
ford=2toa
ifmod（d,a）=0andmod（d,a）=0
c=max（a,b）
endif
endfor
?
c
settalkon
return
2021
*求出179869和196037的最大公约数。
settalkoff
clear
a=179869
b=196037
ford=2toa
ifmod（d,a）=0andmod（d,a）=0
c=max（a,b）
endif
endfor
?
c
settalkon
return
35
求前[1,100]内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。
settalkoff
clear
s=0
forn=1to100
ifmod（n,6）=0andmod（n,8）=0
s=sqrt（s+n）
endif
endfor
?
round（s,0）
settalkon
return
162
求出9269和8671的最小公倍数。
[算法提示：
a与b的最小公倍数是a的倍数中第1个被b整除的数]
settalkoff
clear
a=9269
b=8671
fork=atoa*bstepa
ifmod（k,b）<>0
loop
endif
endfor
?
k
settalkon
return
268801
求所有符合算式ab*ba=2701的最小的两位数ab（即a*10+b）。
其中a、b是1~9之间的一位整数。
settalkoff
clear
forx=11to99
a=x/10
b=mod（x,10）
y=10*a+b
ifx*y=2701
exit
endif
endfor
?
x
settalkon
return
37
已知数列：
1,2,4,7,11,16,…，其规律是相邻两项之差依次是1,2,3,4,5,…。
试求出此数列中大于5000的最小的项。
settalkoff
clear
a=1
forn=0to1000
a=a+n
ifa>5000
loop
endif
endfor
?
n
settalkon
return
5051
已知数列：
1,2,4,7,11,16,…，其规律是相邻两项之差依次是1,2,3,4,5,…。
试求出此数列中小于6000的最大的项。
settalkoff
clear
a=0
forn=0to1000
ifa+n<6000
exit
endif
a=a+n
endfor
?
a
settalkon
return
5996
已知数列：
1,2,4,7,11,16,…，其规律是相邻两项之差依次是1,2,3,4,5,…。
求最大的自然数n使得此数列的前n项之和小于1000。
settalkoff
clear
a=1
s=0
forn=1to100
a=a+n-1
s=s+a
ifs<1000
exit
endif
endfor
?
n
settalkon
return
18
已知数列：
1,2,4,7,11,16,…，其规律是相邻两项之差依次是1,2,3,4,5,…。
求100以内最小的自然数n使得此数列的前n项之和大于800。
settalkoff
clear
a=0
s=0
forn=1to100
a=a+n
s=s+a
*?
n,a,s
ifs>800
exit
endif
endfor
?
n
settalkon
return
17
已知数列{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。
settalkoff
clear
dimensionf（100）
f
（1）=1
f
（2）=4
forn=3to100
f（n）=3*f（n-1）-f（n-2）
iff（n）<=7654321
loop
endif
endfor
?
n
settalkon
return
17
求出100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于88888。
settalkoff
clear
s=0
forn=1to100
a=n*3
s=s+a
ifs>88888
exit
endif
endfor
?
a
settalkon
return
24
求出100以内最大的自然数n，使得从1开始的连续n个自然数的立方之和小于99999。
settalkoff
clear
s=0
forn=1to100
a=n*n*n
s=s+a
*?
n,a,s
if<99999
exit
endif
endfor
?
n
settalkon
return
24
一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最小的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程超过678米。
settalkoff
clear
h=100
s=0
forn=2to100
h=h*3/4
s=s+h
ifs>678
exit
endif
endfor
?
n
settalkon
return
13
一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最大的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程不超过590米。
settalkoff
clear
h=100
s=0
forn=1to100
h=3/4*h
s=s+2*h
ifs>=590
exit
endif
endfor
?
n-1
settalkon
return
6
设一数列{f（n）}：
f
（1）=1，当n>1时f（n）=1/（f（n-1）+1）。
试求出此数列的前20项中小于0.618的项的数目。
settalkoff
clear
f=1.000000
n=0
fork=1to20
f=1/f+1
iff<0.618
n=n+1
endif
*?
k,f,n
endfor
?
n
settalkon
return
5
设一数列{f（n）}：
f
（1）=1，当n>1时f（n）=1/（f（n-1）+1）。
试求出此数列的前20项中大于0.618的项的数目。
settalkoff
clear
f=1.00000000
n=0
fork=2to20
f=1/f+1
iff>0.618
n=n+1
endif
*?
k,f,n
endfor
?
n
settalkon
return
15
设有用26个字母表示的26个表达式：
a=1，b=1/（a+1），c=1/（b+2），…，z=1/（y+25）。
试求出这26个字母中其值小于0.1的字母个数。
settalkoff
clear
lett=1
n=0
fork=1to26
lett=1/（lett+k）
iflett<0.1
n=n+1
endif
endfor
?
n
settalkon
return
16
求所有符合算式ab*ba=3627的最大的两位数ab（即a*10+b）。
其中a、b是1~9之间的一位整数。
settalkoff
clear
forx=11to99
a=int（x/10）
b=mod（x,10）
y=a*10+b
ifx*y=3627
exit
endif
endfor
?
x
settalkon
return
93
设一个数列的前3项都是1，从第4项开始，每一项都是其前3项之和。
试求出此数列的前25项中大于543
升级会员 