用VB怎么定义一个函数？

Question

用VB怎么定义一个函数

Answer 1

Dim t As Long_________________________________________Public Function j(n As Integer) As Longt = 1For i = 1 To nt = t * iNext ij = tEnd Function_______________________________________Private Sub Command1_Click()Text1.Text = j(8) '这里就可以调用函数了End Sub

Answer 2

Private Function f(Dim n As Integer) as Integerif n=0 thenf=1elsefor i=1 to nt=t*inextf=tendifEnd Function调用的时候如下，x等于24x=f(4)