小编Msa*_*ori的帖子

我试图以递归方式制作斐波纳契,如下所示:

Option Explicit
Dim n, contador, termo

function fibonacci(n)
  if n < 2 then
    Return n
  else
    Return fibonacci(n-1) + fibonacci(n-2)
  end if        
End function

termo = InputBox("Diga ate que termo vai a sequencia de fibonacci")*1

for contador = 0 to termo
  MsgBox fibonacci(contador)
next

但我得到错误:变量未定义:'返回'我的代码有什么问题？