![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSjJ83yLFLoIifWDR2BqjE0Ni8d-7bhF45mDIrlAkDZebOvZtMYRZ7docxYFSi4xgb-XEd32P9ywwDaAkLR6A5vI9HSMXxYnnA8jOCxnJ7TvDPsaATcqGXkp-w3Cr60LJpzasJsbygefd4/s320/LIANA.bmp)
Private Sub Command1_Click()
Private Sub command1_clikes()
Dim rea As Long, retorno
For f = 1 To 12
res = Text * f
retorno = cht(13) & Chr(10)
Text2 = Text1 & "x" & f & "=" & res & retorno
Next f
End Sub
Private Sub Command2_Click()
Private Sub comand2_clik()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
No hay comentarios:
Publicar un comentario