VBA Bir Sayının Rakamlarının Toplamını Bulma Örneği

159 Okunma VBA

"VBA" Programlama dilinde "Bir Sayının Rakamlarının Toplamını Bulma Örneği" ile ilgili örnek kod aşağıda gösterilmiştir. 

Sub Main()
    Dim sum As Integer
    sum = 0
    Dim number As Integer
    number = InputBox("Bir Sayı Girin:")
    While number <> 0
        Dim digit As Integer
        digit = number Mod 10
        sum = sum + digit
        number = number \ 10
    Wend
    MsgBox "Rakamların Toplamı: " & sum
End Sub
Sayı Rakam Toplam Örnek Bulma VBA

İlginizi Çekebilir

VBA Dosyaları Uzantıya Göre Arama

VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

VBA Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

VBA Dictionary Key Value Değerlerini Ters Çevirmek

VBA Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği