「VB.NET」戻り値ありのFunctionのサンプル

2015年10月2日2021年9月17日

書式
Function メソッド名(引数)　As 戻り値の型
使用例

Module Module1

    Sub Main()
        Dim age As Integer = 23
        Dim de As Double = 34.56

        'メソッドfuncAの戻り値を使用
        Dim res As Integer = funcA(age)
        Console.WriteLine("Integer型引数を渡し、メソッドの戻り値が下記")
        Console.WriteLine(res)

        'メソッドfuncAの戻り値を使用
        Dim res2 As Integer = funcA(de)
        Console.WriteLine("Double型引数を渡し、メソッドの戻り値が下記")
        Console.WriteLine(res2)

        Console.ReadKey()

    End Sub

    '戻り値の型 Function
    Function funcA(ByRef nn) As Integer
        nn = nn - 2
        Return nn
    End Function
End Module

結果
Integer型引数を渡し、メソッドの戻り値が下記
21
Double型引数を渡し、メソッドの戻り値が下記
33