判断输入值全为数字的函数

在实际项目中有时候需要判断输入的值是否全为数字，然而直接用判断数字的一些函数如Val()和Isnumeric()等 对"+"号，"-"号，还有小数点不能直接过滤，下面的函数实现判断功能，如果全为数字返回True，如果有非数字返回False。

    Public Function Number_Check(ByVal str As String) As Boolean
        Dim i As Integer = Len(str)
        Dim j As Integer
        Dim flag As Boolean = True
        For j = 1 To i
            If IsNumeric(Mid(str, j, 1)) Then
                flag = True
            Else
                flag = False
                Exit For
            End If
        Next
        Return flag
    End Function