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
