Imports System
Imports System.Linq
Public Module Module1
Public Sub Main()
Dim arr1 As String() = {"c#", "c++", "c", "java", "python"}
Dim arr2 As String() = {"php", "c#", "python", "swift", "javascript"}
Dim arr = (From w1 In arr1 Join w2 In arr2 On w1 Equals w2 Select w1)
For Each s In arr
Console.WriteLine(s)
Next
End Sub
End Module
' run:
'
' c#
' python
'