Imports System

Public Module Module1

    Public Sub Main()

        dim seed, difficulty, answer as integer

        console.Writeline("Enter seed")

        seed = console.ReadLine()

        Dim RandomClass As New System.Random(seed)

        Dim RandNum1, RandNum2 As Integer

        console.Writeline("1 for easy   2 for medium     3 for difficult")

        difficulty = console.ReadLine()

        select case difficulty

            case = 1

                RandNum1 = RandomClass.Next(0, 9)

                RandNum2 = RandomClass.Next(0, 9)

            case = 2

                RandNum1 = RandomClass.Next(10, 99)

                RandNum2 = RandomClass.Next(10, 99)

            case = 3

                RandNum1 = RandomClass.Next(100, 999)

                RandNum2 = RandomClass.Next(100, 999)

            case < 3, > 1

                console.Write("404    Level of Difficulty does not exist")

        end select

​

        Console.WriteLine(RandNum1 & "+" & RandNum2 & "=?")

        answer = console.ReadLine()

        if answer = RandNum1 + RandNum2 then

            console.writeline("Well done")

        else

            console.WriteLine("Wrong answer, the answer is " & RandNum1 + RandNum2)

        end if

    End Sub

End Module