加入VBA fibonacci SEQ上的字符串

Question

我正在努力编写fibonacci序列的前20个值输出应为1,1,2,3,5,8,8,13,21,34,55

1. 我试图将数字添加到字符串时有错误。

2. 如何将结果放入A1单元格中？

这是我的尝试：

Sub Looping()
Series = 0
newVar = 1
For x = 1 To 20
  Series = Series + newVar
  newVar = Series - newVar
  Series=Series& newVar&","
Next x
End Sub

Answer 1

Sub Looping()
    series = "1"
    oldvar = 1
    newvar = 1

    For x = 1 To 20
      series = Series & "," & newvar
      newvar = oldvar + newvar
      oldvar = newvar - oldvar
    Next x
cells(1,1) = series
End Sub

Answer 2

使用数组差异很大，因此，如果需要，可以输出数组。

Sub Looping()
Dim a(19) As Long
Dim sOut As String
Dim newvar As Long
series=1
newvar = 1
For x = 1 To 20
    If x > 2 Then
        newvar = a(x - 3) + a(x - 2)
        a(x - 1) = newvar
    Else
        a(x - 1) = series
    End If
    sOut = sOut & IIf(x > 1, ",", "") & CStr(newvar)

Next x
Range("a1").Value = sOut
End Sub