Самоучитель VBA


         

Проверить работу созданного класса можно,



Exit Sub
End If

'

X = Число * X Y = Число * У

'

End Sub

Public Function СкалярноеПроизведение(ByVal ДругойВектор As Вектор)
'

' Скалярное произведение векторов

СкалярноеПроизведение = X * ДругойВектор.Абсцисса

+ Y * ДругойВектор.Ордината
End Function

Private Sub Class_Initialize()
'

' Инициализация класса
' Вектор (1, 0)

'

X = 1 Y = 0
End Sub

Проверить работу созданного класса можно, например при помощи следующей процедуры, код которой набирается на стандартном листе модуля.

Sub ДемонстрацияОбъектов()
Dim a, s As Double

' Объявление двух векторов
'

Dim МойВектор, ЕщеВектор As Вектор

' Создание вектора
'

Set МойВектор = New Вектор

' Установка координат вектора
'

With МойВектор

.Абсцисса = 1 .Ордината = 1

End With
'

' Определение длины вектора
'

а = МойВектор.Длина

MsgBox CStr(a)
'

' Умножение вектора на 2

МойВектор.УмножитьНаЧисло Число:=2
'

' Определение координат преобразованного вектора
'

MsgBox CStr(МойВектор.Абсцисса)

MsgBox CStr(МойВектор.Ордината)
'

' Создание еще одного вектора
'

Set ЕщеВектор = New Вектор
With ЕщеВектор

.Абсцисса = 2

.Ордината = 3 End With

'

' Сложение векторов
'

МойВектор.ПрибавитьВектор ДругойВектор:=ЕщеВектор
'

' Определение координат преобразованного вектора

'

MsgBox CStr(МойВектор.Абсцисса)

MsgBox CStr(МойВектор.Ордината)
'

' Определение скалярного произведения
'

s = МойВектор.СкалярноеПроизведение(ДругойВектор:=ЕщеВектор)
MsgBox CStr(s)
End Sub

Содержание  Назад