Dim T As Integer ' Número del que se pide la tabla
Dim M As Integer ' Número de la tabla por el que se va a multiplicar
Dim R As String ' Respuesta del usuario
T = 1
M = 2
Do ' Actualiza la tabla
T += 1
M = 2
Do ' Actualiza el número de la tabla por el que se va a multiplicar
line14: ' GOTO
Console.WriteLine(T & " por " & M)
R = Console.ReadLine()
If IsNumeric(R) Then
R = CInt(R)
Else : GoTo line14 ' GOTO
End If
If R = T * M Then
Console.WriteLine("Correcto")
M += 1
Else
Console.WriteLine("Incorrecto. Pulse una tecla para continuar")
Console.ReadLine()
End If
Loop While M < 10
Loop While T < 10
Console.WriteLine("Felicidades; te sabes la tabla de multiplicar. Pulsa una tecla para continuar")
Console.ReadLine()