Tutoriales de Visual Basic

Tablas de multiplicar en visual
Introducción

Programa que despliega la tabla de multiplicar que seleccione.

En el formulario agramamos dos botones (mostrar y salir), un combobox y una cajade texto con ScrollBars vertical y multilínea.

En el botón mostrar: 

Private sub cmdMostrar_Click()
    t = CInt(Combo1.ListIndex)
    if t = -1 Then
        MsgBox ("Selecciona una tabla.")
    else
        Label2.Caption = "Resultado de la tabla " & t + 1
        Combo1.ListIndex = -1
        Combo1.Text = "Selecciona una"
        For i = 1 To 10
            Text1.Text = Text1.Text & (t + 1) & " x " & i & " = " & i * (t + 1) 
& vbCrLf
        Next
    end If
end sub


En el botón salir: 

Private sub cmdSalir_Click()
    End
end sub


y en el combobox: 

Private sub Combo1_Click()
    Text1.Text = ""
end sub


Autor: Gamaliel M. DescargarDescargar

Comentarios en "Tablas de multiplicar en visual"

Table 'programa_programas.t_comentarios' doesn't exist