Crear actividad
Jugar Completar frases
'Botón que lleva a cabo la multiplicación
Private Sub BtnMultiplicar_Click ( )

'Verifica que haya un valor numérico en la textbox Número
____________________ Tnumero . Text = " " ____________________
____________________ " Debe ingresar un valor numérico " , ____________________ , " No hay ningún valor "

____________________
'Declaro e inicializo mi variable contador para la tabla

____________________ a as Integer

'Configuro el parámetro para calcular la tabla del 1 al 10

____________________ a = 1 ____________________ 10
Ttabla . Text = Ttabla . Text + Str ( Tnumero . Text ) + " * " + Trim ( Str ( a ) ) + " = " + Str ( a * Tnumero . Text ) + Chr ( 9 ) + Chr ( 10 )

____________________ a

'Muestro en pantalla un mensaje de operación exitosa
____________________ " Tabla multiplicada exitosamente " , ____________________ , " Operación existosa "

End ____________________

End ____________________