Разработать программу, которая выводит объединение и пересечение множеств - VB

CLS
 
DIM A(100) AS LONG
DIM B(100) AS LONG
DIM C(100) AS LONG
DIM D(100) AS LONG
 
A(17) = -1: B(12) = -1
A(33) = -1: B(33) = -1
A(56) = -1: B(56) = -1
A(71) = -1: B(88) = -1
 
FOR i = 1 TO 100
   C(i) = A(i) OR B(i)
NEXT
 
FOR i = 1 TO 100
   D(i) = A(i) AND B(i)
NEXT
 
'----------------------------
PRINT "A =";
CALL AUS(A())
PRINT "B =";
CALL AUS(B())
PRINT "A U B =";
CALL AUS(C())
PRINT "A * B =";
CALL AUS(D())
 
 
PRIVATE SUB AUS (x() AS LONG)
   FOR i = 1 TO 100
      IF x(i) THEN PRINT i;
   NEXT
   PRINT : PRINT
END SUB