主题：还有求1!+2!+......+10!的,请看看.谢谢.
新人
[专家分：30] 发布于 2005-05-29 23:01:00
(1)用FOR -NEXT
CLS
m=1
sum=0
FOR n=1 TO 10
m=m*n
sum=sum+m
next n
print sum
END
(2)用DO-LOOP UNTIL
CLS
m=1
n=1
sum=0
DO
m=m*n
n=n+1
sum=sum+m
LOOP UNTIL n>10
PRINT sum
END
回复列表 （共23个回复）
沙发
风之精灵 [专家分：0] 发布于 2005-06-02 17:08:00
看了
板凳
cleverboy [专家分：80] 发布于 2005-06-12 17:16:00
cls
s=0
for n= 1 to 10
gosub L (用块内子程序编)
s=s+t
next n
print "s=";s
end
L:t=1
for i=1 to n
t=t*i
next i
return[size=4]用块内子程序编的[/size]
3 楼
88324837 [专家分：490] 发布于 2005-06-15 12:16:00
b=1
for a=1 to 10
b=b*a
c=c+b
next a
print c
end
这样多简单啊,象你们编的一大堆看都懒的看
4 楼
lwm1988 [专家分：90] 发布于 2005-08-26 19:52:00
input n
p=1
s=0
for i=1 to n
for j=1 to i
p=p*j
next j
s=s+p
next i
print s
5 楼
pkqs90 [专家分：100] 发布于 2005-09-03 13:47:00
我认为第四楼的方法是错误的，第五楼好像正确一些
6 楼
bestea [专家分：0] 发布于 2005-09-03 18:07:00
3楼的“C”不用初始值吗？[em18]
7 楼
bestea [专家分：0] 发布于 2005-09-03 18:17:00
我的方法：（不知道对不对？算出来是55）
dim i,sum as integer
Cls
Sum = 0
For n = 1 To 10
Sum = Sum + n
Next n
Debug.Print Sum
print sum
End
8 楼
heygod [专家分：0] 发布于 2005-09-08 20:54:00
Cls
a=1+2+3+4+5+6+7+8+9+10
Print a
End
9 楼
半杯果冻汁 [专家分：10] 发布于 2005-09-29 21:44:00
强
10 楼
QBASI的尾巴 [专家分：30] 发布于 2005-10-02 20:43:00
t=1
for i= 1 to 10
t=t*i
s=s+t
next i
print s
end
这个不是也很简单吗 干吗弄的那么复杂呢！[font=楷体_GB2312][/font][color=808080][/color]
我来回复
您所在位置：