Imports System

Public Module Module1

    'declaring the variables that I need

    Dim name As String

    Dim answerMusic As String

    'declare any new variable that you might need

    Public Sub Main()

        'asking the user for their name

        Console.WriteLine("Hi, my name is Siri. What is your name?")

        'placing the user input into the variable name

        name = Console.ReadLine()

        'greeting the user also using their name

        Console.WriteLine("Hello " & name & "!")

        'asking a question

        Console.WriteLine("Would you like me to play some music? y/n ")

        'getting the answer (user input)

        answerMusic = Console.ReadLine()

        'SELECTION: depending on the answer, executing different instructions

        If answerMusic = "y" Then

            Console.WriteLine("I am playing Ryhanna...")

        Else

            Console.WriteLine("OK. No music then...")

        End If

        'EXERCISE 1

        '----------

        'ask the user if they would like to make a phone call

        Console.WriteLine("Do you want to make a phone call? y/n")

        'get the answer from the user

        answerMusic = Console.ReadLine()

        'SELECTION: if the user says yes, then tell the user that the phone is ready

        '           otherwise tell the user that you are there if the user needs help

            If answerMusic = "y" Then

            Console.WriteLine("The phone is ready.")

        Else

            Console.WriteLine("Im here if you need help")

        End If

        'EXERCISE 2

        '----------

        'ask the user if they are in a good mood

        Console.WriteLine("Are you in a good moog? y/n")

        'get the answer from the user

        answerMusic = Console.ReadLine()

        'SELECTION: if the user says yes, then tell the user that you are happy too

        '           otherwise tell the user that you are always there to listen

        If answerMusic = "y" Then

            Console.WriteLine("Im happy too")

        Else

            Console.WriteLine("Im always there to listen")

        End If

​

        'Well done so far! Now click on share, take the link and submit it in the assignment on Google Classroom.

        'EXTENSION FOR EXPERTS!

        '----------------------     

​

        'ask the user if they would like to watch a YouTube video 

        'get the answer from the user

        'SELECTION: if the user says yes, then ask the user what video they would like to watch

​

​

        '                                  get the answer from the user

        '                                  tell the user that you are now displaying the video: (what the user said)

​

        '           otherwise tell the user "OK, Goodbye!"

        'Well done! Now click on share, take the link and submit it in the assignment on Google Classroom

    End Sub

End Module