Imports System , Microsoft.VisualBasic

'Dayro Culcay

'11/18/21

'wage calculator

Public Module Module1

    Public Sub Main()

        Dim hoursWorked As Single

        Dim payRate As Single           'declaring variables

        Dim result As Single

        Console.WriteLine("Enter hourly pay rate: ")

        payRate = Console.ReadLine()                    'user input

        Console.WriteLine("Enter hours worked: ")

        hoursWorked = Console.ReadLine()

        If hoursWorked <= 40 Then

            result = hoursWorked * payRate                      'calculations

        ElseIf hoursWorked > 40 Then

            result = (hoursWorked - 40) * (payRate * 1.5) + (40 * payRate)

        End If

        Console.WriteLine("Your gross pay is: " & FormatCurrency(result)) 'output

    End Sub

End Module