面试题答案
一键面试Imports System
Imports System.Collections.Generic
Module Module1
Sub Main()
Dim numbers As New List(Of Integer) From {1, 2, 3, 4, 5, 6}
Dim sumOfSquaresOfEvens = numbers.Where(Function(n) n Mod 2 = 0).Sum(Function(n) n * n)
Console.WriteLine(sumOfSquaresOfEvens)
End Sub
End Module