Visual Basic 1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği

44 Okunma Visual Basic

"Visual Basic" Programlama dilinde "1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği" ile ilgili örnek kod aşağıda gösterilmiştir. 

Module Module1
    Sub Main()
        Dim s As Integer = 0
        Console.Write("Sayi Girin: ")
        Dim n As Integer = Integer.Parse(Console.ReadLine())

        If n > 1 Then
            For i As Integer = 1 To n
                If i Mod 2 = 0 Then
                    s += i
                End If
            Next

            Console.WriteLine(vbLf & "Toplam: " & s)
        Else
            Console.WriteLine(vbLf & "Sayi 1'den buyuk olmalidir.")
        End If
    End Sub
End Module
Çift Sayı Döngü Toplam Mod Visual Basic

İlginizi Çekebilir

Visual Basic'de Bilgisayar Adını Bulma

Visual Basic Dosyanın İçeriğini Byte Dizisi Olarak Okuma

Visual Basic Dictionary'de Bir Anahtarın Varlığını Kontrol Etmek

Visual Basic String Büyük Harf Yapma

Visual Basic Bir String İçindeki Sayıların Toplamını Bulma Örneği