Function サンプル [VB 2010]

税込み価格を計算する関数

キーボードから複数の商品の価格を入力すると、商品ごとの税込価格と、税込合計額を計算するプログラムを作成します。ただし、税込価格を計算し、その結果を表示する部分は関数にします。

Module Module1

    Sub Main()
        ' 変数の宣言
        Dim inStr As String
        Dim nedan As Integer = 0
        Dim zeikomi As Double = 0
        Dim goukei As Double = 0
        Console.WriteLine("/// 税込価格を計算するプログラム ///")
        ' キーボードから商品価格を入力して、税込価格を求める
        Do
            Console.WriteLine()    ' 改行
            Console.WriteLine("** 商品価格を入力してください **")
            ' キーボードから入力
            inStr = Console.ReadLine()
            ' 入力した文字列を整数に変換
            nedan = Integer.Parse(inStr)
            If nedan > 0 Then
                ' 税込価格を関数を使って計算
                zeikomi = CalucZeikomi(nedan)
                ' 税込合計額を計算
                goukei = goukei + zeikomi
            Else
                ' 入力値が0以下なら入力を終了してLoopを抜ける
                Console.WriteLine("入力終了")
                Exit Do
            End If
        Loop
        ' 税込価格を表示
        Console.WriteLine()    ' 改行
        Console.WriteLine("--------------------")
        Console.WriteLine("税込合計金額は")
        Console.WriteLine(goukei & "円です")
    End Sub

    '***************************************************************
    ' 機能：税込価格を計算する関数
    ' 引数：商品価格
    ' 戻値：税込価格
    '******1*********2*********3*********4*********5**********6*****
    Public Function CalucZeikomi(ByVal kakaku As Integer) As Double

        Dim retZeikomi As Double = 0    'リターン値
        ' 税込価格を計算
        retZeikomi = kakaku * 1.05
        ' 税込価格を表示
        Console.WriteLine()              ' 改行
        Console.WriteLine("税込価格は")
        Console.WriteLine(retZeikomi & "円です")
        ' ◆戻値を設定してリターン
        Return retZeikomi

    End Function

End Module

次回は、戻り値の無い関数 Subプロシージャ について学習します。