Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim numbers = From num In Enumerable.Range(100, 50) _
Select Number = num, OddEven = If(num Mod 2 = 1, "odd", "even")
For Each n In numbers
Console.WriteLine("The number " & n.Number & " is " & n.OddEven)
Next
End Sub
End Class