Laboratorio Clinico en VB 6.0

Buenas Noches amigos, como esta la familia, como esta sector Laboral, k dice el corazón?. jejej bueno nunca olvidar que para todo hay solución, nunca hay que decir Que problema tengo si no, ... Que solución voy a hacer hoy?. y hablando de soluciones mi gran amigo Whishy me propuso este ejercicio ...

Tomando como base los resultados obtenidos en un laboratorio de análisis clínicos un medico determina si una persona tiene anemia o no lo cual depende de su nivel de hemoglobina en la sangre de su edad y de su sexo. Si el nivel de hemoglobina que tiene una persona es menor que el rango que le corresponde se determina su resultado como positivo y en caso contrario como negativo. La tabla en la que él medico se basa para obtener el resultado es la siguiente ...

Como vemos, es una inofensiba tabla, que rapidamente se nos viene a nuestras mentes, Selec Case, verdad? pues asi es pero ... pronto nos damos cuenta que los años estan dados tambien en meses, y en lam ultima parte hay una condicional. se nos complico el asunto, pero de todas formas ese es nuestro trabajo dar solucion a los problemas entonces razonamos lo siguiente ...

Los OptionsButton's nos ayudan en este proceso ya que si OptMeses = True, entonces nos vamos a la SubRutina Public Sub meses() y hay tenemos otro Select Case con las condiciones en meses, esa es una solucion, y como siempre digo para un problema hay "n" soluciones. Case is >15, nos quiere deci q los procesos incluidos en este seccion del case se cumpliran si los numeros ingresados son mayores a 15, osea 16,17,18,19 ... "n" y dentro de ella las opciones correspondientes.

El conjunto de todo este planteamiento da como resultado este programita que basa su existencia a Select Case en VB. GRACIAS WHISHY ... bye