Listing Odd Numbers in VB.Net

What are Odd Numbers?

Odd numbers are numbers that are not divisible by 2.

They include:

1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, ...

Thankfully, odd numbers complement even numbers. So our code is almost same as the one for even numbers.

Create a new class file; Project, Add Class.
Call it oddNumbers.vb.
Optionally, create a new module file; Project, Add Module.
Call it OddModule.vb.
Type out the adjoining Visual Basic (VB.Net) code for listing odd numbers.

Note: You can simply comment out the previous evenNumbers VB.Net object code from the main class or continue from where it stopped.

Code for Odd Number List with Input in Visual Basic (VB.Net)

For a little more flexibility, let's add an input form.

All we need is a way to ask the user for input.
For this purpose, we'll use the Console.ReadLine() library function.

VB.Net code for OddNumbers Class File.

Public Class OddNumbers

    Dim first As Integer
    Dim last As Integer
    Dim result As New List(Of Integer)

    ' Simulate a constructor
    Public Sub _init_(alpha As Integer, omega As Integer)
        first = alpha
        last = omega
    End Sub

    ' Returns an list Of the desired Set Of even numbers
    Public Function prepResult() As List(Of Integer)
        ' Loop from start To Stop And rip out even numbers;

        Dim i = 0
        For i = first To last
            If i Mod 2 <> 0 Then ' modulo(%) Is explained later
                result.Add(i)
            End If
        Next i

        Return result
    End Function

End Class

Main module.

Module Arithmetic_OddNumbers

    Sub Main()
        ' Use the even number Class
        Dim lower_boundary = 1
        Dim upper_boundary = 100
        Dim odd_list As New OddNumbers
        odd_list._init_(lower_boundary, upper_boundary)
        Dim answer = odd_list.prepResult()

        Console.WriteLine("Odd numbers between " & lower_boundary & " and " & upper_boundary & " are:")
        Console.Write(String.Join(", ", answer))

    End Sub

End Module

Main module for Collecting Input.

Module Arithmetic_OddInput

    Sub Main()

        ' Collect Input
        Dim lower_boundary As Integer
        Dim upper_boundary As Integer

        Console.WriteLine("Enter the range for your odd numbers.")

        Console.Write("Enter Start Number: ")
        lower_boundary = CInt(Console.ReadLine())
        Console.Write("Enter Stop Number: ")
        upper_boundary = CInt(Console.ReadLine())

        ' Use the even number Class
        Dim odd_list As New OddNumbers
        odd_list._init_(lower_boundary, upper_boundary)
        Dim answer = odd_list.prepResult()

        Console.WriteLine("Odd numbers between " & lower_boundary & " and " & upper_boundary & " are:")
        Console.Write(String.Join(", ", answer))

    End Sub

End Module

I have a better version / See other versions.