VB6, calcular promedio nota 1,2 y 3

Cerrado
shikamau - 30 ago 2010 a las 23:46
 carlitos1 - 21 sep 2015 a las 16:38
hola amigos necesito ayuda con un control de notas en la aplicacion esta nota 1 nota 2 y nota 3 en el cual al darle al boton calcular debe hacr el calculo del promedio de esas tres notas y en un msgbox decir si aprovo el semestre o no... la ayuda que necesito no es que me agan la tarea si no que me den un ejemplo de como lo puedo resolver... estoy aprendiendo a programar con Visual b y es muy importante para mi... se los agradesco de ante mano gracias.


Asi estar el codigo del programa ahora pero no corre quien me ayuda?? se lo agradesco

If txtnota1.Text = "" Or txtnota2.Text = "" Or txtnota3.Text = "" Then
MsgBox "debe colocar todos los datos", vbCritical
Else



promedio = (txtnota1.Text + txtnota2.Text + txtnota3.Text) / 3
If promedio >= 6 Then
MsgBox APROVADO
Else
MsgBox REPROVADO
End If
End Sub

Asi esta mi codigo ahora pero el programa no corre que esta malo ayudaa :S
Consulta también:

8 respuestas

evaristocrates Message postés 10 Date d'inscription martes, 31 de agosto de 2010 Estatus Miembro Última intervención martes, 31 de agosto de 2010 13
31 ago 2010 a las 03:28
Tu validacion de campos, si estan vacios o no, tiene un bugero :p

Not use :(
if txtNota1.text = "" then
Msgbox "Campo vacio, pero si pones un espacio truena !!"
end if

Safe to use :)

if Trim( txtNota1.text ) = "" then
Msgbox "Campo vacio o con un espacio en blanco !!"
end if
1
tambien para valdar ke no esten vacios:
if not txtnota1=empty then
0