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()
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