1 ile 100 arasındaki tek ve çift sayıların toplamı Nasıl Yapılır? Detaylı

Dim toplamCift As Integer = 0

For i As Integer = 1 To 100
    If i Mod 2 = 0 Then ' eğer sayı çift ise
        toplamCift += i ' çift sayıların toplamını hesapla
    Else ' eğer sayı tek ise
        toplamTek += i ' tek sayıların toplamını hesapla
    End If
Next

MessageBox.Show("1-100 arasındaki çift sayıların toplamı: " & toplamCift & vbNewLine & _

“1-100 arasındaki tek sayıların toplamı: ” & toplamTek)

Yukarıdaki program, toplamTek ve toplamCift adlı iki değişkeni tanımlar ve ardından 1 ila 100 arasındaki sayıları döngü ile kontrol eder. Döngüde, i Mod 2 = 0 koşulu kontrol edilerek, i sayısı çift ise toplamCift değişkenine eklenir, aksi takdirde (yani sayı tek ise) toplamTek değişkenine eklenir. Sonuç olarak, MessageBox.Show() işlevi kullanılarak ekrana toplam çift ve tek sayıların değerleri yazdırılır.