TABLA DE MUILTIPLICAR

Escribir una aplicación que lea un número entero y muestre la tabla de multiplicar de dicho número. El diseño de entrada y salida debe ser similar al siguiente:

Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:

1 etiqueta
2 cajas de texto
1 botón de comando

En seguida proceda a establecer las propiedades según se indica:

Form1

Nombre
FrmTabla

BorderStyle
3-Fixed Dialog

Caption
Tabla de multiplicar

Label1

Nombre
LblNumero

Caption
Ingrese un número:

Text1

Nombre
TxtNumero

Text


Text2

Nombre
TxtTabla

MultiLine
True

Locked
True

ScrollBars
2-Vertical

Text


Command1

Nombre
CmdLimpiar

Caption
&Limpiar
Una vez diseñada la interfaz, proceda a ingresar el código que se indica a continuación:

Private Sub TxtNumero_Change()
If IsNumeric(TxtNumero) Then
Dim N As Integer, P As Integer, I As Integer
Dim S As String
N = Val(TxtNumero)
S = “”
For I = 0 To 12
P = N * I
S = S & N & “ * ” & I & “ = ” & P & vbCrLf
Next I
TxtTabla = S
ElseIf TxtNumero = “” Then
Exit Sub
Else: MsgBox “Ingrese un número”, vbCritical, “Mensaje”
TxtTabla = “”
End If
End Sub

Private Sub CmdLimpiar_Click()
TxtNumero = “” : TxtTabla = “”
TxtNumero.SetFocus
End Sub