preguntas de programación vb

Función pública SLJS(sr As Double) 'Función personalizada

Seleccione caso sr 'Valor de ingresos

El caso es lt;= 1000

SLJS = 0 'La función devuelve el valor de la tasa impositiva

Caso 1001 a 1999

SLJS = 0.05 'La función devuelve el valor de la tasa impositiva

Caso 2000 To 4999

SLJS = 0.1 'La función devuelve el valor de la tasa impositiva

Caso 5000 To 9999

SLJS = 0.25 'La función devuelve el valor de la tasa impositiva

Caso 10000 a 19999

SLJS = 0.4 'La función devuelve el valor de la tasa impositiva

Caso es gt = 20000

SLJS = 0.45 'La función devuelve el valor de la tasa impositiva

Finalizar selección

Finalizar función