function jiecheng(num)
sum2=1
for j=1 to num
sum2=sum2*j
next
jiecheng=sum2
end function
for i=1 to 4
sum=0
sum=sum+jiecheng(i)
next
msgbox sum
function jiecheng(num)
sum2=1
for j=1 to num
sum2=sum2*j
next
jiecheng=sum2
end function
for i=1 to 4
sum=0
sum=sum+jiecheng(i)
next
msgbox sum