请问用递归法怎样写VB语句？ 还有 VB中的递归法是怎样的？

Private Sub Form_load()
Dim i As Long,n as integer
n=int(val(inputbox("输入Fibonacci数列的项数")))
For i = 1 To n
Print Fibonacci(i)
Next
End Sub

Private Function Fibonacci(n As Long)As Long
If n = 1 Then
Fibonacci = 1
ElseIf n = 2 Then
Fibonacci = 1
Else
Fibonacci = Fibonacci(n-1)+Fibonacci(n-2)
End If

End Function

dim n%,f() as long
sub main()
dim i%
n=10
redim f(n)
f(0)=1:f(1)=1
call Fibonacci(2)
'显示出数据f的值
end sub
sub Fibonacci(i%)
f(i)=f(i-1)+f(i-2)
if i call Fibonacci(i+1)
end if
end sub
差不多就是这样，没调试，可能会有问题

dim n%,f() as long
sub main()
dim i%
n=10
redim f(n) --边界
f(0)=1:f(1)=1
call Fibonacci(2)
'显示出数据f的值
end sub
sub Fibonacci(i%)
f(i)=f(i-1)+f(i-2)
if i call Fibonacci(i+1)
end if
end sub