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 Bir Url'in Son Kısmını Almak

Visual Basic Stringi Byte Dizisine Çevirmek

Visual Basic Bir Derecenin Sinüsünü Bulma

Visual Basic Santigrat Cinsinden Sıcaklığı Fahrenheit'e Çevirmek

Visual Basic Diziden Eleman Çıkarma