简洁精美源于分析透彻，构思明确、求精，逻辑练达。（10）

    Sub 递归逆向(ByVal 数 As Integer)
        Console.Write(数 Mod 10)
        数 = 数 - (数 Mod 10)
        数 = 数 / 10
        If 数 > 0 Then
            递归逆向(数)
        Else
            Console.WriteLine()
        End If
    End Sub