Найти первое число Фибоначчи, большее заданного - VB
Формулировка задачи:
Дано целое число N (> 1). Найти первое число Фибоначчи, большее N
Решение задачи: «Найти первое число Фибоначчи, большее заданного»
textual
Листинг программы
- Function fibo(n As Long) As Long
- Dim a As Long, b As Long
- a = 1
- While n >= a
- a = a + b
- b = a - b
- Wend
- fibo = a
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
