Mega Code Archive
Uses the new ternary If operator to return odd or even
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