Imports System

Public Module Module1

    Public Sub Main()

        dim Guess as double

        const secretnumber = 25

        dim guessno as double

    Do

     console.writeline("Enter your guess")

            guess = console.readline()

            guessno = guess +1

     if guess = secretnumber 

          console.writeline("welldone you have guessed the secret number")

        else

        if guess <> secretnumber And guessno = 10

             console.writeline("you stil have not guessed the secret number")

            else if guess > secretnumber 

                    console.writeline("secretnumber is smaller than the guess")

                    else 

                        console.writeline("secretnumebr is greater than guess")

            End If

        End if      

    Loop Until guess = secretnumber OR guessno = 10 

    End Sub

End Module