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
Private Dim RandomGenerator As Random
Private Dim Question As String
Private Dim Answer As Integer
Private Dim Score As Integer
Private 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
Private 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