VISUAL BASIC

PARA UTILIZAR VISUAL BASIC PUEDES HACER ESTO

Private Sub Command1_Click()Dim resultado As Long, retornoFor f = 1 To 20resultado = Text1 * fretorno = Chr(13) & Chr(10)Text2 = Text2 & Text1 & "x" & f & "=" & resultado & retornoNext fEnd Sub
Private Sub Command2_Click()Text1 = " "Text2 = " "Text1.SetFocusEnd Sub
Private Sub Command3_Click()If MsgBox("por favor confirma si ya te quieres salir del programa", vbYesNo, "¿quieres salirte del programa ?") = vbYes ThenEndElseCancel = 1End IfEnd Sub



End Sub
Private Sub Text1_Change()
End Sub