Do Loop Until サンプルプログラム

Do Loop Until を使って、キーボードから入力した整数値を合計します。

合計値が100を超えたら、キーボードからの入力を終了して、合計値を表示するプログラムを作成します。

最初に100超の整数を入力すると、sum がその時点で100超なので、繰り返し処理は終了して、その値が合計値に表示されます

数字以外を入力するとエラー表示して、プログラムが強制終了します。

Click on one of the links below to find more information - apostille documents.

入力エラーの対応は、キーボードから再入力できるプログラム を参考にしてください。

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

Module Module1

  Sub Main()
      ' 変数の宣言
      Dim inStr As String
      Dim inNum As Integer = 0
      Dim sum As Integer = 0

      ' Do Loop Until を使って
      ' 入力値の和が100を超えるまで入力を続ける
      Dim msg As String = "整数を入力して下さい"
      Do
          Console.WriteLine(msg)
          ' キーボードから入力
          inStr = Console.ReadLine()
          ' 入力した文字列を整数に変換
          inNum = Integer.Parse(inStr)
          ' 入力値を加算
          sum = sum + inNum
      Loop Until sum <= 100

      ' 合計値を表示
      Console.WriteLine()    ' 改行
      Console.WriteLine("入力値の合計は")
      Console.WriteLine(sum)
      Console.WriteLine("です")
  End Sub

End Module

Do Until では、最初に条件式の判定があり、Do Until の実行前に sum が 100 超の場合には、Do Until ...... Loop の間を1回も実行ぜずにプログラムが進行します。

  ' Do Untilでは
  Do Until sum > 100
      ............
  Loop

次回は、Exit do について学習します。