Imports System

Public Module Module1

    Public Sub Main()

        dim doo as integer

        dim i as integer

        dim name as string

        dim guess as string

        Console.WriteLine("how many times do u want to see you name?")

        doo = console.ReadLine()

        Console.WriteLine("what is your name?")

        name = console.ReadLine()

        for i = 1 to doo

        Console.WriteLine(name)

    next

    Console.WriteLine("I have a number that is between 1 and 11. you have 10 attempts, what is my number?")

    for n = 1 to 10

    guess = console.ReadLine()

    if guess = 5 then

        console.WriteLine("hahahahahahahahah ur smart")

        exit for 

    else 

        Console.WriteLine("try again")

    end if 

next

Console.WriteLine("FAILED")

    End Sub

End Module