Q126502 - FGV Tecnologia da Informação 2015

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 é: