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 =(