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



İlginizi Çekebilir

Visual Basic Url'den Json String Elde Etmek

Visual Basic Dizideki Bir Elemanı Döngü İle Arama Örneği

Visual Basic Dosya Silme

Visual Basic Dört İşlem Yapan Örnek

Visual Basic Dikdörtgenin Alanını Hesaplama Örneği