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:
Ver original'-------------------------------------------------------------------------
' 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)