用vf编写s=1!+2!+3!+......+100!的程序

i=1
nadd=0
cadd=1
do while i<=100
cadd=1
for j=1 to i
cadd=cadd*j
endfor
nadd=nadd+cadd
i=i+1
IF i=100
EXIT
ENDIF
enddo
?"1!+2！+3!+.....+100!=",nadd

楼上代码不够精简啊

nsum=0
for i = 1 to 100
nn=1
for j = 1 to i
nn=nn*j
endfor
nsum=nsum+nn
endfor
?nsum