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
FormularioFrtabla
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 SubCbtabla_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 delcombobox 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...