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

178 Okunma VBA

"VBA" Programlama dilinde "Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği" ile ilgili kod örneği aşağıdadır. 

Sub Main()
    Dim number As Integer
    Dim rev As Integer
    
    number = InputBox("Bir Tamsayı Girin:")
    
    While number <> 0
        Dim digit As Integer
        digit = number Mod 10
        rev = (rev * 10) + digit
        number = number \ 10
    Wend

    MsgBox rev
End Sub
Tamsayı Örnek Ters Sıra Göster VBA

İlginizi Çekebilir

VBA Bir String İçindeki Sayıların Toplamını Bulma Örneği

VBA Sayıların Geometrik Ortalamasını Bulma Örneği

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

VBA 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

VBA Tüm Birleştirilen Hücreleri Kaldırmak