Imports System
Imports System.Linq
Public Class GenerateRandomOddNumbers_VB
Public Shared Sub Main(ByVal args As String())
Dim totalNumbers As Integer = 7
Dim evenNum = Enumerable.Range(20, 25).Where(Function(i) i Mod 2 <> 0).AsParallel().OrderBy(Function(i) Guid.NewGuid()).Take(totalNumbers)
For Each n In evenNum
Console.WriteLine(n)
Next
End Sub
End Class
' run:
'
' 33
' 31
' 27
' 37
' 23
' 21
' 39
'