declare sub main
sub main
dim i,a,b as float
a = 1
b = 1
for i=2 to 100 step 1
a=a*i
b=b+a
next
note "从1到100的阶乘之和为" + str$(b)
end sub
sub main
dim i,a,b as float
a = 1
b = 1
for i=2 to 100 step 1
a=a*i
b=b+a
next
note "从1到100的阶乘之和为" + str$(b)
end sub