Imports System
Imports System.Linq
Imports System.Collections.Generic
Public Module GroupAListOfNumbersByEvenAndOdd_VB
Public Sub Main()
Dim numbers As New List(Of Integer)() From {34, 25, 300, 91, 2, 7, 6783, 201, 555, 907, 12002}
' Group numbers by their remainder when divided by 2 (even or odd)
Dim groups = numbers.GroupBy(Function(number) number Mod 2)
For Each group In groups
' Use ternary operator for concise even/odd message
Console.WriteLine(If(group.Key = 0, Environment.NewLine & "Even numbers:", Environment.NewLine & "Odd numbers:"))
' Print each number in the group
For Each item In group
Console.WriteLine(item)
Next
Next
End Sub
End Module
' run:
'
' Even numbers:
' 34
' 300
' 2
' 12002
'
' Odd numbers:
' 25
' 91
' 7
' 6783
' 201
' 555
' 907
'
