Определить тройки одинаковых рядом стоящих элементов одномерного массива - VB

CLS
RANDOMIZE TIMER
DIM n AS LONG
DIM k AS LONG
 
n = 20
  
REDIM x(n) AS LONG
 
FOR i = 1 TO n
   x(i) = 4 * RND
   PRINT x(i);
NEXT
PRINT : PRINT
 
CALL ASD(x(), n, k)
 
SUB ASD (x() AS LONG, n AS LONG, k AS LONG)
   FOR i = 1 TO n - 2
      IF x(i) = x(i + 1) AND x(i) = x(i + 2) THEN
         PRINT "x("; i; ") ="; x(i)
      END IF
   NEXT
END SUB