Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim numbers As Integer() = {5, 4, 1, 3, 9, 8, 6, 7, 2, 0}
Dim stringNames As String() = {"zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine"}
Dim digitOddEvens = From num In numbers _
Select Digit = stringNames(num), Even = ((num Mod 2) = 0)
For Each d In digitOddEvens
Console.WriteLine("The digit " & d.Digit & " is " & If(d.Even, "even", "odd"))
Next
End Sub
End Class
|