[VB6] Ayuda urgente =S

[RocKRKO]

ola ola soy algo nuevo en esto del vB6 jeje pero me encanta este foro asi que espero me ayuden miren para ustedes maestros del vB6 resultara algo facil jeje

Lo que tengo que hacer es clasificar unas entradas de datos con una matriz

Primero se piden los datos con un inputbox algo asi

Código:

Private Sub Command1_Click()
For indice = 0 To 2
    edades(indice) = InputBox("Teclea La edad de Tu Alumno", "Teclea La edad")
    If edades(indice) = "0" Then
    MsgBox "Error, Teclea una edad desde 4 en adelante ...", vbInformation, "Error"
    End If
    If edades(indice) < 4 Then
    MsgBox "No se admiten Niños Menores de 4 Años", vbInformation, "No Admitido"
    End If
    Select Case edades(indice)
    Case 4 To 6:
    For x = 0 To 2
    List1.AddItem edades(x)
    Next x
    Case 7 To 8
    For y = 0 To 2
    List2.AddItem edades(y)
    Next y
    Case 9 To 12
    For n = 0 To 2
    List3.AddItem edades(n)
    Next n
    End Select
    
Next

End Sub

Y dependiendo que edad tenga el alumno se clasificara en 4 textbox

de 4 a 6 categoria 1
de 7 y 8 categoria 2
de 9 y 10 categoria 3
de 11 en adelante categoria 4

pero tienen que aparecer en los textbox cuantos son de cada categoria pero no se como xD trate de agruparlos en un listbox poniendo el siguiente code

Código:

  For n = 0 To 2
    List3.AddItem edades(n)
    Next n

y si se clasifican pero aparecen los valores de los anteriores y valores de 0

alguien me podriia ayudar =(

[culd]

Segun lo que entendi, lo que necesitas es lo siguiente:

1- El usuario ingresa edades de alumnos
2- Las edades se van guardando en un vector segun categoria de edades
3- Al finalizar muestra la informacion de cantidades segun categoria

Bueno, lo hise sin ningun objeto, osea directamente con input y msgbox, despues pone los objetos que necesites (lease texbox, listbox, o lo que prefieras)

Código vb:

'-------------------------------------------------------------------------
' Desarrollado por ..::][culd][::.. a pedido de "RocKRKO" para ForosDelWeb
'-------------------------------------------------------------------------
 
Dim Edad As String                  'variable que maneja la informacion ingresada por el usuario
Dim EdadI As Integer                'variable para la edad pero integer para trabajarla mejor
Dim Categoria(1 To 4) As Integer    'vector que contiene las cantidades de alumnos segun categoria
 
'Estructura repetir hasta que
Do
    'pido la edad al usuario
    Edad = InputBox("Ingrese la edad del alumno" & vbNewLine & "Ingrese 0 o menos para finalizar", "Edad")
    'verifico si es numerica
    If IsNumeric(Edad) = True Then
        'guardo la edad en una variable del tipo integer
        EdadI = CInt(Edad)
        'verifico si la edad es mayor que 0
        If EdadI > 0 Then
            'verifico si la edad es mayor o igual que 4
            If EdadI >= 4 Then
                'estructura condicional multiple
                Select Case EdadI
                    Case 4 To 6:    'de 4 a 6 años sumo en la categoria 1
                        Categoria(1) = Categoria(1) + 1
                    Case 7 To 8:    'de 7 a 8 años sumo en la categoria 2
                        Categoria(2) = Categoria(2) + 1
                    Case 9 To 10:   'de 9 a 10 años sumo en la categoria 3
                        Categoria(3) = Categoria(3) + 1
                    Case Is >= 11:  'de 11 en adelante sumo en la categoria 4
                        Categoria(4) = Categoria(4) + 1
                    Case Else:      'si es otro numero le devuelvo error y no sumo nada
                        MsgBox "La edad ingresada no corresponde a ninguna categoria", vbCritical
                End Select
            Else
                'devuelvo el error de que es menor de 4 años
                MsgBox "No se permite menores de 4 años", vbCritical
            End If
        End If
    Else
        'Asigno "1", ya que puede ser que en primera instancia ingrese una letra
        'y la veriable estaria cereada y directamente el repetir finalizaria
        EdadI = 1
        'informo que no es un numero valido
        MsgBox "No ingreso un numero valido", vbCritical
    End If
Loop Until EdadI <= 0
 
'cuando el usuario no quiere ingresar mas muestro los resultados de las
'cantidades de alumnos segun la categoria
MsgBox "Cantidad de Alumnos por Categoria" & vbNewLine & vbNewLine & _
"Categoria 1: " & Categoria(1) & vbNewLine & _
"Categoria 2: " & Categoria(2) & vbNewLine & _
"Categoria 3: " & Categoria(3) & vbNewLine & _
"Categoria 4: " & Categoria(4)