Imports System

Public Module Module1

    Public Sub Main()

        'Declare variables including arrays

        Dim WholeGameName(10), Publisher(10), UserResponse as String

        Dim Count as Integer

        Count = 0 

        'Populate both arrays

        WholeGameName(1) = "Call of Duty"

        WholeGameName(2) = "Borderlands"

        WholeGameName(3) = "Star Wars Battlefront 2 (2017)"

        WholeGameName(4) = "Battlefield"

        WholeGameName(5) = "Civilisation 6"

        WholeGameName(6) = "Minecraft"

        WholeGameName(7) = "Fortnite"

        WholeGameName(8) = "World of Warcraft"

        WholeGameName(9) = "Rainbow Six Siege"

        WholeGameName(10) = "TF2"

        Publisher(1) = "Activision"

        Publisher(2) = "2K Games"

        Publisher(3) = "EA"

        Publisher(4) = "EA"

        Publisher(5) = "2K Games"

        Publisher(6) = "Mojang"

        Publisher(7) = "Epic Games"

        Publisher(8) = "Blizzard"

        Publisher(9) = "Ubisoft"

        Publisher(10) = "Valve"

        For i = 1 to 10

        Console.WriteLine(i & ". Which company published " & WholeGameName(i) & "?")

        UserResponse = Console.ReadLine()

        If UserResponse = Publisher(i) Then

            Count = Count + 1

            Console.WriteLine("Good job.You have " & Count & " points")

        Else 

            Console.WriteLine("The correct answer is " & Publisher(i))

        End If

        Next

    End Sub

End Module