Crea un formulario con una etiqueta, dos cajas de texto y tres botones.

Escribe el siguiente código:

El botón Ver Tabla

Private Sub Command1_Click()

Dim res As Long, retorno

For n = 1 To 10

res = Text1 * n

retorno = Chr(13) & Chr(10)

Text2 = Text2 & Text1 & " x " & n & " = " & res & retorno

Next n

End Sub

El botón Nueva Tabla

Private Sub Command2_Click ()

Text1 = ""

Text2 = ""

Text1.SetFocus

End Sub

El botón Salir

Private Sub Command3_Click()

If MsgBox("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "¿Qué Ya Te Quieres Ir?") = vbYes Then

End

Else

Cancel = 1

End If

End Sub