Question

FGV – Projetos

Observe o código VB .NET a seguir. Private Class csAluno Public Property Matricula As Integer Public Property Nome As String End Class Private Class csDisciplina Public Property Matricula As Integer Public Property Codigo As String Public Property Creditos As Decimal End Class Sub Main() Dim alunos = ListaDeAlunos() Dim disciplinas = ListaDeDisciplinas() Dim QR = ... For Each L In QR Console.WriteLine(L.Matricula & " " & _ L.Nome & " " & L.TotCred) For Each LL In L.AlunoDisciplinas Console.WriteLine("->" & LL.Codigo & _ " " & LL.Creditos) Next Next End Sub Dado que as funções ListaDeAlunos e ListaDeDisciplinas retornam, respectivamente, listas dos tipos List(Of csAluno) e List(Of csDisciplina), a definição para a consulta LINQ QR, compatível com o restante do código, é:

Accepted Answer

E) Dim QR = From al In alunos Group Join disc In disciplinas On al.Matricula Equals disc.Matricula Into AlunoDisciplinas = Group, TotCred = Sum(disc.Creditos) Select al.Nome, al.Matricula, AlunoDisciplinas, TotCred  Tipo 1 – Cor BRANCA – Página 21

Answer

A) Dim QR = From al In alunos
Group Join disc In disciplinas On al.Matricula Equals
disc.Matricula,
TotCred = Sum(disc.Creditos)
Select al.Nome, al.Matricula, AlunoDisciplinas, TotCred

Answer

B) Dim QR = From al In alunos
Into(AlunoDisciplinas = Group, TotCred = Sum(disc.Creditos))
Select al.Nome, al.Matricula, AlunoDisciplinas, TotCred

Answer

C) Dim QR = From al In alunos
Group Join disc In disciplinas On al.Matricula Equals
disc.Matricula
Into AlunoDisciplinas = Group
Select al.Nome, al.Matricula, AlunoDisciplinas, _
TotCred = Sum(disc.Creditos)

Answer

D) Dim QR = From al In alunos
Join disc In disciplinas On al.Matricula Equals disc.Matricula
Into(AlunoDisciplinas = Group, TotCred = Sum(disc.Creditos))
Select *

Mais questões de Outros temas