Imports System, Microsoft.VisualBasic

​

'Aprameya Kannan'

'Wage Program'

'11/19/2020'

​

Public Module Module1

    Public Sub Main()

        'Declare Variables'

        Dim salaryRate As Single

        Dim hoursWorked As Single

        Dim totalPay As Single

        'User Input'

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

        salaryRate = console.ReadLine()

        Console.WriteLine("Enter your hours worked")

        hoursWorked = console.ReadLine()

        'Calculations'

        If hoursWorked <= 40 Then 

            totalPay = hoursWorked * salaryRate

        Else

            totalPay = 40 * salaryrate + (hoursWorked - 40) * (salaryRate * 1.5)

        End If

        'Output'

        Console.WriteLine("Your gross pay is " & FormatCurrency(totalPay))

    End Sub

End Module