Public Class SalarioGratificacao

Shared Sub Main()


   Dim entrada As String
   Dim salario As Double


   Console.Write(" >>> Calculo de gratificação Salarial <<< ")
   Console.WriteLine("")
   Console.WriteLine("Informe o seu salário atual em R$: ")

   entrada = Console.ReadLine()
   salario = CDbl(entrada)
   Console.Write(" ")
   Console.Write(" O seu salário de R$: " & salario & " após a gratificação será R$: ")
   Console.WriteLine(SalarioGratificacao(salario))
   Console.Write("Digite ENTER para sair")
   Console.Write(" ")
   Console.ReadLine()

End Sub


Shared Function SalarioGratificacao(ByVal n As Double) As Double

  If n < 2500 Then
      Return n + ((n * 2.4)/100)
  End If

  If n >= 2500 AND n <= 3500 Then
      Return n + ((n * 2.8)/100)
  End If

  If n > 3500 Then
      Return n + ((n * 3.2)/100)
  End If

End Function

End Class