Дополнить программу с множествами

Private Sub Form_click()
   Dim a(), b()
   Dim c(), d(), e()
   Dim i, j
   Dim k_c, k_d, k_e
   Dim s_a, s_b, s_c, s_d, s_e
   Dim flag As Boolean
   
   a = Array(1, 2, 3, 4, 5)
   b = Array(7, 6, 5, 3, 4)
   
   For i = 1 To UBound(a)
      s_a = s_a & a(i) & "; "
   Next i
   For i = 1 To UBound(b)
      s_b = s_b & b(i) & "; "
   Next i
   
   Print "Массив a: " & s_a
   Print "Массив b: " & s_b
   
   c = b
   
   For i = 1 To UBound(a)
      For j = 1 To UBound(b)
         If a(i) = b(j) Then
            k_d = k_d + 1
            ReDim Preserve d(1 To k_d)
            d(k_d) = b(j)
            '----------------------------
            flag = False
            Exit For
         Else
            flag = True
         End If
      Next j
      
      If flag Then
         k_c = k_c + 1
         ReDim Preserve c(1 To UBound(b) + k_c)
         c(UBound(b) + k_c) = a(i)
         
         k_e = k_e + 1
         ReDim Preserve e(1 To k_e)
         e(k_e) = a(i)
      End If
   Next i
   
   For i = 1 To UBound(c)
      s_c = s_c & c(i) & "; "
   Next i
   If k_d > 0 Then
      For i = 1 To UBound(d)
         s_d = s_d & d(i) & "; "
      Next i
   End If
   For i = 1 To UBound(e)
      s_e = s_e & e(i) & "; "
   Next i
   
   Print "Объединение (a + b): " & s_c
   Print "Пересечение (ab): " & s_d
   Print "Разность (a\b): " & s_e

Option Explicit
Option Base 1
Dim n As Integer, i, j, flag As Boolean
 
Private Sub Form_Click()
   Dim A(), B(), R()
   Dim A_plus_B(), AB(), A_minus_B(), B_minus_A()
   Dim R_A(), R_B(), A_minus_simm_B(), D_D()
   
   R = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) 'Универсум
   A = Array(1, 2, 3, 4, 5)
   B = Array(7, 6, 5, 3, 4)
   
   Объединение A, B, A_plus_B
   Пересечение A, B, AB
   Разность A, B, A_minus_B
   Разность B, A, B_minus_A
   
   Разность R, A, R_A 'Дополнение A
   Разность R, B, R_B 'Дополнение B
   Разность A_plus_B, AB, A_minus_simm_B 'Симм. разность
'   Объединение A_minus_B, B_minus_A, A_minus_simm_B 'Симм. разность - альтернатива
   Декарт_произв A, B, D_D
   
   Print "Пространство R: " & s(R): Print String(50, "-")
   
   Print "Множество A: " & s(A)
   Print "Множество B: " & s(B): Print String(50, "-")
   
   Print "Объединение (A + B): " & s(A_plus_B)
   Print "Пересечение (AB): " & s(AB)
   Print "Разность (A\B): " & s(A_minus_B)
   Print "Разность (B\A): " & s(B_minus_A): Print
   
   Print "Дополнение A: " & s(R_A)
   Print "Дополнение B: " & s(R_B)
   Print "Симм. разность (A /\ B): " & s(A_minus_simm_B)
   Print "Декарт. произв (A x B): " & s(D_D)
End Sub
 
Sub Объединение(A(), B(), rez())
   n = 0
   rez = B
   For i = 1 To UBound(A)
      For j = 1 To UBound(B)
         If A(i) = B(j) Then
            flag = False
            Exit For
         Else
            flag = True
         End If
      Next j
      
      If flag Then
         n = n + 1
         ReDim Preserve rez(1 To UBound(B) + n)
         rez(UBound(B) + n) = A(i)
      End If
   Next i
End Sub
 
Sub Пересечение(A(), B(), rez())
   n = 0
   For i = 1 To UBound(A)
      For j = 1 To UBound(B)
         If A(i) = B(j) Then
            n = n + 1
            ReDim Preserve rez(1 To n)
            rez(n) = B(j)
            Exit For
         End If
      Next j
   Next i
End Sub
 
Sub Разность(A(), B(), rez())
   n = 0
   For i = 1 To UBound(A)
      For j = 1 To UBound(B)
         If A(i) = B(j) Then
            flag = False
            Exit For
         Else
            flag = True
         End If
      Next j
      
      If flag Then
         n = n + 1
         ReDim Preserve rez(1 To n)
         rez(n) = A(i)
      End If
   Next i
End Sub
 
Sub Декарт_произв(A(), B(), rez())
   n = 0
   ReDim Preserve rez(1 To UBound(A) * UBound(B))
   For i = 1 To UBound(A)
      For j = 1 To UBound(B)
         n = n + 1
         rez(n) = A(i) & "-" & B(j)
      Next j
   Next i
End Sub
 
Function s(arr_())
   On Error Resume Next
   For i = 1 To UBound(arr_)
      s = s & arr_(i) & ", "
   Next i
End Function