Вычислить и вывести на печать последовательность первых 20 чисел Фибоначчи - VB
Формулировка задачи:
Вычислить и вывести на печать последовательность первых 20 чисел Фибоначчи, если Х(1)=1, Х(2)= 2, а каждый последующий элемент равен сумме двух предыдущих.
Решение задачи: «Вычислить и вывести на печать последовательность первых 20 чисел Фибоначчи»
textual
Листинг программы
Private Sub Command1_Click()
Dim i As Integer, X(1 To 20) As Integer
For i = 1 To 20
If i < 3 Then X(i) = i Else X(i) = X(i - 1) + X(i - 2)
Print "X (" & i & ") = " & X(i)
Next i
End Sub