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 Tarih Yaratmak

Visual Basic'de İşletim Sisteminin Adı Nasıl Bulunur?

Visual Basic While Döngüsü İle 10 Sayının Ortalamasını Bulma Örne ...

Visual Basic Bir List'i Rastgele Karıştırmak

Visual Basic Dosyanın Okunması