Ernesto Rivas
09 de Septiembre del 2002

Necesito un programa que realice las operaciones entre conjuntos (union, interseccion, potencia, complemento) para los siguientes tipos de datos: entero, real, caracter, caracter digito.

Eduardo
09 de Septiembre del 2002

Usar el objeto Collection, en este objeto se pueden introducir variant(cualquier tipo de datos), las operaciones de union,... te las puedes de currar, ejem. union

Function moUnion(ByVal poCollec1 As Collection, ByVal poCollec2 As Collection) As Collection
Dim loElemento As Variant
Set moUnion = New Collection
For Each loElemento In poCollec1
moUnion.Add loElemento
Next
For Each loElemento In poCollec2
moUnion.Add loElemento
Next
End Function

Ejemplo de uso
Private Sub Form_Load()
Dim loElemento As Variant
Dim loCollec1 As New Collection
Dim loCollec2 As New Collection
Dim loCollecUnion As Collection
loCollec1.Add 1
loCollec1.Add 2
loCollec1.Add 3
loCollec1.Add 4
loCollec2.Add "C1"
loCollec2.Add "C2"
loCollec2.Add "C3"
Set loCollecUnion = moUnion(loCollec1, loCollec2)
For Each loElemento In loCollecUnion
List1.AddItem loElemento
Next
End Sub