Module table
    Sub Main()
        Dim number, answer, counting As Integer
        number = 1
        While number < 100
            answer = number Mod 2
            If answer <> 0 Then
                counting = counting + 1
            End If
            number = number + 1
        End While
        Console.WriteLine("Total odd numbers between 1 to 100 are = {0} ", counting)
        number = Console.Read()
    End Sub
    'This Table program copued from bzupages
End Module