NESESITO AYUDA EN ESTE PROGRAMA ME SALE ERROR EN TODA CODIFICACION Q PONGO

[Gabriel094]

pro eso va en cada condicion... o bucle..????

[Danyfirex]

claro.  aunque solo serian tres condiciones. o 2 sin contar el else.

[Gabriel094]

en la primera codificacion q envie de este mismo ejercicio.... intente eso... incluso cambie las declaraciones.. pro.. en ese caso... me empieza a sumar los numeros.. en un solo label o etiqueta..¡¡¡¡

[MCKSys Argentina]

OK, veamos la primera parte: capturar los 10 valores:

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Dim n As Long
Dim I as Long
Dim Notas(1 to 10) as Long 'Guarda las notas como numeros enteros

For I = 1 To 10
    n = Val(InputBox("Dame una NOTA", "INGRESA LOS NOTAS########")) 'pide numero
    Notas(i) = n 'guarda numero
Next i
'Una vez guardados los 10 numeros, ahora hay que contar
'Continua aqui!

End Sub


Ahora, haz un bucle para recorrer la matriz y usa variables para contar las cantidades... 

Saludos!

[Gabriel094]

gracias... kieres decir las condiciones de la primera codicion..¡¡¡
xq las conozco por condicion..

[Danyfirex]

No es codificación!!!

MCKSys Argentina se la pusiste peor con Arrays.  


Gabriel094 te salio mas caro el remedio que la enfermedad.

[MCKSys Argentina]

MCKSys Argentina se la pusiste peor con Arrays.  

No se porque dice eso...  

De todas formas, una vez que tienes las notas, sólo debes recorrerlas para poder hacer las cuentas pedidas:

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Dim n As Long
Dim I as Long
Dim Notas(1 to 10) as Long 'Guarda las notas como numeros enteros

Dim Mediocres as Long
Dim Aplazados as Long
Dim Promocionados as Long


For I = 1 To 10
   n = Val(InputBox("Dame una NOTA", "INGRESA LOS NOTAS########")) 'pide numero
   Notas(i) = n 'guarda numero
Next i
'Una vez guardados los 10 numeros, ahora hay que contar
'Continua aqui!

Mediocres = 0
Aplazados = 0
Promocionados = 0

For I = 1 To 10
   If Notas(i) < 4 then
       Aplazados = Aplazados + 1
   ElseIf Notas(i) >= 6 then
       Promocionados = Promocionados + 1
   Else
       Mediocres = Mediocres + 1
   endif
Next I
End Sub


Y asi ya tienes los valores pedidos.

@Gabriel094: Revisa el código. Si hay algo que no entiendes, pregunta. Es la única forma en que aprenderás.

[Karcrack]

Offtopic:
Me parece que le hacéis un flaco favor a estos usuarios que vienen pidiendo tareas sin ningún interés en aprender. Me he fijado que tú, @Danyfirex, le das mucha bola a este tipo de usuarios.

[Danyfirex]

Offtopic:
Me parece que le hacéis un flaco favor a estos usuarios que vienen pidiendo tareas sin ningún interés en aprender. Me he fijado que tú, @Danyfirex, le das mucha bola a este tipo de usuarios.

@Karcrack si tienes razón. pero seguro alguien interesado lo va a analizar. "Al menos"
A cuantos le has facilitado las cosas con tus grandes códigos? "Uff miles" :S
Y cuantos han aprendido. (yo soy uno)
así que no lo veo tan malo. responder.

saludos Mr vb god.  ("eso lo ley en la web") 

[alister]

totalmente de acuerdo.
estamos creando borregos.

creo que nos quejamos de que en el mundo laboral hay gente profesionalmente incompetente, sin darnos cuentas de que nosotros mismos lo permitimos.

una cosa es aportarnos entre todos, y otro es que los fuertes cacen para los debiles y hasta les mastiquen la comida.

estamos aqui para aprender. pero aprender es algo que se realiza bajo dos condiciones indiscutibles: la primera es EN ORDEN (sin fundamentos, no hay nada), y la segunda es CON ESFUERZO (te enseño a pescar, no me pidas el pez)