「VB.NET」Functionに引数と戻り値がリストを使用する

2021年10月1日

書式
1.メソッドの定義
Private Function メソッド名(ByVal 変数名 As List(Of データ型))
2.メソッドの使用
メソッド名(リスト名)
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
Sub Main()
'String型リストの宣言
Dim cityLst As New List(Of Integer)
'リストに要素を追加
cityLst.Add(33)
cityLst.Add(44)
cityLst.Add(55)
'Integer型リストの宣言
Dim resLst As List(Of Integer)
'引数がリストを渡す
resLst = getCity(cityLst)
Console.WriteLine("戻り値がリストの要素")
For Each tt In resLst
Console.WriteLine(tt)
Next
Console.ReadKey()
End Sub
'戻り値がリストのメソッドの定義
Private Function getCity(ByVal tt As List(Of Integer))
tt.Add(66)
Return tt
End Function
End Module
Module Module1 Sub Main() 'String型リストの宣言 Dim cityLst As New List(Of Integer) 'リストに要素を追加 cityLst.Add(33) cityLst.Add(44) cityLst.Add(55) 'Integer型リストの宣言 Dim resLst As List(Of Integer) '引数がリストを渡す resLst = getCity(cityLst) Console.WriteLine("戻り値がリストの要素") For Each tt In resLst Console.WriteLine(tt) Next Console.ReadKey() End Sub '戻り値がリストのメソッドの定義 Private Function getCity(ByVal tt As List(Of Integer)) tt.Add(66) Return tt End Function End Module
Module Module1


    Sub Main()

        'String型リストの宣言
        Dim cityLst As New List(Of Integer)

        'リストに要素を追加
        cityLst.Add(33)
        cityLst.Add(44)
        cityLst.Add(55)

        'Integer型リストの宣言
        Dim resLst As List(Of Integer)

        '引数がリストを渡す
        resLst = getCity(cityLst)

        Console.WriteLine("戻り値がリストの要素")
        For Each tt In resLst
            Console.WriteLine(tt)
        Next

        Console.ReadKey()

    End Sub

    '戻り値がリストのメソッドの定義
    Private Function getCity(ByVal tt As List(Of Integer))
        tt.Add(66)
        Return tt
    End Function
End Module

結果
戻り値がリストの要素
33
44
55
66

VB.net

Posted by arkgame