SóProvas

ID
1663135
Banca
FGV
Órgão
TCM-SP
Ano
2015
Provas
Disciplina
Programação
Assuntos

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

Alternativas
Comentários

  • p1 > 0, p1 - 1, 0 = 1>0, 1-1 =0, 0 - imprime 0

    1 / p1 / p1 = 1/10 = 0,1/10 = 0,01 - imprime 0,01

  • p1 = 1

    Se p1 > 0 então retorne p1 - 1

    Senão, retorne 0

    Como p1 > 0, então 1 - 1 = 0

    p1 = 10

    1/10 = 0,1

    0,1/10 = 0,01

    Exemplo com outros valores:

    Imports System

    Public Module Module1 

    Sub Main() 

    X(45, Function(p1) If(p1 > 0, p1-2, 3)) 

    X(10, Function(p1) 7 / p1 / 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

    Saída:

    43

    0.007