【每日一题】寻找镜像数字

[按键精灵小Q]

作者：神梦科技

 

题目描述

 

镜像数字是指一个数字倒过来还是自身，例如数字101。

前20个镜像数字分别是：0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99, 101。

我们的任务是找出第n个镜像数字，默认所有的镜像数字默认从0开始。

 

示例：

输入：n=1，返回：0。因为第1个镜像数字是0。

输入：n=10，返回：9。

 

题目难度：中等

题目来源：codewars

题目交流： 584781753

Import "SmAssert.dll"

 

Function 寻找镜像数字(个数)

    // 您的代码写在这里

End Function

 

 

SmAssert 寻找镜像数字(2) = 1

SmAssert 寻找镜像数字(10) = 9

SmAssert 寻找镜像数字(100) = 909

复制代码

 

参考题解

 

Import "SmAssert.dll"

 

 

Function 寻找镜像数字(个数)

    

    '【作者】：神梦无痕

    '【ＱＱ】：1042207232

    '【Ｑ群】：584781753

    

    Dim i, n

    

    i = 0

    n = 0

    Do

        If CStr(i) = StrReverse(i) Then

            n = n + 1

            If n >= 个数 Then

                Exit Do

            End If

        End If

        i = i + 1

    Loop

    寻找镜像数字 = i

End Function

 

 

SmAssert.That 寻找镜像数字(2), "==", 1

SmAssert.That 寻找镜像数字(10), "==", 9

SmAssert.That 寻找镜像数字(100), "==", 909

原文地址：http://bbs.anjian.com/showtopic-701953-1.aspx