'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
____________________