AHORA AÑADIMOS EL CODIGO

AL AÑADIR EL CODIGO LE DAMOS 2 CLICK EN EL BOTON PROMEDIO, VERAN COMO INMEDIATAMENTE APARECE LA VENTANA PARA INCIAR A CALCULAR EL PROMEDIO.
POR DEFAULT NOS MUESTRA ES LO SIGUIENTE:

Private Sub CMDPROMEDIO_CLICK (ByVal sender As System.Object, By Val e As System.EventArgs) Handles CMDPROMEDIO.CLICK
'LUEGO INICIAMOS A CAPTURAR EL CODIGO, PRIMERO DECLARAMOS LAS VARIABLES Y UTILIZAMOS EL TIPO INTEGER PUESTO QUE UTILIZAREMOS NUMERO ENTEROS. PONEMOS EN DONDE SE VA A GUARADAR LO CAPTURADO Y PONEMOS LA OPERACION QUE REALIZARA EL BOTON "PROMEDIO"
DIM PROMEDIO AS INTEGER
DIM CALIF1 AS INTEGER
DIM CALIF2 AS INTEGER
DIM CALIF3 AS INTEGER
DIM CALIF4 AS INTEGER
CALIF1 = TXTMATE.Text
CALIF2 = TXTESPA.Text
CALIF3 = TXTPROGRA.Text
CALIF4 = TXTINGLES.Text
PROMEDIO = (CALIF1+CALIF2+CALIF3+CALIF4) /4
TXTPROMEDIO.Text=PROMEDIO
End Sub


AHORA VOLVEMOS AL FORMULARIO Y LE DAMOS 2 CLICK AL BOTON SALIR:

Private Sub CMDSALIR_Click (By Val sender As System.Object, By Val e As System.EventArgs) Handles CMDSALIR.Click
End
End Sub
End Class

Y LISTO YA QUEDO EL CODIGO DE NUESTRO PRIMER FORMULARIO