「VB.NET」関数Functionを使用するサンプル

2021年9月29日

構文
1.関数の定義
Public Function 関数名(ByVal 引数名) As String
処理コード
関数名　=　戻り値
End Function
2.関数の使い方
変数名 =関数名(引数)
使用例

Module Module1

    Sub Main()

        Dim result As String

        'FunctionGetAddrを呼び出す 引数の値2 
        result = GetAddr(2)
        Console.WriteLine(result)

        'FunctionGetAddrを呼び出す 引数の値5
        result = GetAddr(5)
        Console.WriteLine(result)

        Console.ReadKey()
    End Sub

    'Function GetAddrの定義
    Public Function GetAddr(ByVal vm) As String
        Dim strAddr As String

        ' Select Caseの判定
        Select Case vm
            Case 0 : strAddr = "tokyo"
            Case 1 : strAddr = "yokohama"
            Case 2 : strAddr = "fukuoka"
            Case Else : strAddr = "not exist"
        End Select
        GetAddr = strAddr
    End Function

End Module

結果
fukuoka
not exist