Visual Basic Bir Sayının Rakamlarının Toplamını Bulma Örneği

"Visual Basic" Programlama dilinde "Bir Sayının Rakamlarının Toplamını Bulma Örneği" ile ilgili kod örneği aşağıda belirtilmiştir.

Imports System

Module MainModule
    Sub Main()
        Dim sum As Integer = 0
        Console.WriteLine("Bir Sayı Girin: ")
        Dim number As Integer = Integer.Parse(Console.ReadLine())
        
        While number <> 0
            Dim digit As Integer = number Mod 10
            sum = sum + digit
            number = number \ 10
        End While
        
        Console.WriteLine("Rakamların Toplamı: " & sum)
    End Sub
End Module



İlginizi Çekebilir

Visual Basic Dört İşlem Yapan Örnek

Visual Basic Hex Kodunu Stringe Çevirmek

Visual Basic Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

Visual Basic String Trim Kullanımı

Visual Basic Sayıların Geometrik Ortalamasını Bulma Örneği