Imports System

Public Module Module1

    'declaring the variables that I need

    Dim answer As String

    Dim name As String

    Dim howMany As Integer

    '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()

​

        'number of times

        howMany = 10

        'greeting the user also using their name --> repeating this howMany times (3)

        For index As Integer = 1 To howMany 

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

        Next 

        'EXERCISE 1

        '----------

    'ask the user what is their favourite colour

    Console.WriteLine("Whats your favourite colour?")

    'get the answer from the user

    name = Console.ReadLine("Blue")

    'REPETITION: write 10 times the user's favourite colour (YOU MUST USE THE "For" loop) 

    howMany = 10

        For index As Integer = 1 To howMany 

    Console.WriteLine("Blue!")

        Next    

        'EXERCISE 2

        '----------

​

    'ask the user what did they do to be given a warning from their teacher

Console.WriteLine("What did you do to be given a warning from your teacher?")

        'get the answer from the user

name = Console.ReadLine("Because i was talking.")

    'REPETITION: write 100 times "I MUST NOT " and then (what the user said they did)  (YOU MUST USE THE "For" loop) 

        howMany = 100

        For index As Integer = 1 To howMany 

Console.WriteLine("I must not talk in class.")

        Next    

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

    Console.WriteLine("")   

    'EXTENSION FOR EXPERTS!   

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

    Console.WriteLine("Extension for experts!")

    Console.WriteLine("")   

​

    ' Output the lyrics of the children’s song ‘Green Bottles on the Wall’ to the screen. (https://www.youtube.com/watch?v=Ak7kedzR8bg)

​

    'The main verses of the song follow this pattern:   

    '"X green bottles sitting on the wall, X green bottles sitting on the wall, And if one green bottle should accidentally fall," 

    '"There'll be (X-1) green bottles sitting on the wall…’"

​

    'When there are no more bottles left, the final verse is simply: ‘No green bottles sitting on the wall’.

​

    'The program should then terminate. 

​

    'Start with 10 bottles on the wall.

    'Continue the instructions below

    Dim bottles As Integer = 10

    Console.WriteLine(bottles & " green bottles sitting on the wall, " & bottles & " green bottles sitting on the wall,")

    'While loop: testing if the variable bottles contains a value greater than zero

    While bottles > 0 

        Console.WriteLine("what should you write here? [ " & bottles & " ] ")

        'removing 1 from the value contained in the variable bottle

        bottles = bottles - 1

    End While 

    'the value of the variable was not greater than zero, so the program executes the next instruction after the loop

    'how should the song end? (https://www.youtube.com/watch?v=Ak7kedzR8bg)

    Console.WriteLine("End") 

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

    End Sub

End Module