キーボード入力エラー [VB 2010]

Do ... Loop で再入力

画面から入力したデータが数値でなければ、再入力できるように改良したサンプルプログラムです。入力した値が数値か否かを、IsNumeric関数で調べて、数値でなければ、Do ... Loop を利用して再入力できるようにしています。

Module Module1

    Sub Main()
        ' 変数の宣言
        Dim inStr As String
        Dim inNum As Integer
        ' 数値以外の入力は再入力
        Do
            Console.WriteLine("** 数値を入力してください **")
            ' キーボードから入力
            inStr = Console.ReadLine()
            ' IsNumeric関数で数値検査
            If IsNumeric(inStr) = True Then
                ' 数値を入力したら、Do Loopを抜ける
                Exit Do
            Else
                Console.WriteLine("数字以外の文字があります")
                Console.WriteLine()
            End If
        Loop
        ' 入力した文字列を数値に変換
        inNum = Integer.Parse(inStr)
        ' 入力値の確認
        Console.Write("入力した数値＝")
        Console.WriteLine(inNum)
    End Sub

End Module

【注意】ただし、これでも完璧ではありません。これでも例外が発生することがあります。皆さんで改良してみてください。

次回は、コメントの書き方 について勉強します。

• 文字列の入力
• 整数値の入力
• 実数値の入力
• エラー時の再入力

メニュー一覧に戻る