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 Rastgele Float Yaratmak

Visual Basic Bilgisayarın Local IP Adresini Bulmak

Visual Basic Console Uygulamasından Link Açmak

Visual Basic'de Bilgisayar Adını Bulma

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