IsNumeric関数を使ったサンプルプログラム

IsNumeric関数を使って、数値以外のデータを入力したら、再入力を促すプログラムを作成します。0 を入力したときに、プログラムが終了するようにします。

ソースリストの枠内をクリックすると全選択できます。

Module Module1

  Sub Main()
    ' 変数の宣言
    Dim inData As String
    Dim inNum As Double

    Do
      ' 数値以外の入力は再入力
      Do
          Console.WriteLine("* 数値を入力して下さい *")
          ' キーボードから入力
          inData = Console.ReadLine()
          ' IsNumeric関数で数値検査
          If IsNumeric(inData) = True Then
              ' 数値を入力したら、内側のDo Loopを抜ける
              Exit Do
          Else
              Console.WriteLine("エラー")
              Console.WriteLine("* 数値を入力して下さい *")
              Console.WriteLine()
          End If
      Loop

      ' 入力した文字列を数値に変換
      inNum = Double.Parse(inData)
      If inNum = 0 Then
          ' 0を入力したら、外側のDo Loopを抜け終了
          Exit Do
      Else
          Console.WriteLine("数値に変換できました")
          Console.WriteLine()
      End If
    Loop
  End Sub

End Module

【練習】Do loop が一つになるようプログラムを修正してみてください。