Порядок - VB

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

Приведите пример кода на тему "Порядок" . Игрок должен нажимать на цифры в номерном порядке (от 1 до 10).В случае неправильного нажатия на цифру (например 1 - 2 - 3 - 7) высвечивается сообщение с предупреждением о неправильном нажатии. Также цифры обязательно должны появляться по форме в рандомном порядке (например можно раскидать много label по форме и чтобы цифры появлялись в них случайным образом - этого будет достаточно).Цифры не должны повторяться.

Решение задачи: «Порядок»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim a, n As Integer, i As Integer
 
Private Sub Form_Load()
    a = Array(4, 5, 1, 8, 9, 0, 0, 1, 3, 1, 7, 9, 3, 1)
    n = UBound(a)
End Sub
 
Private Sub С_Click(Index As Integer)
    If a(i) = Index Then
         i = i + 1
    Else
       MsgBox "Неправильно, начни сначала."
       i = 0
       Exit Sub
    End If
    If i > n Then MsgBox "Победа!": End
End Sub