Imports System

Public Module Module1

    Public Sub Main()

        Dim RandomNum1, RandomNum2, Count, UserAnswer, RightAnswer, Level, StartRange, EndRange, Seed As Integer

​

        Console.WriteLine("Admin - Please enter random number seed")

        Seed = Console.ReadLine()

        Dim RandomClass As New Random(Seed)

        Console.WriteLine("LEVEL OF DIFFICULTY")

        Console.WriteLine()

        Console.WriteLine("1. Easy")        

        Console.WriteLine("2. Medium")  

        Console.WriteLine("3. Difficult")

        Console.WriteLine()

        Do

            Console.WriteLine("Please enter level (1-3)")

            Level = Console.ReadLine()

        Loop Until Level >= 1 AND Level <= 3

        Count = 0       

                             for i = 1 to 10

    Select Case Level       

                Case Is = 1         

                    StartRange = 0

                    EndRange = 9

                Case Is = 2         

                    StartRange = 10

                    EndRange = 99

                Case Is = 3

                    StartRange = 100

                    EndRange = 999

            End Select

            RandomNum1 = RandomClass.Next(StartRange,EndRange + 1)               

            RandomNum2 = RandomClass.Next(StartRange,EndRange + 1)  

            RightAnswer = RandomNum1 + RandomNum2

​

Console.WriteLine(i & ". What is " & RandomNum1 & " + " & RandomNum2 & "?")

            UserAnswer = Console.ReadLine()

​

        If UserAnswer = RightAnswer Then

            Console.WriteLine("Well Done!")

                Count = Count + 1

            Else

                Console.WriteLine("Wrong! The right answer is " & RightAnswer)

            End If  

        next 

​

        Console.WriteLine("You scored " & Count & " out of 10")

        Select case Count

            Case Is >= 8

                Console.WriteLine("Excellent!")

            Case Is >= 6

                Console.WriteLine("Very good!")

            Case Is >= 4

                Console.WriteLine("Not bad!")

            Case Else

                Console.WriteLine("Try again!")

        End Select

​

​

    End Sub

End Module