Imports System

Public Module Module1

    Public Sub Main()

        dim answer as integer

        dim answerStr as string

        dim xStr as string

        dim yStr as string

        for x = 1 to 12

        for y = 1 to 12

        answer = x*y

        answerStr = Cstr(answer)

        xStr = Cstr(x)

        yStr = Cstr(y)

        console.writeline(xStr + "x" + yStr + "=" + answerStr)

    Next

    console.writeline(" ")

Next

    End Sub

End Module