斐波那契序号加起来

Question

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    NumberList.Items.Add(1)
    NumberList.Items.Add(1)

End Sub


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim x As Integer
    Dim num, sum As Integer

    x = 0
    Do While (x < 10)
        NumberList.SelectedIndex = x
        num = Double.Parse(NumberList.SelectedItem)
        sum = num + (x + 1)
        NumberList.Items.Add(sum)
        x = x + 1
    Loop

End Sub

结束班级

我正在研究斐波那契数列，到目前为止，我已经弄清楚了如何使程序将序列的前两个数字相加，然后将后两个数字相加，然后遵循该模式，以便输出应为1 ，1、2、3、5、8、15等。但是，当我运行程序时，数字加起来就是1、1、2、3、5、7。它看起来像是回溯了，将5和2相加得到7；而不是5和3得到8并丢掉我的整个序列。我一直在进行故障排除，可能忽略了一些内容，但似乎无法弄清楚。有什么想法吗？