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

[Gabriel094]

un  programa que me permita iIngresar números hasta que uno sea cero. Calcular el promedio de ellos y mostrar el  resultado y cuántos se ingresaron.

[Danyfirex]

Pero muestra el codigo sino como vemos el Error  .

El titulo podría ir en minúscula.

[Gabriel094]

lo siento mira esta es la codificacion

Private Sub Command1_Click()
Dim n As Integer
Dim suma As Integer
Dim pro As Integer
For I = 1 To 0
n = Val(InputBox("Dame un numero", "NUMEROS HASTA QUE UNO SEA 0"))
suma = suma + n
pro = suma / n
If n = 0 Then
label1.Text = suma
Else
Next I
label2.pro
End If
End Sub

[MCKSys Argentina]

Necesitas más sobre la logica de la programacion y sobre la sintaxis de VB.

Esta es una posible solucion a tu ejemplo:

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Dim Numero As Long
Dim Suma As Long
Dim Pro As Long
Dim Cantidad as Long

Numero = 1
Suma = 0
Pro = 0
Cantidad = 0
Do While Numero <> 0
    Numero = Val(InputBox("Dame un numero", "NUMEROS HASTA QUE UNO SEA 0"))
    if Numero <> 0 then
        Cantidad = Cantidad + 1
        Suma = Suma + Numero
        Pro = Suma / Cantidad
    end if
Loop
'Luego tienes los valores en cada variable y los muestras donde sea
End Sub


[Danyfirex]

Y no es codificación. es código fuente.

[Gabriel094]

grasia men....pro mira ahora tengo este otro.... no lo tomes como molestia esq de vdd nesesito ayuda.. mira este.. es casi lo mismo.. kisiera ver si me puede corrregir es casi la misma codificacion q utilizaba en el anterior......
Ingresar las notas de 10 alumnos pertenecientes a un curso e indicar:
Cantidad de alumnos que aprobaron con una nota comprendida entre 4 y 6.
Cantidad de alumnos aplazados (nota menor a 4).
Cantidad de alumnos promocionados (nota superior o igual o 6).

esta es la codificacion
Private Sub Command1_Click()
Dim n As Integer
For I = 1 To 10
n = Val(InputBox("Dame un NOTAS", "INGRESA LOS NOTAS########"))
If n >= 6 Then
Label1.Caption = n
Else
End If
If n >= 4 Then
Label2.Caption = n
Else
Label3.Caption = n
End If
Next I
End Sub

te agradeceria si me ayudaras...¡¡¡¡¡¡ y de la q me salvas..¡¡

[Gabriel094]

aki es este codigo duente.. al ejecutar... luego de ingresar las 10 notas..me salen solo el numero 1 en cada label.....

[MCKSys Argentina]

Creo que debes replantearte la solucion al problema.

Si estuviera en tu lugar, iría por partes.

El enunciado te dice que trabajarás con 10 valores; entonces, haz un bucle para capturar los 10 valores (Lo más aconsejable para guardar los datos sería una matriz).

Luego, sólo debes recorrer la matriz, item x item e ir contando las cantidades pedidas.

No te pongo el código aquí por algo muy simple: si te doy el código, no aprendes.
La primera vez, fue eso: la primera vez; pero desde ahora debes TRATAR de solucionarlo por ti mismo.

Saludos!

PD: Intenta repensar el código y haz un intento. Si no te funciona, postéalo y lo veremos nuevamente. 

[Gabriel094]

mira esta es otro codigo con el que intente hacer.... el programa.. pro es lo mismo....me salen los numeros sumados... en cada label........

Dim promo As Integer
Dim apro As Integer
Dim apla As Integer
-------------------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
If Text1 >= 7 Then
Label11.Caption = 1
Else
End If
If Text1 >= 4 Then
Label12.Caption = 1
Else
Label13.Caption = 1
End If
If Text2 >= 7 Then
Label11.Caption = 1
Else
End If
If Text2 >= 4 Then
Label12.Caption = 1
Else
Label13.Caption = 1
End If
If Text3 >= 7 Then
Label11.Caption = 1
Else
End If
If Text3 >= 4 Then
Label12.Caption = 1
Else
Label13.Caption = 1
End If
If Text4 >= 7 Then
Label11.Caption = 1
Else
End If
If Text4 >= 4 Then
Label12.Caption = 1
Else
Label13.Caption = 1
End If
If Text5 >= 7 Then
Label11.Caption = 1
Else
End If
If Text5 >= 4 Then
Label12.Caption = 1
Else
Label13.Caption = 1
End If
If Text6 >= 7 Then
Label11.Caption = 1
Else
End If
If Text6 >= 4 Then
Label12.Caption = 1
Else
Label13.Caption = 1
End If
If Text7 >= 7 Then
Label11.Caption = 1
Else
End If
If Text7 >= 4 Then
Label12.Caption = 1
Else
Label13.Caption = 1
End If
If Text8 >= 7 Then
Label11.Caption = 1
Else
End If
If Text8 >= 4 Then
Label12.Caption = 1
Else
Label13.Caption = 1
End If
If Text9 >= 7 Then
Label11.Caption = 1
Else
End If
If Text9 >= 4 Then
Label12.Caption = 1
Else
Label13.Caption = 1
End If
If Text10 >= 7 Then
Label11.Caption = 1
Else
End If
If Text10 >= 4 Then
Label12.Caption = 1
Else
Label13.Caption = 1
End If
End Sub

[Danyfirex]

MCKSys Argentina tiene razón.

Bueno lo que pasa que cada vez del bucle agregas el valor al control.

lo que tienes que hacer en cada caso sumar 1 a tu variables,  de tres variables( alumnos malos, bueno y super-buenos), respectivamente, luego al final de la repetición muestras los resultados de tus variables.