Imports System, Microsoft.VisualBasic

'Briged Gaona

'Wage Calculator

'11/17/21

​

Public Module Module1

    Public Sub Main()

        'Step 1) Declare variables

        Dim payrate As Single

        Dim hours As Single 

        Dim grosspay As Single 

        'Step 2) User input

        Console.WriteLine("Enter pay rate:")

        Payrate = Console.ReadLine()

        Console.WriteLine("Enter hours:")

        Hours = Console.ReadLine()

        'Step 3) Calculations

        If hours <= 40 then

            grosspay = hours * payrate 

        Else If hours >= 40 then 

                grosspay = 40 * payrate + (hours - 40) * (payrate * 1.5)

            End If 

        'Step 4) Output 

            Console.WriteLine("Your gross pay: " & formatcurrency(grosspay))

    End Sub

End Module