Imports System

Public Module Module1

    Public Sub Main()

        dim number as integer

        Console.WriteLine("Welcome to the random european airline generator!")

        Console.writeline("Please enter a random number between 1 and 15")

        Console.ReadLine()

        If number = 1 then

            console.writeline("Lufthansa, the German flag carrier!")

        else if number = 2 then

                console.writeline("Ryanair, the European Ultra low cost giant!")

            else if number = 3 then 

                    console.writeline("Vueling, the Spanish low cost airline!")

                else if number = 4 then 

                        console.writeline("British airways, Britain's flag carrier!")

                    End if

  End Sub

    End Module