【分解整数VB.NET】2022-3-2

最新推荐文章于 2025-06-05 19:45:41 发布

智者知已应修善业

最新推荐文章于 2025-06-05 19:45:41 发布

阅读量144

点赞数 1

文章标签：蓝桥杯算法经验分享笔记

本文链接：https://blog.csdn.net/xianfajushi/article/details/123221169

版权

    Sub 分解整数()
        Dim a = 47474, er = a
        While a > 0
            If er > 10 Then
                er \= 10 '取整
                er *= 10
                er = a - er '拆分整数取个位
            ElseIf er >= 2 Then
                er -= 2 '取余
            Else
                Console.Write(er)
                a \= 2
                er = a
            End If
        End While
    End Sub