VF程序设计题库及答案
1 编程序求出1-200以内的能被7整除的数的平方和。 377986
clear
s=0
m=0
for i=1 to 200
if i%7=0
m=i^2
s=s+m
endif
endfor
?
玩魔方的好处
s
2 编程序求1~99的平方根的和并输出结果。（保留小数点两
位） 661.46
clear
s=0
for i=1 to 99
s=s+sqrt(i)
endfor
?round(s,2)
6 编程序求出1~200所有整数的平方和并输出结果。 2686700 clear
s=0
for n=1 to 200
s=s+n^2
endfor
?s
7. 编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500 时程序退出。 550
clear
s=0
for n=10 to 5000 step 10
s=s+n
if s>500
exit
endif
endfor
?s
编程序求在3000以内被17或者23整除的正整数数的个数。 299 clear
s=0
for n=1 to 3000
if n%17=0 or n%23=0
s=s+1
endif
endfor
?s
9 序求在1000以内被17或者23整除的正整数数的个数。 99 clear
玉米冬瓜汤s=0
for n=1 to 1000
if n%17=0 or n%23=0
s=s+1
endif
endfor
?s
10 编程序求在5000以内被17或者23整除的正整数数的个数。 499 clear
s=0
for n=1 to 5000
if n%17=0 or n%23=0
s=s+1
endif
endfor
?s
11 编程序求出1-100以内的能被3整除的数的平方和。 112761 clear
s=0
for n=1 to 100
if n%3=0
s=s+n^2
endif
endfor
?s
12 已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。 334745777
clear
dime f(36)
f(1)=0
f(2)=0
f(3)=1
s=0
for n=4 to 36
f(n)=f(n-3)+f(n-2)+f(n-1)
s=f(n)
endfor
?s
13 编程序求出1-100以内的能被9整除的数的平方和。 40986 clear
s=0
for n=1 to 100
if n%9=0
s=s+n^2
endif
endfor
?s
14 编程序求出1-200以内的能被3整除的数的平方和。 882189 clear
s=0
for n=1 to 200
if n%3=0
s=s+n^2
endif
endfor
?s
15 编程序求出1-7000以内能被3或者7整除数的个数。 3000 clear
s=0
for n=1 to 7000
梦字开头的成语if n%3=0 or n%7=0
endif
endfor
?s
16 序求出1-3000以内能被3或者5整除数的个数。 1400
clear
s=0
for n=1 to 3000
if n%3=0 or n%5=0
s=s+1
endif
endfor
?s
17 编程序求出1-5000以内能被3或者7整除数的个数。 2142 clear
s=0
for n=1 to 5000
if n%3=0 or n%7=0
s=s+1
endif
endfor
?s
21 编程序求出1-6000以内能被23整除的整数之和。 780390 clear
s=0
for n=1 to 6000
if n%23=0
s=s+n
endif
endfor
?s
24 编程序求出100到200之间同时满足除3余2和除5余3条件的数的个数。 6
clear
s=0
for n=100 to 200
庐山西林寺if n%3=2 and n%5=3
endif
风筝简介
endfor
?s
30 1 编程序求出 2+4+8+16+32+…这样的数之和。如果累加数大于500时，则程序终止并输出结果。 510
clear
s=0
for n=1 to 100
s=s+2^n
空谷足音的意思
if s>500
exit
endif
endfor
?s
31 编程序求出1~100所有整数的立方和并输出结果。 25502500 clear
s=0
for n=1 to 100
s=s+n^3
endfor
?s
39 编写程序，计算1000以内有多少个这样的数，该数既能被6整除又能被8整除。 41
clear
s=0
for n=1 to 1000
if n%6=0 and n%8=0
s=s+1
淡定从容endif
尘土飞扬打一字谜
endfor
?s
51 编程序求出1到3000之间的能被3整除的前若干个数之和，当和大于600时退出并输出结果。 630
clear
s=0
for n=1 to 3000
