用VB怎么定义一个函数？

Question

用VB怎么定义一个函数

Answer 1

Dim t As Long
_________________________________________

Public Function j(n As Integer) As Long

t = 1
For i = 1 To n
t = t * i
Next i

j = t

End Function
_______________________________________
Private Sub Command1_Click()
Text1.Text = j(8) '这里就可以调用函数了
End Sub

Answer 2

Private Function f(Dim n As Integer) as Integer
if n=0 then
f=1
else
for i=1 to n
t=t*i
next
f=t
endif
End Function

调用的时候如下，x等于24
x=f(4)