Visual Basic 1'den 100'e Kadar Çift Sayı Toplam Örneği

Visual Basic 'de 1 ile 100 arasında (100 dahil) çift sayıların toplamını veren örnek aşağıdadır.

Module ModuleTest
    Sub Main()
        Dim toplam As Integer = 0

        For i As Integer = 0 To 100
            If i Mod 2 = 0 Then
                toplam += i
            End If
        Next

        Console.WriteLine(toplam)
        Console.ReadLine()
    End Sub
End Module 

1 ile 100 arasında (100 dahil) "for döngüsü" çalıştırılır. Döngünün içinde her seferinde 1 arttırılan (i değişkeni) değerin "Mod 2" ile 2 'ye bölünüp bölünmediği ( i Mod 2 = 0.. Burada 2'ye bölümünden kalan sıfır mı ? anlamına gelmektedir) kontrol edilir. Eğer sonuç "true" ise "i" değişkenimiz döngünün dışında tanımlanan ve değerleri toplayan "toplam" değişkenimize kümülatif olarak (toplam += i) eklenir.

Sonuç 2550 çıkacaktır ve ekranda gösterilir..



İlginizi Çekebilir

Visual Basic Datarow Kullanımı

Visual Basic Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma ...

Visual Basic GetType Kullanımı

Visual Basic Ofis Word'ün Yüklü Olup Olmadığını Bulmak

Visual Basic Bir Sayının Faktöriyelini Bulma Örneği