新機能試してみた

今さらかよ！とか言われそうですがgenericsとかlambdaとか試してみました。

Module Module1
    Sub Main()
        Dim t As New Test()
        t.Test2()
    End Sub

    Class Test
        Public Sub Test1()
            System.Console.WriteLine(Me.Foo(10))
        End Sub

        Private Function Foo(Of T)(ByRef a As T) As T
            Return a
        End Function

        Public Sub Test2()
            Dim gen As Func(Of Integer, Func(Of Integer, Integer)) = _
                Function(x) _
                    Function(y) x * y

            Dim f = gen(2)
            Console.WriteLine(f(50))
        End Sub

    End Class
End Module

しかしVBはすっかりわかりませんなぁ。