Contadores y Acumuladores - Programación Visual Basic. Net con Visual Studio 2013 (14-25)
En este artículo seguiremos implementando estructuras iterativas con el bucle for en Microsoft Visual Basic. Net, desarrollaremos un ejemplo utilizando contadores y acumuladores.
Pueden ver los vídeos directamente en youtube:
Visita nuestro canal en youtube donde encontrarás cursos completos de Desarrollo de software y aprende a diseñar sistemas informáticos totalmente gratis:
Estructura Iterativas Bucles: For, While, do…Wile
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
Private Sub
btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Click
Me.Close()
End Sub
Contadores y Acumuladores (14-25) Programación Visual Basic. Net con Visual Studio 2013
Saludos Imperio, un abrazo a la distancia.
Contadores y Acumuladores (14-25) Programación Visual Basic. Net con Visual Studio 2013
Saludos Imperio, un abrazo a la distancia.
Contadores y Acumuladores - Programación Visual Basic. Net con Visual Studio 2013 (14-25)
Reviewed by Liliana Nataly Arcila Diaz
on
13:47
Rating:
existe esta estructura para visual basic 6.0?
ResponderEliminarExcelente ejemplo ! temas abarcados:
ResponderEliminarDeclaración de variables.
Contadores
Acumuladores.
Ciclo For
Condicional if
Try Catch
Un ejemplo muy básico abarcando temas importantes :D