VB.NET谓词数组查找

Question

如何将以下内容转换为使用Array.Find的VB.NET谓词？

Private Function FindCulture(ByVal Code As String) As Globalization.CultureInfo 
    ' 
    Dim AllCultures As Globalization.CultureInfo() = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures) 
    ' 
    For Each Culture As Globalization.CultureInfo In AllCultures 
     If Culture.TwoLetterISOLanguageName = Code Then 
      Return Culture 
     End If 
    Next 
    ' 
    Return Nothing 
    ' 
End Function 

Answer 1

Private Function FindCulture(ByVal Code As String) As Globalization.CultureInfo 
    Dim AllCultures As Globalization.CultureInfo() = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures) 
    Return Array.Find(AllCultures, Function(s) s.TwoLetterISOLanguageName = Code) 
End Function