EJERCICIO
Transformar en código el siguiente planteamiento: queremos generar un programa que pida un número del 1 al 10 y nos muestre la “tabla de multiplicar” correspondiente.
SOLUCIÓN
Hemos realizado la pregunta relativa al número cuya tabla se desea conocer utilizando un InputBox. Igualmente válido hubiera sido hacerlo con un Label contenedor de la pregunta y un TextBox donde el usuario introduce la información.
Option Explicit
Dim T As Integer
Dim i As Integer
Private Sub Form_Load()
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
|
Aspecto gráfico:
No hay comentarios:
Publicar un comentario