Option Strict On

​

Imports System

Imports System.Linq

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine(OddProduction(1, 10).ToString())

    End Sub

​

    Private Function OddProduction(ByVal lowerBounds As Integer, ByVal upperBounds As Integer) As Integer

        If lowerBounds > upperBounds Then

            Throw New ArgumentException("The lower bounds cannot be greater than the upper bounds.")

        End If

​

        Dim total As Integer = 1

        For x As Integer = lowerBounds To upperBounds

            If x Mod 2 <> 0 Then

                total *= x

            End If

        Next

​

        Return total

    End Function

End Module

​