Excel宏生成指定数列异常：为何生成结果与预期不符？

首先明确目标数列的规律：从第三项开始，每一项等于前两项之和，即a(n) = a(n-1) + a(n-2)，前两项固定为1和3。

原代码的错误点 #

• 初始值设置错误：原代码将num和previous初始化为0，不符合数列前两项的初始要求
• 第二项逻辑错误：当i=2时，代码执行num = num + previous，此时num是1（i=1时的值），previous也是1（i=1后赋值的），计算得2，和预期的3不符

修正后的VBA代码 #

Sub GerarSequencia()
    Dim num As Long
    Dim previous As Long
    Dim i As Integer
    
    ' 初始化前两项：第一项为1，第二项为3
    previous = 1
    num = 3
    
    ' 写入第一项
    Cells(1, 1).Value = previous
    ' 写入第二项
    Cells(2, 1).Value = num
    
    ' 从第三项开始生成
    For i = 3 To 20
        ' 临时变量存储当前num的值，用于更新previous
        Dim temp As Long
        temp = num
        num = num + previous
        previous = temp
        
        Cells(i, 1).Value = num
    Next i
End Sub

代码说明 #

• 直接初始化前两项为数列的起始值1和3，确保前两项正确
• 从第3项开始，通过临时变量保存当前项的值，避免计算时覆盖数据，保证每一项都是前两项之和
• 循环范围改为从3到20，对应生成第3到第20项

内容的提问来源于stack exchange，提问作者Thiago Dos santos ferreira