الگوریتم محاسبه مقلوب یک عدد

مقلوب یک عدد یعنی ارقام عدد را از سمت راست یکی یکی جدا کنیم و با کنار هم چیدن آنها از چپ به راست عددی جدید بسازیم.
برای مثال مقلوب عدد 12345 عبارت است از 54321.
الگوریتم محاسبه مقلوب یک عدد با استفاده از کد ویژوال بیسیک در زیر آمده است:

Module Module1

    Sub Main()
        Dim num = 12345
        Dim remainder = 0
        Dim inverted = 0
        While num
            remainder = num Mod 10
            num = num / 10
            inverted = inverted * 10 + remainder
        End While
        MsgBox(inverted)
    End Sub

End Module