Programacion de Examen

Examen:

En este programa se utilizaron trece "LABEL" y nueve "TEXT", por ultimo dos "COMMAND" para la realizacion se hara lo siguiente:

En este programa lo que se necesitara textbox, label´s y commandButton.

en los cuales se programaron los command para que pueda funcionar el programa.

Los textbox´s servirán par a insertar los aciertos, % y el No. de preguntas contestadas correctamente.

Los labels servirán para escribir simplemente el nombre de cada sección.

Y los commandButton servirán para calcular el la calificación final y salir del examen.

La función de este programa es que cuando lo corras insertaras las calificaciones y al dar clic en calcular te imprimirá el resultado y obviamente como ya se explico el salir pues el nombre dice cual es su función.

Este programa tiene es muy fácil pero el requiere de lógica para poder insertar el código:

Dim seccion1 As Double//Declaración de la seccion1

Dim seccion2 As Double//Declaración de la seccion2

Dim seccion3 As Double//Declaración de la seccion3

Dim resultado As Double//Declaración de la variable resultado

If Val (Text2.Text) <= 0 Or Val (Text5.Text) <= 0 Or Val (Text8.Text) <= 0 Then//Condicion del If

MsgBox "Capture los datos por favor"//Mensaje

Text2.SetFocus//De donde se toma el valor

Else

seccion1 = (Val(Text1.Text) / Val(Text2.Text)) * Val(Text3.Text)

seccion2 = (Val(Text4.Text) / Val(Text5.Text)) * Val(Text6.Text)

seccion3 = (Val(Text7.Text) / Val(Text8.Text)) * Val(Text9.Text)

resultado = seccion1 + seccion2 + seccion3

MsgBox "La calificación del examen es: " + Str(resultado)

Pues en conclusión todos los programas son mayormente lógicos.