Imports System
 
Module Module1
	Const QUESTION_TYPE_ADDITION As Integer = 0
	Const QUESTION_TYPE_SUBTRACTION As Integer = 1
	Const QUESTION_TYPE_MULTIPLICATION As Integer = 2
	Const QUESTION_TYPE_DIVISION As Integer = 3
 
	Public Class Test
		Public Shared RandomGenerator As Random
		Public Shared Question As String
		Public Shared Answer As Integer
		Public Shared Score As Integer
 
		Public Shared Sub GenerateQuestion()
			' Get the question type
			Dim QuestionType As Integer = RandomGenerator.Next(0, 3)
			Dim FirstNumber As Integer = RandomGenerator.Next(1, 100)
			Dim SecondNumber As Integer = RandomGenerator.Next(1, 100)
 
			Select Case QuestionType
				Case QUESTION_TYPE_ADDITION
					Question = FirstNumber & " + " & SecondNumber & " = ?"
					Answer = FirstNumber + SecondNumber
 
				Case QUESTION_TYPE_SUBTRACTION
 
				Case QUESTION_TYPE_MULTIPLICATION
 
				Case QUESTION_TYPE_DIVISION
 
				Case Else
					Console.WriteLine("Something went wrong. ;-;")
			End Select
		End Sub
 
		Public Shared Sub AskQuestion()
			Console.Clear()
			Console.WriteLine(Question)
 
			Dim Entry As Integer = Console.Read()
			If Entry = Answer Then
				Console.WriteLine("Correct!")
				Score += 1
			Else
				Score -= 1
			End If
		End Sub
 
		Public Shared Sub Main()
			Dim index as Integer = 1
 
			While index <> 10
				GenerateQuestion()
				AskQuestion()
 
				index += 1
			End While
 
			Console.WriteLine("Your score is " & Score)
		End Sub
	End Class
End Module

SW1wb3J0cyBTeXN0ZW0KCk1vZHVsZSBNb2R1bGUxCglDb25zdCBRVUVTVElPTl9UWVBFX0FERElUSU9OIEFzIEludGVnZXIgPSAwCglDb25zdCBRVUVTVElPTl9UWVBFX1NVQlRSQUNUSU9OIEFzIEludGVnZXIgPSAxCglDb25zdCBRVUVTVElPTl9UWVBFX01VTFRJUExJQ0FUSU9OIEFzIEludGVnZXIgPSAyCglDb25zdCBRVUVTVElPTl9UWVBFX0RJVklTSU9OIEFzIEludGVnZXIgPSAzCgoJUHVibGljIENsYXNzIFRlc3QKCQlQdWJsaWMgU2hhcmVkIFJhbmRvbUdlbmVyYXRvciBBcyBSYW5kb20KCQlQdWJsaWMgU2hhcmVkIFF1ZXN0aW9uIEFzIFN0cmluZwoJCVB1YmxpYyBTaGFyZWQgQW5zd2VyIEFzIEludGVnZXIKCQlQdWJsaWMgU2hhcmVkIFNjb3JlIEFzIEludGVnZXIKCQoJCVB1YmxpYyBTaGFyZWQgU3ViIEdlbmVyYXRlUXVlc3Rpb24oKQoJCQknIEdldCB0aGUgcXVlc3Rpb24gdHlwZQoJCQlEaW0gUXVlc3Rpb25UeXBlIEFzIEludGVnZXIgPSBSYW5kb21HZW5lcmF0b3IuTmV4dCgwLCAzKQoJCQlEaW0gRmlyc3ROdW1iZXIgQXMgSW50ZWdlciA9IFJhbmRvbUdlbmVyYXRvci5OZXh0KDEsIDEwMCkKCQkJRGltIFNlY29uZE51bWJlciBBcyBJbnRlZ2VyID0gUmFuZG9tR2VuZXJhdG9yLk5leHQoMSwgMTAwKQoJCgkJCVNlbGVjdCBDYXNlIFF1ZXN0aW9uVHlwZQoJCQkJQ2FzZSBRVUVTVElPTl9UWVBFX0FERElUSU9OCgkJCQkJUXVlc3Rpb24gPSBGaXJzdE51bWJlciAmICIgKyAiICYgU2Vjb25kTnVtYmVyICYgIiA9ID8iCgkJCQkJQW5zd2VyID0gRmlyc3ROdW1iZXIgKyBTZWNvbmROdW1iZXIKCQoJCQkJQ2FzZSBRVUVTVElPTl9UWVBFX1NVQlRSQUNUSU9OCgkJCQoJCQkJQ2FzZSBRVUVTVElPTl9UWVBFX01VTFRJUExJQ0FUSU9OCgkJCQkKCQkJCUNhc2UgUVVFU1RJT05fVFlQRV9ESVZJU0lPTgoJCQkJCgkJCQlDYXNlIEVsc2UKCQkJCQlDb25zb2xlLldyaXRlTGluZSgiU29tZXRoaW5nIHdlbnQgd3JvbmcuIDstOyIpCgkJCUVuZCBTZWxlY3QKCQlFbmQgU3ViCgkJCgkJUHVibGljIFNoYXJlZCBTdWIgQXNrUXVlc3Rpb24oKQoJCQlDb25zb2xlLkNsZWFyKCkKCQkJQ29uc29sZS5Xcml0ZUxpbmUoUXVlc3Rpb24pCgkKCQkJRGltIEVudHJ5IEFzIEludGVnZXIgPSBDb25zb2xlLlJlYWQoKQoJCQlJZiBFbnRyeSA9IEFuc3dlciBUaGVuCgkJCQlDb25zb2xlLldyaXRlTGluZSgiQ29ycmVjdCEiKQoJCQkJU2NvcmUgKz0gMQoJCQlFbHNlCgkJCQlTY29yZSAtPSAxCgkJCUVuZCBJZgoJCUVuZCBTdWIKCQoJCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQoJCQlEaW0gaW5kZXggYXMgSW50ZWdlciA9IDEKCQkJCgkJCVdoaWxlIGluZGV4IDw+IDEwCgkJCQlHZW5lcmF0ZVF1ZXN0aW9uKCkKCQkJCUFza1F1ZXN0aW9uKCkKCQkJCQoJCQkJaW5kZXggKz0gMQoJCQlFbmQgV2hpbGUKCQoJCQlDb25zb2xlLldyaXRlTGluZSgiWW91ciBzY29yZSBpcyAiICYgU2NvcmUpCgkJRW5kIFN1YgoJRW5kIENsYXNzCkVuZCBNb2R1bGU=