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

"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



İlginizi Çekebilir

VBA Dizideki Bir Elemanı Döngü İle Arama Örneği

VBA Dosya Varsa Oluşturmama

VBA Dictionary'deki Değerler İle Listenin Elemanlarını Eşleştirme ...

VBA Bir Stringteki Küçük Harfleri Öne Alma Örneği

VBA Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği