Высокоуровневые методы информатики и программирования. Степанов А.Г. - 65 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

65
_налога 'Рассчитывается значение налога и запоминается
3) = Налог(i) 'Значение налога возвращается в таблицу Excel
итывается значение к выдаче
минается в соответствующей ячейке
Cells(i + 1, 4) = К_Выдаче(i) 'Значение к выдаче возвращается в таблицу Excel
As Integer, Столбец As Integer, Цвет As String)
асный": C = 3
Case "Желтый": C = 6
р (Авто)
roperty
языка программирования создавались на
осно щения к ним,
сохр ения общего
имен й и ее составной части, используется при записи объектов для
разде
О
.Метод1 параметр 1, параметр2, …, параметрN
Примечание. Интегрированная среда разработки VBA в окне редактора кодов пред-
лагает в качестве сервиса возможность конкретного выбора имени свойства или метода,
Налог(i) = Начислено(i) * Ставка
'в соответствующей ячейке
Cells(i + 1,
К_Выдаче(i) = Начислено(i) - Налог(i) 'Рассч
'и запо
Next i
End Sub
Sub Изменение_цвета_шрифта_в_ячейке(Строка
Dim C As Integer
Select Case Цвет
Case "Кр
Case "Зеленый": C = 10
Case Else: C = 0 'Автоматический выбо
End Select
Cells(Строка, Столбец).Font.ColorIndex = C
End Sub
Property Let Число_строк_таблицы(Размер As Integer)
Размер_таблицы = Размер
ReDim Фамилия(1 To Размер_таблицы)
ReDim Начислено(1 To Размер_таблицы)
ReDim Налог(1 To Размер_таблицы)
ReDim К_Выдаче(1 To Размер_таблицы)
End Property
Property Get Число_строк_таблицы() As Integer
Число_строк_таблицы = Размер_таблицы
End P
Поскольку объекты как элементы
ве структур, процедур и функций, нотация, используемая для обра
анилась. Так символ точка, используемый в структурах для раздел
и переменно
ления его имени и свойства или метода. Как это принято в функциях, аргумен-
ты свойств объекта, если они требуются, заключаются в круглые скобки. При ис-
пользовании методов аналогично правилам вызова процедур VBA список парамет-
ров следует после указания метода и в круглые скобки не заключается (смотри при-
мер 17).
бъект.Свойство = Значение_свойства
Объект.Свойство1(параметр 1, параметр2, …, параметрN) = Значение_свойства
Значение_свойства = Объект.Свойство
Значение_свойства = Объект.Свойство1(параметр 1, параметр2, …, параметрN)
Объект.Метод
Объект

Страницы