Tablas En Visual Net

TABLAS DE MULTIPLICAR EN VISUAL .NET

Este ejercicio consiste en seleccionar una opción del combobox cuya lista hace referencia a las tablas de multiplicar del 2 al 5, y al escoger una de estas, aparecerá en un listbox las operaciones de multiplicación hasta el número 10. Para este ejercicio se utilizaron las siguiente herramientas.

CONTROL VALOR DE LA PROPIEDAD NAME DEL CONTROL

Formulario Frtabla

Combobox Cbtabla

Listbox Listabla

Public Class FrTabla

Private Sub Frtabla_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

With Cbtabla 'Se utiliza with para guardar en memoria la palabra Cbtabla

.Items.Add("Tabla 2") 'Se añade item al combobox

.Items.Add("Tabla 3") 'Se añade item al combobox

.Items.Add("Tabla 4") 'Se añade item al combobox

.Items.Add("Tabla 5") 'Se añade item al combobox

End With

End Sub

Private Sub Cbtabla_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbtabla.SelectedIndexChanged

Dim num1 As Integer, r As Integer 'Se declaran variables

Const C2 As Integer = 2, C3 As Integer = 3, C4 As Integer = 4, C5 As Integer = 5 'Se declaran constantes

Select Case Cbtabla.Text

Case "Tabla 2" 'Si el valor de la propiedad Text del combobox es "Tabla 2"

Listabla.Items.Clear() 'Limpia el Listbox

For num1 = 1 To 10 'Ciclo for que empieza en 1 y termina en 10

r = C2 * num1 'Realiza la operaciòn matemàtica

Listabla.Items.Add(C2 & " x " & num1 & " = " & r) 'Añade y muestra en el listbox la operación

Next

Case "Tabla 3" 'Si el valor de la propiedad Text del combobox es "Tabla 3"

Listabla.Items.Clear() 'Limpia el Listbox

For num1 = 1 To 10 'Ciclo for que empieza en 1 y termina en 10

r = C3 * num1 'Realiza la operaciòn matemàtica

Listabla.Items.Add(C3 & " x " & num1 & " = " & r) 'Añade y muestra en el listbox la operación.

Next

Case "Tabla 4" 'Si el valor de la propiedad Text del combobox es "Tabla 4"

Listabla.Items.Clear() 'Limpia el Listbox

num1 = 1

...