Последовательные числа Фибоначчи суммируют с - PullRequest
Новая
       26

Последовательные числа Фибоначчи суммируют с

0 голосов
/ 03 ноября 2018 
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 и сбрасывает всю мою последовательность. Я занимался поиском и устранением неисправностей, и, возможно, я что-то упустил, но, похоже, не могу этого понять. Есть идеи?

...