Imports System

Public Module Module1

    Public Sub Main()

        dim num1 as integer

        dim choice as integer

        dim attempt as integer

        attempt = 10

        num1 = 63

        console.writeline("You have 10 attempts to guess the number. ")

        Do until choice = num1 or attempt = 0

        console.writeline("Pick a number from 1-100: ")

        choice = console.readline()

        if choice > num1 then

            console.writeline("The number is too high. Try again:")

            attempt = attempt - 1

            console.writeline("You have " & attempt & " attempts left: ")

        end if 

        if choice < num1 then

            console.writeline("The number is too low. Try again:")

            attempt = attempt - 1

            console.writeline("You have " & attempt & " attempts left.")

        end if

        Loop

        if choice = num1 then

            console.writeline("Congratulations! The number was " & num1)

        end if

        if attempt = 0 then

            console.writeline("Sorry! You ran out of attempts. Try again!")

        end if

​

    End Sub

End Module