Программа тестирования знаний по столицам разных стран - VB

Формулировка задачи:

В общем над вот это реализовать: Программа задает вопрос – название страны и ожидает ответа – название столицы. Пользователь вводит название. Программа задает следующий вопрос и.т.д. Тестирование продолжается до первого неверного ответа. Страны выбираются случайным образом из справочника. Задача – получить как можно больше правильных ответов. Вкратце: txt-шник, в нем страны и столицы(столицы может в дуром, фиг знает) надо чтоб введенная столица совпадала со страной

Решение задачи: «Программа тестирования знаний по столицам разных стран»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Option Compare Text
Dim rAns As Integer
Dim a() As String
 
Private Sub Form_Activate()
  Dim s As String
  Dim ff As Integer
  Dim Ans As String, nQ As Integer
  ff = FreeFile
  Open App.Path & "\CC.txt" For Input As #ff
    s = Input$(LOF(ff), ff)
  Close #ff
  a = Split(s, vbNewLine)
  Randomize
  Do
    nQ = Int(Rnd * (UBound(a) + 1))
    Ans = InputBox("Страна - " & Split(a(nQ), vbTab)(0) & vbCrLf & "Введите столицу.", "Вопрос")
    If Ans = Split(a(nQ), vbTab)(1) Then
          'MsgBox "Правильно"
          rAns = rAns + 1
    Else
          MsgBox "Неправильно!" & vbCrLf & "Всего правильных ответов - " & rAns
          Exit Do
    End If
  Loop
  Unload Me
End Sub