Visual Basic Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği

46 Okunma Visual Basic

"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
Döngü Seri Fibonacci Yazdır Iterasyon Visual Basic

İlginizi Çekebilir

Visual Basic Dosya Varsa Oluşturmama Kontrolü

Visual Basic Bir Tarihin Haftanın Hangi Günü Olduğunu Bulma

Visual Basic Linq Single Kullanımı

Visual Basic String GetTypeCode Kullanımı

Visual Basic Bir Stringde Tam Sayılar Dışındaki Karakterleri Kald ...