Mensajes

jejejejejeje pos... sip.... aprendi muxo y seguire aprendiendo eso siempre.y cuando.. me enseñen.. jejejje y pa ir io mediante el internet.. toodo lo nuevo q dan pues.. consultar gracias... a todos....¡¡¡ jejjej

te agradezco MCKSys Argentina hoy aprendi mucho gracias a ti.. gracias...¡¡¡¡¡¡

lo analice bn.. lo logre.. ahora... para q vean q io no hago deberes..¡¡¡¡ pos tenia planeado estudiar cada una de las cosas nuevas q agragaban en el codigo y si me intereso en aprender...¡¡¡¡ trankilos...¡¡¡¡ solo hice un intento y pedi ayuda nadies es perfecto icluso uno de uds.. a de haber pedido ayuda en algun momento.... asi mismo con los errores.. q por mas q los analicen se hacen faciles..¡¡¡¡¡

puffff no sale.. ejjeee

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

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..¡¡¡¡

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

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

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

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..¡¡