Imports System

Public Module Module1

​

Public Sub Main()       

        Dim Seed,Seed2, Difficulty as Integer

        Do

            Console.WriteLine("Choose a difficulty level ('1' for easy, '2' for medium, '3' for hard")

            Difficulty = Console.ReadLine()

        Loop Until Difficulty < 4 and Difficulty > 0    

            Select Case Difficulty

            Case is = 1 

                Difficulty = Difficulty * 10

            Case is = 2 

                Difficulty = Difficulty * 100

            Case is = 3 

                Difficulty = Difficulty * 1000

            End Select

        Do

            Console.WriteLine("Pick a random 3 digit number(for the seed)")

            Seed = Console.ReadLine()

        Loop Until Seed > 99 and Seed < 1000        

        Dim RandomClass As  New System.Random(Seed) 

        Dim RandomNum, Score, UserAnswer, CompAnswer,QuestionNumber As Integer

        QuestionNumber = 1 

​

        Dim RandomClass2 As  New System.Random(Seed2)   

        Dim RandomNum2 As Integer

    For i = 1 to 10

        RandomNum = RandomClass.Next(Difficulty,Difficulty * 10 )

        RandomNum2 = RandomClass2.Next(Difficulty, Difficulty * 10)

        CompAnswer = RandomNum + RandomNum2

        Console.WriteLine(QuestionNumber & ". What is " & RandomNum & " + " & RandomNum2)

        UserAnswer = Console.ReadLine()

        If UserAnswer = CompAnswer Then

            Console.WriteLine("Well Done")

            Score = Score + 1 

            QuestionNumber = QuestionNumber + 1

        Else 

            Console.WriteLine("Wrong! The answer was " & CompAnswer)

            QuestionNumber = QuestionNumber + 1 

        End If

    Next

​

Console.WriteLine("You got " & Score & " correct!")

​

    End Sub

End Module

​

'PSUEDOCODE

'

'INTEGER: Seed, Seed2, Difficulty

'

'REPEAT 

'   READ Diffculty

'UNTIL Difficulty < 4 and Difficulty > 0    

'

'CASE OF Difficulty

'   1:

'       Difficulty = Difficulty * 10

'   2:

'       Difficulty = Difficulty * 100

'   3: 

'       Difficulty = Difficulty * 1000

'ENDCASE

'

'REPEAT 

'   READ Seed

'UNITL Seed > 99 and Seed < 1000

'

'(UNFINISHED) 

'

'

'

'

'

'

'

'

'

'

'

'