Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim destination(6) as string

        dim destrandom as Random = new random

        dim destnumber as integer

        dim type(4) as string

        dim typerandom as random = new Random

        dim typenumber as integer

        dim lengthrandom as random = new random

        dim lengthnumber as integer

        dim doable as booloean = false

        destnumber = destrandom.Next(1, 7)

        typenumber = typerandom.Next(1, 5)

        lengthnumber = lengthrandom.Next(2, 15)

        type(1) = "Skiing"

        type(2) = "Beach"

        type(3) = "City"

        type(4) = "Romantic"

        destination(1) = "UK"

        destination(2) = "Spain"

        destination(3) = "Croatia"

        destination(4) = "France"

        destination(5) = "Italy"

        destination(6) = "Switzerland"

        do until doable = true

            if destnumber = 2 and typenumber = 1

            elseif destnumber = 1 and typenumber = 1

            elseif destnumber = 3 and typenumber = 1

            elseif destnumber = 4 and typenumber = 1

            elseif destnumber = 5 and typenumber = 1

            elseif destnumber = 6 and typenumber = 2

            end if

​

            Console.WriteLine("You should go on a " & type(typenumber) & " holiday to " & destination(destnumber) & " for " & lengthnumber & " days")

         End Sub

End Module

​