Visual Basic

CENTRO DE BARCHILLERATO TECNOLOGICO industrial y de servicios CBTis No. 175
MAESTRO(A): Erick Rodriguez Gaytan

MATERIA: Elaborar sistemas de información mediante un lenguaje de programaciónvisual

ESPECIAIIDAD: Informatica

INTEGRANTES DEL EQUIPO:
Ignacio Rodriguez Saldaña
Jesus Ocampo Najera
Jorge Uriel Santos Juarez
Edgar Eliuth Torres Gervacio

SEMESTRE: 4GRUPO: ”A”


CICLO – ESCOLAR
2012-2013
Hacer una aplicación en Visual Basic que permita calcular el promerio de 5 alumnos, y el promedio general grupal.


Para calcular los promedios de los 5alumnos y el promedio grupal insertamos el siguiente código en el botón CALCULAR:
Dim PA1, PA2, PA3, PA4, PA5, PGF, PG As Single
PA1 = (Val(CM1.Text) + Val(CF1.Text) + Val(CQ1.Text) +Val(CB1.Text) + Val(CI1.Text)) / 5
PA2 = (Val(CM2.Text) + Val(CF2.Text) + Val(CQ2.Text) + Val(CB2.Text) + Val(CI2.Text)) / 5
PA3 = (Val(CM3.Text) + Val(CF3.Text) + Val(CQ3.Text) +Val(CB3.Text) + Val(CI3.Text)) / 5
PA4 = (Val(CM4.Text) + Val(CF4.Text) + Val(CQ4.Text) + Val(CB4.Text) + Val(CI4.Text)) / 5
PA5 = (Val(CM5.Text) + Val(CF5.Text) + Val(CQ5.Text) +Val(CB5.Text) + Val(CI5.Text)) / 5
PGF = (PA1 + PA2 + PA3 + PA4 + PA5) / 5
P1.Text = PA1
P2.Text = PA2
P3.Text = PA3
P4.Text = PA4
P5.Text = PA5Para borrar el contenido de la aplicación insertamos el siguiente código en el botón BORRAR:
CM1.Text = 0
CF1.Text = 0
CQ1.Text = 0
CB1.Text = 0
CI1.Text = 0CM2.Text = 0
CF2.Text = 0
CQ2.Text = 0
CB2.Text = 0
CI2.Text = 0
CM3.Text = 0
CF3.Text = 0
CQ3.Text = 0
CB3.Text = 0CI3.Text = 0
CM4.Text = 0
CF4.Text = 0
CQ4.Text = 0
CB4.Text = 0
CI4.Text = 0
CM5.Text = 0
CF5.Text = 0
CQ5.Text = 0...