Foro de Ayuda IntercambiosvirtualeS

Foro de Ayuda IntercambiosvirtualeS (https://www.intercambiosos.org/index.php)
-   Programación (https://www.intercambiosos.org/forumdisplay.php?f=45)
-   -   [VISUAL 6] Las tablas! (https://www.intercambiosos.org/showthread.php?t=11961)

wpiaw 26-oct-2010 21:58
[VISUAL 6] Las tablas!
 
Boceto:


Código:
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 26-oct-2010 22:07
wa .!! a practicar alguito Xd.. gracias amiga pía

Felina05 16-nov-2010 18:50
http://img696.imageshack.us/img696/48/0thxiv.png


La franja horaria es GMT -4. Ahora son las 04:25.

Desarrollado por: vBulletin® Versión 3.8.1
Derechos de Autor ©2000 - 2025, Jelsoft Enterprises Ltd.

Ad Management by RedTyger