Работа с компанентами ActiveX

Так же как и OLE, ActiveX базируется на технологии COM (и ее расширении Distributed COM). Таким образом, ActiveX представляет собой ни что иное, как программные библиотеки, полностью совместимые по вызовам (API) с OLE

Задача 2

Dim s1 As New Collection

Dim s2 As New Collection

Dim s3 As New Collection

Private Function mimus(p1 As Collection, p2 As Collection) As Collection

Set mimus = New Collection

Dim c As Integer

c = p1.Count

If p2.Count < c Then c = p2.Count

For i = 1 To c

mimus.Add (p1.Item(i) - p2.Item(i))

Next i

For i = c + 1 To p1.Count

mimus.Add (p1.Item(i))

Next i

For i = c + 1 To p2.Count

mimus.Add (0 - p2.Item(i))

Next i

End Function

Private Sub Command1_Click()

Set s3 = mimus(s1, s2)

For i = 1 To s3.Count

If s3.Item(i) <> 0 Then 'звено не включается в список

Caption = Caption & " + " & s3.Item(i) & "*x^" & (i - 1)

End If

Next i

End Sub