Imports System

Public Module Module1

    Public Sub Main()

         Dim nIn As Decimal

        nIn = Console.ReadLine()

        'nIn = Cint (txtIn.text)

        Dim iCount As Integer = 0

        'use a Do . . . Untill Loop to Loop 12 times

        Do

            iCount = iCount + 1

            'txtOut.Text = txtOut.Text & " " & (iCount = nIn)

            Console.WriteLine(iCount * nIn) 

        Loop Until iCount = 12

    End Sub

End Module