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 Teacher
		Private Dim RandomGenerator As Random
		Private Dim Question As String
		Private Dim Answer As Integer
		Private Dim Score As Integer
 
		Public Sub GenerateQuestion()
			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 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 Function GetScore() As Integer
			Return Score
		End Function
	End Class
 
	Public Class Program
		Public Shared Sub Main
			Dim teacher As Teacher = New Teacher()
			Dim index As Integer = 1
 
			While index <> 10
				teacher.GenerateQuestion()
				teacher.AskQuestion()
 
				index += 1
			End While
 
			Console.WriteLine("Your score is " & teacher.GetScore())
		End Sub
	End Class
End Module
 

SW1wb3J0cyBTeXN0ZW0KCk1vZHVsZSBNb2R1bGUxCglDb25zdCBRVUVTVElPTl9UWVBFX0FERElUSU9OIEFzIEludGVnZXIgPSAwCglDb25zdCBRVUVTVElPTl9UWVBFX1NVQlRSQUNUSU9OIEFzIEludGVnZXIgPSAxCglDb25zdCBRVUVTVElPTl9UWVBFX01VTFRJUExJQ0FUSU9OIEFzIEludGVnZXIgPSAyCglDb25zdCBRVUVTVElPTl9UWVBFX0RJVklTSU9OIEFzIEludGVnZXIgPSAzCgoJUHVibGljIENsYXNzIFRlYWNoZXIKCQlQcml2YXRlIERpbSBSYW5kb21HZW5lcmF0b3IgQXMgUmFuZG9tCgkJUHJpdmF0ZSBEaW0gUXVlc3Rpb24gQXMgU3RyaW5nCgkJUHJpdmF0ZSBEaW0gQW5zd2VyIEFzIEludGVnZXIKCQlQcml2YXRlIERpbSBTY29yZSBBcyBJbnRlZ2VyCgkKCQlQdWJsaWMgU3ViIEdlbmVyYXRlUXVlc3Rpb24oKQoJCQlEaW0gUXVlc3Rpb25UeXBlIEFzIEludGVnZXIgPSBSYW5kb21HZW5lcmF0b3IuTmV4dCgwLCAzKQoJCQlEaW0gRmlyc3ROdW1iZXIgQXMgSW50ZWdlciA9IFJhbmRvbUdlbmVyYXRvci5OZXh0KDEsIDEwMCkKCQkJRGltIFNlY29uZE51bWJlciBBcyBJbnRlZ2VyID0gUmFuZG9tR2VuZXJhdG9yLk5leHQoMSwgMTAwKQoJCgkJCVNlbGVjdCBDYXNlIFF1ZXN0aW9uVHlwZQoJCQkJQ2FzZSBRVUVTVElPTl9UWVBFX0FERElUSU9OCgkJCQkJUXVlc3Rpb24gPSBGaXJzdE51bWJlciAmICIgKyAiICYgU2Vjb25kTnVtYmVyICYgIiA9ID8iCgkJCQkJQW5zd2VyID0gRmlyc3ROdW1iZXIgKyBTZWNvbmROdW1iZXIKCQoJCQkJQ2FzZSBRVUVTVElPTl9UWVBFX1NVQlRSQUNUSU9OCgkJCQoJCQkJQ2FzZSBRVUVTVElPTl9UWVBFX01VTFRJUExJQ0FUSU9OCgkJCQkKCQkJCUNhc2UgUVVFU1RJT05fVFlQRV9ESVZJU0lPTgoJCQkJCgkJCQlDYXNlIEVsc2UKCQkJCQlDb25zb2xlLldyaXRlTGluZSgiU29tZXRoaW5nIHdlbnQgd3JvbmcuIDstOyIpCgkJCUVuZCBTZWxlY3QKCQlFbmQgU3ViCgkJCgkJUHVibGljIFN1YiBBc2tRdWVzdGlvbigpCgkJCUNvbnNvbGUuQ2xlYXIoKQoJCQlDb25zb2xlLldyaXRlTGluZShRdWVzdGlvbikKCQoJCQlEaW0gRW50cnkgQXMgSW50ZWdlciA9IENvbnNvbGUuUmVhZCgpCgkJCUlmIEVudHJ5ID0gQW5zd2VyIFRoZW4KCQkJCUNvbnNvbGUuV3JpdGVMaW5lKCJDb3JyZWN0ISIpCgkJCQlTY29yZSArPSAxCgkJCUVsc2UKCQkJCVNjb3JlIC09IDEKCQkJRW5kIElmCgkJRW5kIFN1YgoJCQoJCVB1YmxpYyBGdW5jdGlvbiBHZXRTY29yZSgpIEFzIEludGVnZXIKCQkJUmV0dXJuIFNjb3JlCgkJRW5kIEZ1bmN0aW9uCglFbmQgQ2xhc3MKCglQdWJsaWMgQ2xhc3MgUHJvZ3JhbQoJCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4KCQkJRGltIHRlYWNoZXIgQXMgVGVhY2hlciA9IE5ldyBUZWFjaGVyKCkKCQkJRGltIGluZGV4IEFzIEludGVnZXIgPSAxCgkJCQoJCQlXaGlsZSBpbmRleCA8PiAxMAoJCQkJdGVhY2hlci5HZW5lcmF0ZVF1ZXN0aW9uKCkKCQkJCXRlYWNoZXIuQXNrUXVlc3Rpb24oKQoJCQkJCgkJCQlpbmRleCArPSAxCgkJCUVuZCBXaGlsZQoJCgkJCUNvbnNvbGUuV3JpdGVMaW5lKCJZb3VyIHNjb3JlIGlzICIgJiB0ZWFjaGVyLkdldFNjb3JlKCkpCgkJRW5kIFN1YgoJRW5kIENsYXNzCkVuZCBNb2R1bGUK