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?")
Answer(1) = ("Washington DC")
Answer(10) = ("Wellington")
Dim random as New Random()
Question(i)= Random.Next(1,11)
Console.WriteLine(Question(i))
YAnswer = Console.ReadLine()
If YAnswer = Answer(i) Then
Console.WriteLIne("You scored " & score & " out of 10")