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