求1+2！+3！+……+20！的程序？ - basic吧

level 1

我爱麦迪我怕谁楼主

RT...

2009年09月26日 06点09分 1

level 1

全身而TUI

CLS
A=0
B=O
FOR
A=1 TO 20
A=A+1
B=A+B
NEXT
PRINT B
END

2009年11月08日 06点11分 2

level 1

全身而TUI

不好意思应该是：
CLS
A=0
B=0
FOR A=1 TO 20
A=A
B=B+A
NEXT
PRINT B
END

2009年11月08日 06点11分 3

level 1

soloworm

CLS
A=0
B=0
D=0
FOR A=1 TO 20
C=0
FOR B=1 TO A
C=C*B
NEXT B
D=D+C
NEXT A
PRINT D
END
楼上那两个显然不对，这个没问题，理想状态是这样的，但你执行时可能提示错误原因是D的值太大了~

2009年12月11日 15点12分 4

level 1

zxh8887935

a = 1
b = 0
for i = 1 to 20
a = a * i
b = b + a
next i
print b
end
没写行号。

2009年12月12日 01点12分 5

level 1

774211456

回复：5楼
你求的只是20一个数的阶乘 B=B+A 在你这就用不着

2009年12月16日 12点12分 7

level 0

218.205.237.*

是QB还是VB的先来QB的 X = 0 : FOR Y = 1 TO 20 : X = X + 1 : ?X : NEXT : END VB的 Private Sub Command1_Click() : Dim x As Long : x = 0 : For x = x + 1 : ?x : Next : End Sub

2010年03月11日 11点03分 8

level 0

218.205.237.*

是QB还是VB的先来QB的 X = 0 : FOR Y = 1 TO 20 : X = X + 1 : ?X : NEXT : END VB的 Private Sub Command1_Click() : Dim x As Long : x = 0 : For x = x + 1 : ?x : Next : End Sub

2010年03月11日 11点03分 9

level 0

218.205.237.*

5楼，最精炼。

2010年03月18日 06点03分 10

level 1

劳技老师

dim a(20)
a(1)=1
s=1
for i=2 to 20
a(i)=i*a(i-1)
s=s+a(i)
next
print s
我没有真的计算，脑子里想了一下写的

2010年05月18日 07点05分 11

level 1

劳技老师

以上数据类型都应该是双精

2010年05月18日 07点05分 12