Necesito ayuda con un codigo para un examen..

Cerrado
GatorB
Message postés
2
Date d'inscription
viernes, 3 de febrero de 2017
Estatus
Miembro
Última intervención
viernes, 3 de febrero de 2017
- Modificado por GatorB el 3 feb 2017 a las 18:47
Hola me podrían decir donde esta el error en este código es en visual basic 6.0

Private Sub Command1_Click()
num = InputBox("ingrese numero")
Do While num <= 1 And num >= 10
cont = cont + 1
acum = num + acum
If cont = 1 Then
menor = num
ElseIf cont > 1 And num < menor Then
menor = num
End If
If cont = 1 Then
mayor = num
ElseIf cont > 1 And num > mayor Then
mayor = num
End If
If num >= 9 Then
cont1 = cont1 + 1
End If
num = InputBox("ingrese numero")
Loop
porc = (cont1 * 100) / cont
prom = acum / cont

MsgBox ("Porcentaje notas " & porc)
MsgBox ("Promedio alumnos " & prom)
MsgBox ("el menor promedio es " & menor & " el mayor promedio es" & mayor)
End Sub

tengo que sacar promedio general de un curso con alumnos X
promedio de notas de esos alumnos
y porcentaje de los promedios

Desde YA ..muchas gracias!!