Imports System

Imports System.Console

Imports Microsoft.VisualBasic

Public Module Module1

    Dim RandNum As New Random

    Dim PlayerID As Integer = RandNum.Next(1,9)

    Dim Attempts As Integer = 3

    Dim UpperBound As Integer

    Dim LowerBound As Integer

    Dim Level As Integer

    Dim Name As String

    Dim Number As Integer

    Public Sub Main()

    If Level = 1 Then

        LowerBound = 1

        UpperBound = 9

    If Level = 2 Then

        LowerBound = 1

        UpperBound = 99

    If Level = 3 Then

        LowerBound = 1

        UpperBound = 999

    End If

    End If

    End If  

    WriteLine("Please enter your name")

    Name = ReadLine()

    WriteLine(Name & ", Today we're going to be playing a guessing game, you will have 3 attempts to guess my number.")

    Level = 1

    Attempts = 0

    While Level = 1 And Attempts < 5

        Do

        WriteLine("Please enter a number between 1 and 9.")

        Number = ReadLine()

            If Number = PlayerID Then

            WriteLine("Well done, you can advance to the next level!")

                Level = 2 And Attempts = 0

        Else

            Attempts = Attempts + 1

                WriteLine("That isn't the number I'm thinking of! You have used up " & Attempts & " Attempt(s).")

        End If

        Loop Until Level = 2 Or Attempts = 5 Or Number = PlayerID

    If Attempts = 5 Then

        WriteLine("GAME OVER.")

            WriteLine("My actual number was " & PlayerID & "!") 

    End If  

        GenRandomNumber(LowerBound, UpperBound)

    End While

End Sub 

​

Sub Level2

If Level = 2 Then

    WriteLine("You've advanced to a more advanced level! Congratulations!")

    LowerBound = 1

    UpperBound = 99

    Attempts = 0

    While Level = 2 And Attempts < 5

        Do

        WriteLine("Please enter a number between 1 and 99.")

        Number = ReadLine()

            If Number = PlayerID Then

            WriteLine("Well done, you can advance to the next level!")

                Level = 3 And Attempts = 0

        Else

            Attempts = Attempts + 1

            WriteLine("Oops! Guess again! You have used up " & Attempts & " Attempt(s).")

        End If

            Loop Until Level = 3 Or Attempts = 5 Or Number = PlayerID

    If Attempts = 5 Then

        WriteLine("GAME OVER.")

            WriteLine("My actual number was " & PlayerID & "!")

    End If

    GenRandomNumber(LowerBound, UpperBound)

End While

End If

End Sub

Sub Level3  

If Level = 3 Then       

    WriteLine("You've advanced to a more advanced level! Congratulations!")

    LowerBound = 1

    UpperBound = 999

    Attempts = 0

    While Level = 3 And Attempts < 5

        Do

        WriteLine("Please enter a number between 1 and 999.")

        Number = ReadLine()

            If Number = PlayerID Then

            WriteLine("Well done, you can advance to the next level!")

                Level = 3 And Attempts = 0

        Else

            Attempts = Attempts + 1

            WriteLine("Oops! Guess again! You have used up " & Attempts & " Attempt(s).")

        End If

            Loop Until Attempts = 5 Or Number = PlayerID

    If Attempts = 5 Then

        WriteLine("GAME OVER.")

            WriteLine("My actual number was " & PlayerID & "!")

    End If

    GenRandomNumber(LowerBound, UpperBound)

End While

End If  

End Sub

​

Function GenRandomNumber (ByVal UpperBound As Integer, ByVal LowerBound As Integer)

    Dim RandomNumber As Integer

    Dim RandNum As New Random

    RandomNumber = RandNum.Next(LowerBound, UpperBound)

    Return RandomNumber

End Function

​

Function LevelDecider(ByVal Level As Integer)

Dim UpperBound As Integer

Dim Num As Integer

Dim LowerBound As Integer

If Level = 1

    LowerBound = 1

    UpperBound = 9

Elseif Level = 2

    LowerBound = 1

    UpperBound = 99

Elseif Level = 3

    LowerBound = 1

    UpperBound = 999

End If

Return Num

End Function

​

End Module