исправить код Visual Basic. Задан массив. Определить, входит ли в него последовательность подряд идущих значений элементов 1,2,3.

[Настен@]

Задан массив. Определить, входит ли в него последовательность подряд идущих значений элементов 1,2,3. Если да, то с какой позиции?

Вот код, но сказали,что он не правильный....

Private Sub Form_Load()
    Dim A() As Long, P() As Long
    Dim N As Long, Z As Long
    ReDim A(99)                     ' Массив
    ReDim P(2)                      ' Последовательность
    For N = 0 To 99: A(N) = Rnd * 10: Next
    'A(51) = 1: A(52) = 2: A(53) = 3 ' Последовательность 1,2,3
    P(0) = 1: P(1) = 2: P(2) = 3    ' Последовательность 1,2,3
    N = 0: Z = 0
    Do While N <= UBound(A)
        If A(N) = P(Z) Then
            Z = Z + 1
            If Z > UBound(P) Then
                MsgBox "Входит начиная с позиции " & N - UBound(P)
                Exit Sub
            End If
        Else
            If Z Then
                N = N - Z + 1
                Z = 0
            End If
        End If
        N = N + 1
    Loop
    MsgBox "Не входит"
End Sub

И так тоже не правильно...

Private Sub Form_Load()
 Dim A(99) As Long, P(2) As Long
    Dim N As Long, Z As Long
    For N = 0 To 99: A(N) = Rnd * 10: Next
    P(0) = 1: P(1) = 2: P(2) = 3
    N = 0: Z = 0
    Do While N <= UBound(A)
        If A(N) = P(Z) Then Z = Z + 1
            If Z > UBound(P) Then
                MsgBox "Входит начиная с позиции " & N - UBound(P)
                Exit Sub
            End If
        Else
            If Z Then
                N = N - Z + 1
                Z = 0
            End If
        End If
        N = N + 1
    Loop
    MsgBox "Не входит"
End Sub

[doober]

Так работает

Private Sub Form_Load()
    Dim A(99) As Long, P(2) As Long
    Dim N As Long
    For N = 0 To 99: A(N) = Rnd * 10: Next
    P(0) = 1: P(1) = 2: P(2) = 3
    N = 0: Z = 0
    For N = 0 To UBound(A) - 2
        If A(N) = P(0) And A(N + 1) = P(1) And A(N + 2) = P(2) Then
            MsgBox "Входит начиная с позиции " & N
            Exit Sub
        End If
    Next
    MsgBox "Не входит"
End Sub

[Настен@]

Сообщение от doober

Так работает

Private Sub Form_Load()
    Dim A(99) As Long, P(2) As Long
    Dim N As Long
    For N = 0 To 99: A(N) = Rnd * 10: Next
    P(0) = 1: P(1) = 2: P(2) = 3
    N = 0: Z = 0
    For N = 0 To UBound(A) - 2
        If A(N) = P(0) And A(N + 1) = P(1) And A(N + 2) = P(2) Then
            MsgBox "Входит начиная с позиции " & N
            Exit Sub
        End If
    Next
    MsgBox "Не входит"
End Sub

к сожалению,нет

[doober]

что значит нет?
Аргументируйте.
Проверяется подряд 3 члена массива

[Настен@]

А можно увидеть как выглядит ваша программа и код к ней? Может я что-то делаю не правильно...

[doober]

Можно
Для наглядности вывел на лист

[Настен@]

Сообщение от doober

Можно
Для наглядности вывел на лист

у меня все также...но такую работу преподаватель не принял

[Настен@]

а есть варианты другого решения....как-нибудь по-другому???