尝试...抓住：性能

Question

我有一个将数字转换为 N 基数的代码示例。
我可以有 2、3 或 4 位数字。

我的功能有效，看起来像这样：

Private Function BaseN(s As String)
    Dim d = Val(s(s.Length - 1))
    Dim c = Val(s(s.Length - 2))
    Dim a, b As Integer
    Try
        b = Val(s(s.Length - 3))
    Catch
        b = 0
    End Try
    Try
        a = Val(s(s.Length - 4))
    Catch
        a = 0
    End Try

    Return (a * (n * n * n) + b * (n * n) + c * n + d + 1).ToString
End Function

但出于某种原因，转换我的文本需要大约 10 秒。

我试过这样：

Private Function BaseN(s As String)
    Dim d = Val(s(s.Length - 1))
    Dim c = Val(s(s.Length - 2))
    Dim a, b As Integer
        b = 0
        a = 0

    Return (a * (n * n * n) + b * (n * n) + c * n + d + 1).ToString
End Function

这里的转换大致是即时的。

所以我想知道为什么 try catch 运行时间如此之长，或者我对它们的使用不当。

Answer 1

仅仅因为您没有使用 Try...Catch 捕获错误并不意味着您不必考虑虚假的用户输入。以下代码应通过检查输入的整数和字符串长度来避免崩溃。

Integer.TryParse(string, integerVariable) 将检查字符串是否可以转换为整数。它用字符串的整数表示填充 integerVariable。 integerVariable 即使失败也将为零，这使您的最终方程式有效。

我没有检查函数本身的有效性。

Private Function BaseN(s As String, n As Integer) As String
    Dim StringLength As Integer = s.Length
    Dim a, b, c, d As Integer
    Select Case StringLength
        Case 2
            Integer.TryParse(s(StringLength - 1), d)
            Integer.TryParse(s(StringLength - 2), c)
        Case 3
            Integer.TryParse(s(StringLength - 3), b)
            Integer.TryParse(s(StringLength - 1), d)
            Integer.TryParse(s(StringLength - 2), c)
        Case 4
            Integer.TryParse(s(StringLength - 4), a)
            Integer.TryParse(s(StringLength - 3), b)
            Integer.TryParse(s(StringLength - 1), d)
            Integer.TryParse(s(StringLength - 2), c)
        Case Else
            Return ""
    End Select
    Return (a * (n * n * n) + b * (n * n) + c * n + d + 1).ToString
End Function