Question

求几道vf程序设计题得解答 急急急急！

1计算连续自然数之和，并且显示和刚大于1600的最后一个自然数，编写得程序最后保存再pro1.prg
2计算1！÷2！÷···÷15！的值，编写得程序保存再pro7.prg
3编写程序pro.prg完成以下功能：计算10000以内所有3得倍数之和s，并同时统计出这样的数有多少个，最后显示s和t的最后结果。

速度越快越好！

Answer 1

1.
*pro1.prg

clear
set talk off
s=0
for i=1 to 100
s=s+i
if s>1600
?i
exit
endif
endfor
set talk on
return

2.
*pro7.prg

clear
set talk off
s=1
for i=2 to 15
p=1
for j=1 to i
p=p*j
endfor
s=s/p
endfor
?"1！÷2！÷···÷15！=",s
set talk on
return

3.
*pro.prg
clear
store 0 to n,s
for i=1 to 10000
if mod(i,3)=0
s=s+i
n=n+1
endif
endfor
?"10000以内所有3的倍数之和s=",s
?"10000以内所有3的倍数个数n=",n
set talk on
return