Microsoft Visual FoxPro 程序代码帮忙设计一下。

Question

要求: 1、计算1+2+3...+100 2、1*2*3...*10 3、1+2+3+...加到多少时和刚好大于10 4、求1~100之间的奇数和 5、求1~100之间5的倍数和 要用Microsoft Visual FoxPro 程序代码，我要写实验报告。

Answer 1

set
talk
off
*******************************************
**
1、计算1+2+3...+100
**
2、1*2*3...*10
**
3、1+2+3+...加到多少时和刚好大于10
**
4、求1~100之间的奇数和
**
5、求1~100之间5的倍数和
*******************************************
****定义变量
i=1
ljs=0
&&累加数，即问题1的结果
lcs=1
&&连乘数，即问题2的结果
lj10=0
&&累加到大于10的数，即问题3的结果
jsh=0
&&奇数和，即问题4的结果
bs5=0
&&5的倍数和，即问题5的结果
do
while
i<=100
ljs=ljs+i
&&问题1
lcs=lcs*i
&&问题2
if
ljs<10
lj10=i+1
endif
&&问题3
if
mod(i,2)=1
jsh=jsh+i
endif
&&问题4
if
mod(i,5)=0
bs5=bs5+i
endif
&&问题5
i=i+1
enddo
***结果
?
"1+2+3...+100的结果是:"-alltrim(str(ljs))
&&为了使显示结果紧凑，使用了alltrim和str函数进行格式转换
?
"1*2*3...*10的结果是:"-alltrim(str(lcs))
?
"1+2+3+..."-alltrim(str(lj10))-"时和刚好大于10"
?"
1~100之间的奇数和的结果是:"-alltrim(str(jsh))
?
"1~100之间5的倍数和的结果是:"-alltrim(str(bs5))