Question

vb高手帮个忙

设计个程序求：1！+2！+3!+……+20！
谢~~~~

Answer 1

sum=0
n=1
for i=1 to 20
n=n*i
sum=sum+n
next i
print sum

Answer 2

sub 求和()
for a=1 to 20
for b=1 to a
s=s+b
next b
next a
msgbox "结果：" & s
end sub