Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim numbersA() As Integer = {0, 2, 4, 6, 8, 9}
Dim numbersB() As Integer = {1, 3, 5, 7, 8}
Dim pairs = From a In numbersA, b In numbersB _
Where a < b _
Select a, b
Console.WriteLine("Pairs where a < b:")
For Each pair In pairs
Console.WriteLine(pair.a & " is less than " & pair.b)
Next
End Sub
End Class