Imports System

Public Module Module1

    Public Sub Main()

         Dim inttabla, intresultado As Integer

        Console.WriteLine("Escriba el numero del que desea obtener la tabla de multiplicar: ")

        inttabla = Console.ReadLine

​

        For i = 1 To 10

            intresultado = inttabla * i

            Console.WriteLine("{0} * {1} = {2}", inttabla, i, intresultado)

        Next

        Console.ReadLine()

    End Sub

End Module