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"
End Sub
End Module