Imports System

Public Module Module1

    Public Sub Main()

        Dim Question(10) as String 

        Question(1) = ("What is the Capital City of America?")

        Question(2) = ("What is the Capital City of Germany?")

        Question(3) = ("What is the Capital City of Australia?")

        Question(4) = ("What is the Capital City of Russia?")

        Question(5) = ("What is the Capital City of Brazil?")

        Question(6) = ("What is the Capital City of Canada?")

        Question(7) = ("What is the Capital City of Spain?")

        Question(8) = ("What is the Capital City of France?")

        Question(9) = ("What is the Capital City of North Korea?")

        Question(10) = ("What is the Capital City of New Zealand?")

        Dim Answer(10) as String

        Answer(1) = ("Washington DC")

        Answer(2) = ("Berlin")

        Answer(3) = ("Canberra")

        Answer(4) = ("Moscow")

        Answer(5) = ("Brasilia")

        Answer(6) = ("Ottawa")

        Answer(7) = ("Madrid")

        Answer(8) = ("Paris")

        Answer(9) = ("Seoul")

        Answer(10) = ("Wellington")

        Dim YAnswer As String

        Dim Score as Integer

        Dim random as New Random()

        For i = 1 to 10

        Question(i)= Random.Next(1,11)

Next i

​

​

​

    For i = 1 to 10

        Console.WriteLine(Question(i))

        YAnswer = Console.ReadLine()

    If YAnswer = Answer(i) Then

            score = Score + 1

        End If

Next i

    Console.WriteLIne("You scored " & score & " out of 10")

    End Sub

End Module