求几道vf程序设计题得解答 1计算连续自然数之和,并且显示和刚大于1600的最后一个自然数,编写得程序最后保存再pro1.prg2计算1!÷2!÷···÷15!的值,编写得程序保存再pro7.prg3编写程序pro.prg完成以

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

求几道vf程序设计题得解答 1计算连续自然数之和,并且显示和刚大于1600的最后一个自然数,编写得程序最后保存再pro1.prg2计算1!÷2!÷···÷15!的值,编写得程序保存再pro7.prg3编写程序pro.prg完成以
1.
*pro1.prg
clear
set talk off
s=0
for i=1 to 100
s=s+i
if s>1600
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