高考问答丈夫在身边系列番号:请会Visual FoxPro的人帮忙!
来源：百度文库 编辑：高考问答 时间：2024/05/03 10:37:00
以下问题由于怕积分流失,采纳为答案后肯定加分!
1、10！
2、计算：T=1！+2！+……+10！
3、100以内能被3整除的数之和。
我来试试。
1题
modi command&&打开程序窗口
set talk off
sum=1
i=1
for i=1 to 10
sum=sum*i
endfor
?'10!=',sum
set talk on
3题
set talk off
for i=0 to 100
if mod(i,3)=0
??'值为:',i
endif
endfor
set talk on
2题
set talk off
sum=0
i=1
j=1
for i=1 to 10
sum1=1
for j=1 to i
sum1=sum1*j
endfor
sum=sum+sum1
endfor
?'1!+2!+...5!=',sum
set talk on
第3题我看错题目了，没注意还要求和。楼下的那位写出来了，我就不重复了。
我来试试。
1题
modi command&&打开程序窗口
set talk off
sum=1
i=1
for i=1 to 10
sum=sum*i
endfor
?'10!=',sum
set talk on
3题
set talk off
for i=0 to 100
if mod(i,3)=0
??'值为:',i
endif
endfor
set talk on
2题
set talk off
sum=0
i=1
j=1
for i=1 to 10
sum1=1
for j=1 to i
sum1=sum1*j
endfor
sum=sum+sum1
endfor
?'1!+2!+...5!=',sum
set talk on
只字片语是计算机系的？俺是学艺术的。
第三题是不是有问题？我反正没弄出来。
就自己写了一个
set talk off
clear
s=0
for x=1 to 100
if x%3=0
s=s+x
endif
endfor
?"100内被三整除之和为",S
set talk on
return
答案是1683
其余的再看看。
给我分好吗？虽然对不住上面的大哥
我过几天也要考了，希望上面的大哥到时候帮忙
我又试了便。可以看我这么负责给我分吧