USO DE COMBOBOX Y FOR

Estructura Iterativa Bucle For

Un bucle for es una estructura de control de repetición que permite escribir de manera eficiente un bucle que es necesario ejecutar un número determinado de veces. Un bucle for es útil cuando se sabe cuántas veces una tarea se va a repetir.

Problema 10:

Hacer un programa en Visual Basic. Net que permita mostrar la tabla de sumar, restar, multiplicar y dividir de un número ingresado previamente.

Public Class Form1

  

Private Sub limpiar() 'procedimiento

        cbosuma.Items.Clear()

        cboresta.Items.Clear()

        cbomulti.Items.Clear()

        cbodivision.Items.Clear()

End Sub

Private Sub btnnuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnuevo.Click

        'jalar el procedemiento

        Call limpiar()

        'limpiar el txtbox

        txtnumero.Clear()

    End Sub

Private Sub btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalcular.Click

        'dejar en blanco comobox

        Call limpiar()

        Dim num, suma, resta, multi As Integer

        Dim div As Double

        'entrada de datos

        num = Val(txtnumero.Text)

        'proceso

        For i = 1 To 12 Step 1

            suma = num + i

            resta = num - i

            multi = num * i

            div = num / i

            'salida de informacion

            cbosuma.Items.Add(num & " + " & i & " = " & suma)

            cboresta.Items.Add(num & " + " & i & " = " & resta)

            cbomulti.Items.Add(num & " + " & i & " = " & multi)

            cbodivision.Items.Add(num & " + " & i & " = " & div)

        Next

    End Sub

Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click

        Me.Close()

    End Sub

End Class

Contadores y Acumuladores

Contador : Son variables enteras que se incrementan (+) o decrementan (-).
num+=1     num-=1   num=num+1

Acumulador: Son variables de cualquier tipo que almacenan valores variables.
   num+=valor     num-=i    num=num+valor

Problema 11:

Se tiene un conjunto de calificaciones de un grupo de “n” alumnos, realizar un algoritmo para calcular la calificación media y la calificación más baja de dicho grupo.

Código del botón Calcular

Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click

        Try

            'Declaración de variables

            Dim numalumnos As Integer

            Dim nota, sumanotas, notabaja, promedio As Double

            If (Val(txtnumero.Text) - Int(Val(txtnumero.Text)) = 0) Then

                'Entrada de datos

                numalumnos = Val(txtnumero.Text)

                'Inicializamos las variables

                sumanotas = 0

                notabaja = 20

                For i = 1 To numalumnos Step 1

                    nota = InputBox("Ingrese Nota del alumno " & i, "Registro de Notas")

                    sumanotas = sumanotas + nota

                    'Evaluamos si esta nota es la más baja

                    If (nota < notabaja) Then

                        notabaja = nota

                    End If

                Next

                promedio = sumanotas / numalumnos

                'Salida de Información

                txtpromedio.Text = promedio

                txtnotabaja.Text = notabaja

            Else

                MessageBox.Show("Ingrese un valor entero", "Promedio de Notas",MessageBoxButtons.OK, MessageBoxIcon.Error)

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

End Sub

Código del botón Nuevo

Private Sub btnnuevo_Click(sender As Object, e As EventArgs) Handles btnnuevo.Click

        txtnumero.Clear()

        txtnotabaja.Clear()

        txtpromedio.Clear()

End Sub

Código del botón Salir

Private Sub btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Cl

 Me.Close()

End Sub

Observe el video para repasar otra forma de realizar el ejercicios: