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(" ")
End Sub
End Module