Exit Sub 強制終了 [VB]

VB2012-2019

関数終了

Exit Sub を使うと、以後の処理を行わずに関数を終了することができます。

Exit Sub サンプルプログラム

Exit Subステートメント

キーボードから複数の商品の価格を入力すると、商品ごとに税込価格を計算するプログラムを作成します。

入力したデータは文字列なので、IsNumeric関数を使ってエラーチェックをします。エラーがなければ、整数に変換して、税込価格を計算するCalucZeikomi関数の引数にしてします。

Sub関数のCalucZeikomiで税込価格を計算し、その結果を表示します。この関数では、0以下の値を入力した場合は、Exit Sub を使って、何も処理しないで関数を終了します。

また、endを入力すると、Exit Do を使って、プログラムを終了します。

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

Module Module1

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

        Console.WriteLine("税込価格を計算するプログラム")
        Console.WriteLine()          ' 改行
        ' キーボードから商品価格を入力して、税込価格を求める
        Do
            Console.WriteLine("商品価格を入力してください")
            Console.WriteLine("endを入力すると終了します")
            ' キーボードから入力
            inStr = Console.ReadLine()
            If inStr = "end" Then
                ' endを入力したら、Exit Doで、Loopを抜ける
                Exit Do
            End If
            ' IsNumeric関数で数値チェック
            ' エラーなければ整数に変換し税込価格計算
            If IsNumeric(inStr) = True Then
                ' 整数に変換
                nedan = Integer.Parse(inStr)
                ' 税込価格を関数を使って計算
                CalucZeikomi(nedan)
            End If
        Loop
    End Sub

    '**********************************************************
    ' 機能:税込価格を計算する関数
    ' 引数:商品価格(0以下の場合は計算しない)
    '******1*********2*********3*********4*********5**********6
    Public Sub CalucZeikomi(ByVal kakaku As Integer)
        Dim zeikomi As Double = 0

        If kakaku <= 0 Then
            ' 入力値が0以下なら関数Subを終了
            Exit Sub
        End If
        ' 税込価格を計算
        zeikomi = kakaku * 1.05
        ' 税込価格を表示
        Console.WriteLine()          ' 改行
        Console.Write("税込価格は")
        Console.WriteLine(zeikomi & "円です")
        Console.WriteLine()          ' 改行
    End Sub

End Module