Imports System

​

Public Module Module1

​

    Public Sub Main()

        'the user is asked how long they slept, stored as floating point(double)

        Console.WriteLine("How many hours did you sleep last night? ")

        Dim hours_slept as double = Console.Readline()

        'the if/else condition runs based on if hours_slept is less than 8 hours

        If hours_slept < 8

            'if less than 8 hours, they are told how much more sleep they need to 1d.p. 

            Console.Writeline("You need about " & Math.Round(8.0 - hours_slept, 1) & " more hours sleep.")

        Else 'the case above is False, Console.Writeline() tells the user they slept well

            Console.Writeline("You slept well.")

        End If 'the binary decision if/else ends here with End If

    End Sub

End Module

​