整数キーボード入力 [VB]

Visual Basic 文法[2015 2013 2012]

Integer.Parse で整数に変換

キーボードからの整数値の入力には、文字列の入力と同様に、Console.ReadLine()を使います。入力したデータはすべて文字として扱われるので、整数値として扱う場合には、次の例のように、プログラムの中で、Integer.Parse を使って整数に変換します。

数字以外の文字を入力することもできるので、その場合はエラーになります。数値入力では、入力エラーの処理を追加する必要があります。

まず、入力エラーを想定しない簡単な例から始めます。

Module Module1

  Sub Main()
    ' 変数の宣言
    Dim inStr As String = ""
    Dim inNum As Integer = 0
    ' キーボードから入力
    inStr = Console.ReadLine()
    ' 文字列を整数に変換
    inNum = Integer.Parse(inStr)
  End Sub

End Module

Integer.Parse を使ったサンプルプログラム

キーボードから入力した整数値を2倍して、その結果を表示するプログラムを作成します。

このサンプルも入力エラーを想定していません。

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

Module Module1

  Sub Main()
      ' 変数の宣言
       Dim inStr As String = ""
       Dim inNum As Integer = 0
      ' キーボードから入力
      Console.WriteLine("整数を入力してください")
      inStr = Console.ReadLine()
      ' 文字列を整数に変換
      inNum = Integer.Parse(inStr)
      ' 入力値を2倍
      inNum = inNum * 2
      ' 結果を表示
      Console.WriteLine("計算結果:" & inNum)
  End Sub

End Module

[Ctrl]キーを押したまま、[F5]キーを押してプログラムを実行します。「整数を入力してください」と画面に表示されたら、整数(0~9の数字キーのみ)をキーボードから入力して、[Enter]キーを押します。

たとえば、12 と入力して、[Enter]キーを押すと、次の行に「計算結果:24」と表示され、次行に「続行するには何かキーを押してください...」が表示されます。最後に何かキーを押して、画面を閉じてください。

実行結果

入力エラーについて

上のサンプルプログラムでは、キーボードから数字と、先頭に - を入力することしかできません。

もしその他の文字を入力すると、次のようなエラーメッセージが表示され、プログラムは実行停止します。そのときは[プログラムの終了]ボタンを押してください。

停止

しばらく放置すると、次のダイアログボックスに変ります。[プログラムの終了]ボタンを押して、ダイアログボックスを閉じます。

終了

最後に、何かキーを押して、コンソール画面を閉じます。

例外

そこで、入力エラー時に再入力できるように改良したプログラムも作ってみました。

入力エラー時に再入力できるプログラム

[広告]