Imports System

Public Module Module1

    Public Sub Main()

        Dim Number AS Integer

        Console.WriteLine("Enter number")

        Number = Console.ReadLine()

        For i = 1 to 12

        Console.WriteLine(i & " x " & Number & " = " & i * Number)

        Next    

    End Sub

End Module

​

​

'PSEUDOCODE

​

'INTEGER: Number. i

'

'OUTOUT "Enter Number"

'INPUT Number

'

'FOR i <-- 1 TO 12

'  OUTPUT i, " x ", Number, " = ", i*Number

'NEXT