VB作业，急求啊！！！求1！+2！+....+10！，用function过程编写求阶乘函数。...

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 a