ClaseIntervalo

' Gambas class file

Public Struct dato
    texto As String
    minimo As Integer
    maximo As Integer
End Struct

Private listadatos As New Dato[]

Public Sub add(tipovaloracion As String, valorminimo As Integer, valormaximo As Integer)

  Dim datotemp As New Dato
  datotemp.texto = tipovaloracion
  datotemp.minimo = valorminimo
  datotemp.maximo = valormaximo

  listadatos.Add(datotemp)

End

Public Function responder(numero As Integer) As String

  Dim datotmp As Dato

  For Each datotmp In listadatos
    If datotmp.minimo <= numero And datotmp.maximo > numero Then Return datotmp.texto
    Next

  Return "Error: el valor no se encuentra entre los intervalos reconocidos"

End