[VISUAL 6] Las tablas!

[wpiaw]

Boceto:

Option Explicit

Private Sub Com1_Click()
    Dim x As Integer
    For x = 1 To 10
        
        List1.AddItem (x & " x " & Val(Text1.Text) & " = " & Val(x) * Val(Text1.Text))
        
    Next x
End Sub

Private Sub Com2_Click()
    If MsgBox("Deseas salir del programa?", vbYesNo) = vbYes Then
        End
     End If
End Sub


Private Sub Com3_Click()
    List1.Clear
    Text1.Text = ""
    Text1.SetFocus
End Sub

Muy util para los que quieren aprender las tablas! jajaja

Salu2

[VJEVans]

wa .!! a practicar alguito Xd.. gracias amiga pía

[Felina05]