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 'Asignación de valor 1 a la variable num1

Do While num1 <= 10 'Si num1 es menor o igual a 10 continua el ciclo

r = C4 * num1 'Realiza operación matemática

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

num1 += 1 'Al valor que se encuentra dentro de la variable num1 se suma 1

Loop

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

Listabla.Items.Clear() 'Limpia el Listbox

num1 = 1 'num1=1

Do 'Empieza a ejecutar las ordenes que se encuentren dentro del ciclo.

r = C5 * num1 'Realiza

...