Imports System

Public Module Module1

    Public Sub Main()

        Dim Day1, Day2, Day3, Day4, Day5 as integer

Dim Total_Time as integer

Dim Average_Time as integer

​

Console.WriteLine("Enter the amount of time you've played in minutes for each day")

Console.WriteLine("")

​

Console.WriteLine("Day 1: ")

Day1 = Console.readline()

​

Console.WriteLine("Day 2: ")

Day2 = console.ReadLine()

​

Console.WriteLine("Day 3: ")

Day3 = Console.ReadLine()

​

Console.WriteLine("Day 4: ")

Day4 = Console.ReadLine()

​

Console.WriteLine("Day 5: ")

Day5 = Console.ReadLine()

​

Total_Time = Day1 + Day2 + Day3 + Day4 + Day5

Average_Time = Total_Time / 5

​

Console.writeline("- You have played for " & Total_Time & " minutes in total")

Console.writeline("- " & Average_Time & " minutes time played per day on average")

        Console.WriteLine("The total time played is: " & Day1)

    End Sub

End Module