Analise o código VB NET mostrado a seguir.
Module Module1
Sub Main()
X(1, Function(p1) IIf(p1 > 0, p1 - 1, 0))
X(10, Function(p1) 1 / p1 / p1)
End Sub
Sub X(ByVal valor As Int16, _
ByVal F As Func(Of Integer, Single))
Console.WriteLine(F(valor))
End Sub
End Module
O resultado exibido no console é: