Exit Sub [VB 2010]

関数を一気に終了する

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

税込価格を計算し、その結果を表示する部分は関数にします。この関数では、0以下の値が入力された場合は、何も処理しないで関数を終了します。

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

次回は、キーボードからの整数入力 について勉強します。