В цикле по выданному числу выводить на экран соответствующий элемент массива - VB

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

Сформировать строку из букв русского алфавита от А до П. Сформировать массив 3х5, в элементы которого необходимо передать последовательно пары букв из исходной строки. Вывести массив на экран. Задать случайное число от 1 до 15. В цикле по выпаденому числу выводить на экран соответствующий элемент массива. Цикл заканчивает работу, если случайное число 10.

Решение задачи: «В цикле по выданному числу выводить на экран соответствующий элемент массива»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
    Dim Words As String, i As Long, j As Long, n As Long
    Dim Chars() As String
    Me.AutoRedraw = True
    Randomize
    ' Генерация строки
    For i = 0 To 14
        Words = Words & Chr$(192 + Rnd * 15)
    Next
    ReDim Chars(2, 4)
    ' Запись в массив
    For i = 0 To UBound(Chars, 1): For j = 0 To UBound(Chars, 2)
        n = n + 1
        Chars(i, j) = Mid$(Words, n, 1)
    Next: Next
    ' Вывод массива на экран
    Me.Print "Массив: {"
    For i = 0 To UBound(Chars, 1): For j = 0 To UBound(Chars, 2)
        Me.Print Chars(i, j);
    Next: Me.Print: Next
    Me.Print "}"
    n = Int(Rnd * 15) + 1
    Do Until n = 10
        Me.Print "Элемент №" & n & " = " & Chars(((n - 1) \ 5), ((n - 1) Mod 5))
        n = Int(Rnd * 15) + 1
    Loop
End Sub
                        