Imports System

Public Module Module1

    Public Sub Main()

        Dim Question(10), Answer(10) as string

        Question(1) = "Russia"

        Answer(1) = "Moscow"

        Question(2) = "China"

        Answer(2) = "Beijing"

        Question(3) = "United Arab Emriates"

        Answer(3) = "Abu Dhabi"

        Question(4) = "China"

        Answer(4) = "Beijing"

        Question(5) = "England"

        Answer(5) = "London"

        Question(6) = "Luxemburg"

        Answer(6) = "Luxemburg"

        Question(7) = "Taiwan"

        Answer(7) = "Taipei"

        Question(8) = "Iran"

        Answer(8) = "Tehran"

        Question(4) = "China"

        Answer(4) = "Beijing"

        Question(5) = "England"

        Answer(5) = "London"

    End Sub

End Module