Show
Form1.Caption = "Tabla"
T = Val(InputBox("¿Qué tabla quiere conocer?" & vbCrLf & _
"(Introduzca un número de 1 a 10)", "¿Número?"))
Labeltabla.FontBold = True
Labeltabla.Alignment = 2
Labeltabla = "TABLA DEL " & T & vbCrLf & vbCrLf
For i = 1 To 10
Labeltabla = Labeltabla & T & " * " & i & " = " & T * i & vbCrLf
Next i
End Sub
No hay comentarios:
Publicar un comentario