数値判定 NUMERIC

COBOL
IF A NUMERIC THEN
　数値
ELSE
　非数値
END-IF

VB.NET
IF IsNumeric(A) THEN
　数値
ELSE
　非数値
END IF

Module Module1
    Dim A1 As String = "1234567890"
    Dim A2 As String = "1234567.890"
    Dim A3 As String = "-1234567890"
    Dim A4 As String = ".1234567890-"
    Dim B1 As String = "１２３４５６７．８９０＋"
    Dim B2 As String = "一二三四五六七八九十"
    Dim B3 As String = "壱"
    Dim B4 As String = "①"
    Dim B5 As String = "ⅠⅡ"
    Sub Main()
        A(A1)
        A(A2)
        A(A3)
        A(A4)
        A(B1)
        A(B2)
        A(B3)
        A(B4)
        A(B5)
    End Sub
    Private Sub A(ByVal StrA As String)
        If IsNumeric(StrA) Then
            Console.WriteLine(StrA & "は数値です。")
        Else
            Console.WriteLine(StrA & "は非数値です。")
        End If
    End Sub
End Module

お役に立てましたか？
ＩＴ、プログラミングのランキングサイトはこちらです。

最新記事の自動受信登録はこちらです。