option explicit
Private sub form_click()
dim sum as long
dim i as long
for i=1 to 10
sum=sum+factor(i)
next
end sub
Private function factor(n as long) as long
dim i as long
factor=1
for i=1 to n
factor=factor*i
next
end function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024