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

Sub mArray()
    Dim lCounter&, j&, i&, l&
    Dim A(1 To 10) As Long, B(1 To 20) As Long
    Dim C() As Long, D() As Long
    Dim s$, s1$
    Dim bln As Boolean
    Randomize Timer
    For i = 1 To UBound(A)
        A(i) = Rnd * 10
    Next i
    For i = 1 To UBound(B)
        B(i) = Rnd * 20
    Next i
    For i = 1 To UBound(B)
        For j = 1 To UBound(A)
            If B(i) = A(j) Then
                lCounter = lCounter + 1
                ReDim Preserve C(1 To lCounter)
                C(lCounter) = B(i)
            End If
        Next j
    Next i
    ReDim D(1 To 1)
    D(1) = C(1)
    bln = True
    For i = 2 To lCounter
        For j = 1 To UBound(D)
            If C(i) = D(j) Then bln = False: Exit For
        Next j
        If bln Then
            ReDim Preserve D(1 To UBound(D) + 1)
            D(UBound(D)) = C(i)
        End If
        bln = True
    Next i
    For i = 1 To UBound(D)
        s = s & D(i) & ", "
    Next i
    For i = 1 To UBound(A)
        s1 = s1 & A(i) & ", "
    Next i
    For i = 1 To UBound(B)
        s1 = s1 & B(i) & ", "
    Next i
    MsgBox s, , "Пересечение множеств"
    MsgBox s1, , "Объединение множеств"
End Sub

REM
REM         МНОЖЕСТВА
REM  ОБЪЕДИНЕНИЕ И ПЕРЕСЕЧЕНИЕ
REM
 
CLS
RANDOMIZE TIMER
 
DIM A(20) AS LONG
DIM B(20) AS LONG
DIM C(20) AS LONG
DIM D(20) AS LONG
DIM k AS LONG
 
FOR i = 1 TO 10
   k = 1 + 9 * RND
   A(k) = -1
NEXT
 
FOR i = 1 TO 20
   k = 1 + 19 * RND
   B(k) = -1
NEXT
 
FOR i = 1 TO 20
   C(i) = A(i) OR B(i)
NEXT
 
FOR i = 1 TO 20
   D(i) = A(i) AND B(i)
NEXT
 
'----------------------------------
PRINT "A"
 
FOR i = 1 TO 10
   IF A(i) THEN PRINT i;
NEXT
PRINT : PRINT
PRINT "B"
 
FOR i = 1 TO 20
   IF B(i) THEN PRINT i;
NEXT
PRINT : PRINT
PRINT "A U B"
 
FOR i = 1 TO 20
   IF C(i) THEN PRINT i;
NEXT
PRINT : PRINT
PRINT "A * U"
 
FOR i = 1 TO 20
   IF D(i) THEN PRINT i;
NEXT

Dim a() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
        Dim i, count As Integer
        count = 0
        For i = 0 To UBound(a) - 1
            If a(i) > a(i + 1) Then
                count = count + 1
            End If
        Next
        If count > 0 Then
            Console.WriteLine("Элементы массива идут НЕ в порядке возрастания")
        Else
            Console.WriteLine("Элементы массива идут  в порядке возрастания")
        End If
        Console.ReadLine()

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