Visual Basic Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği
"Visual Basic" Programlama dilinde "Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği" ile ilgili örnek kod aşağıda verilmiştir.
Imports System
Module MainModule
Sub Main()
Dim n1 As Integer = 0
Dim n2 As Integer = 1
Console.Write("Dizideki terim sayısını girin: ")
Dim count As Integer = Convert.ToInt32(Console.ReadLine())
Dim n3 As Integer
Dim i As Integer
Console.Write(n1 & " " & n2)
For i = 2 To count - 1
n3 = n1 + n2
Console.Write(" " & n3)
n1 = n2
n2 = n3
Next
End Sub
End Module