Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Choose an option: 1- Simple Calculator, 2- Day Of the Week, 3- Exit")

        Console.WriteLine("Enter Option (1,2 or 3)")

        Dim Choice As String = Console.ReadLine()

        Select Case Choice

        Case = 1

            Console.Clear()

            Simple_Calc()

        Case = 2

            Console.Clear()

            Day_Of_Week()

        Case = 3

            Console.Clear()

            Console.Writeline("End")

        Case Else

            Console.Clear()

            Main()

        End Select

    End Sub

Sub Simple_Calc()

            Console.WriteLine("Enter First Number")

        Dim Num1 As Integer = Console.ReadLine()

        Console.WriteLine("Enter Second Number")

        Dim Num2 As Integer = Console.ReadLine()

        Console.WriteLine("Enter Operator (+-*/Mod\)")

        Dim Op As String = Console.Readline()

        Dim Answer As Integer

        If Op = "+" Then

            Answer = Num1 + Num2

        End If

        If Op = "-" Then

            Answer = Num1 - Num2

        End If

        If Op = "*" Then

            Answer = Num1 * Num2

        End If

        If Op = "/" Then

            Answer = Num1 / Num2

        End If

        If Op = "Mod" Then

            Answer = Num1 Mod Num2

        End If

        If Op = "\" Then

            Answer = Num1 \ Num2

        End If

        Console.WriteLine (Num1 & " " & Op & " " & Num2 & " = " & Answer)

        Console.Readline()

        Console.Clear()

        Main()

    End Sub

Sub Day_Of_Week

            Dim DayToday = DateTime.Now.dayOfWeek

        Console.WriteLine("Enter your name")

        Dim MyName as String = Console.ReadLine()

        If DayToday = dayOfWeek.Saturday Or dayOfWeek.Sunday Then

            Console.WriteLine("Hello " & MyName & " Yayyyyy it's the weekend!")

        Else If DayToday = dayOfWeek.Thursday Or dayOfWeek.Friday Then

            Console.WriteLine("Hello " & MyName & " Only a few days to go!")

​

        Else Console.WriteLine("Hello " & MyName & ", Lucky you, You have school.")

        End If

        Console.Readline()

        Console.Clear()

        Main()

    End Sub

    End Module