TimeValue(E) – возвращает значение типа Date, содержащее время, заданное аргументом Е, который может быть строкой, числом или константой, представляющей время.

Timer – возвращает число, представляющее количество секунд от полуночи в соответствии с системным временем компьютера.
20. Подпрограммы в языке VBA
В языке VBA существуют два вида подпрограмм – подпрограмма-функция и подпрограмма-процедура. Принципиальное их отличие заключается в том, что подпрограмма-функция позволяет получить только один результат, присваиваемый имени функции; подпрограмма-процедура позволяет получить любое количество результатов.

Подпрограмма-функция имеет следующую структуру:

FUNCTION имя(P₁ As T₁, P₂ As T₂,…) As T

0>2>0>

---

Раздел описания локальных данных

Раздел операторов

Имя=Результат

EndFUNCTION

Здесь P₁ , P₂, … – входные (формальные) параметры (переменные или массивы), T₁, T₂ … – тип соответствующих параметров; T – тип результата. Если входным параметром является массив, то в заголовке подпрограммы он описывается в виде P_n() As T_n.

Описание параметра в заголовке подпрограммы может иметь более сложную конструкцию:

[Optional] [ByVal | ByRef] [ParamArray] P_i[( )] As T

Здесь Optional – необязательный параметр. При использовании этого элемента все последующие аргументы, которые содержатся в списке аргументов, также должны быть необязательными и описаны с помощью ключевого слова Optional. Все аргументы, описанные как Optional, должны иметь тип Variant. He допускается использование ключевого слова Optional для любого из аргументов, если используется ключевое слово ParamArray.

Необязательный параметр ByVal указывает, что этот аргумент передается по значению.

Альтернативный необязательный параметр ByRef указывает, что этот аргумент передается по ссылке. Описание ByRef используется в VBA по умолчанию.

Необязательный параметр ParamArray используется только в качестве последнего элемента в списке аргументов для указания, что конечным аргументом является описанный как Optional массив значений типа Variant. Ключевое слово ParamArray позволяет задавать произвольное количество аргументов. Оно не может быть использовано со словами ByVal, ByRef или Optional.

Раздел описания локальных данных включает в себя константы, переменные или массивы, сохраняющие свои значения только внутри подпрограммы.

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

Обращение к подпрограмме-функции в основной программе происходит аналогично обращению к стандартной функции, при этом формальные параметры заменяются фактическими; формальные и фактические параметры должны совпадать по количеству, типу и смыслу. Фактическими параметрами могут быть константы или переменные. Если параметром является массив, то в качестве фактического параметра указывается

---

только его имя.

Пример: даны три массива – X(100), Y(80) и Z(50). Вычислить величину 50T=S1*S2/S3. Здесь S1=∑x_i≥6, S2=∑y_i≥12, S3=∑z_i≥-4.

Вычисление S1, S2 и S3 удобно организовать в виде подпрограммы-функции.

Программа имеет вид:

SUBprimer()

Dim X() As Integer, Y() As Integer, Z() As Integer

ReDim X(1 To 100),Y(1 To 80), Z(1 To 50)

For I=1 To 100

X(I)=Cells(I,1)

Next I

For I=1 To 80

Y(I)=Cells(I,2)

Next I

For I=1 To 50

Z (I)=Cells(I,3)

Next I

T%=SUM(X,6)*SUM(Y,12)/SUM(Z,-4)

Cells(1,6)=T

End SUB

FUNCTION SUM(A(), K As Integer) As Integer

Dim J As Byte

SUM=0

For J=1 To Ubound(A)

If A(I)>=K Then SUM=SUM+A(I)

NextJ

EndFUNCTION
В VBA параметрами подпрограмм могут быть подпрограммы. В этом случае их значения передаются по значению.

Sub l()

Dim x As Byte, y As Byte, z As Byte

x = 7

y = 3

call Assis (f(x), y, z)

Cells(1, 1) = z

End Sub

Public FUNCTION f(ByVal a As Byte) As Byte

f = 2 * a

End FUNCTION

Sub Assis (ByVal d As Byte, ByVal q As Byte, v As Byte)

v = d + q

End Sub
Подпрограмма-процедура имеет следующую структуру:

SUB Имя(P₁ As T₁, P₂ As T₂,…)

Раздел описаний локальных параметров

Раздел операторов

EndSUB
При этом в заголовке подпрограммы перечисляются как входные, так и выходные формальные параметры.

Обращение к подпрограмме-процедуре может выполняться двумя способами:

– Call Имя(Q₁,Q₂,Q_N…)

– Имя Q₁,Q₂,Q_N…
При использовании подпрограммы-процедуры возможны следующие варианты: подпрограмма имеет входные и выходные параметры, только входные, только выходные и отсутствие параметров вообще. Второй случай обычно используется для работы с объектами OFFICE или при построении графических изображений. В третьем случае фактически входными параметрами обычно являются текущая дата или текущее время, а в последнем случае подпрограмма выполняет какую-либо фиксированную последовательность действий.

---

Пример: в матрице А(10,10) разделить a_ij>6 на сумму элементов 5-й строки, в матрице В(10,10) разделить b_ij>7 на сумму элементов 8-й строки, в матрице С(10,10) разделить c_ij>-4 на сумму элементов 4-й строки.

В этой задаче входными параметрами являются: матрица, которая подвергается преобразованиям, число, с которым сравниваются элементы, номер суммируемой строки, а выходным параметром – преобразованная матрица. Если преобразованная матрица записывается на место исходной, то матрица в качестве параметра указывается однократно.

Программа имеет следующий вид:

SUBprimer()

Dim A() As Single, B() As Single, C() As Single

REDIM A(1 To 10,1 To 10), B(1 To 10,1 To 10), C(1 To 10,1 To 10)

ВводматрицА, B, C

Call MATR(A, 6, 5)

Call MATR(B, 7, 8)

Call MATR(C, -4, 4)

Вывод преобразованных матриц A,B,C

End SUB

SUB MATR(M() As Single, K As Integer, N As Byte)

Dim I1 As Byte, J1 As Byte, S As Integer

S=0

For J1=1 To 10

S=S+M(N, J1)

Next J1

For I1=1 To 10

For J1=1 To 10

If M(I1, J1)>K THEN M(I1,J1)=M(I1,J1)/S

Next J1

Next I1

End SUB
ЛАБОРАТОРНЫЙ ПРАКТИКУМ
ЛАБОРАТОРНАЯ РАБОТА № 1.

«Программирование ввода/вывода и способы описания переменных в VBA»
Цель работы: приобретение практических навыков по разработке, отладке и тестированию программ, реализующих линейные алгоритмы, в том числе с использованием математических функций; изучение способов описания переменных, определения типов данных; приобретение умений использования простейшего ввода-вывода и работы с объектами-ячейками.
Задания:

1. 
   В соответствии с вариантом описать переменные в первой строке таблицы явным способом и ввести их значения с помощью оператора присваивания.
   
2. 
   Описать переменные во второй строке таблицы с помощью суффиксов. Ввести их значения с помощью оператора присваивания.
   
3. 
   Описать переменные третьей строки с помощью префиксов. Ввести их значения в ячейки А1, B1 и C1 соответственно. Считать значения переменных из ячеек.
   
4. 
   Вычислить переменные в четвертой строке таблицы согласно формулам, не указывая тип. Записать результаты в ячейки F2 и G2 соответственно.
   
5. 
   С помощью функции определения типа определить тип переменных из второй и третьей строк таблицы. Результаты записать в ячейки A3-C3 соответственно и в ячейки A5-C5 соответственно. Определить тип переменных, вычисленных по формулам. Результаты записать в ячейки F3 и G3 соответственно.
   
6. 
   Установить цвета ячеек A1-C1, A3-C3, A5-C5 соответственно пятой строке таблицы. В ячейках F3 и G3 для шрифта установить 14 кегль Times New Roman любого цвета.
   

---

Вариант 1	Вариант 2
s = 12, b = 16,765, q = 567		r = 1,278, v = 78, lc = -8700
n1 = 56,876, alfa = 287,wts = 89		h = 563, j = 189, uts = 178,99
d3 = -0,78, z = 345, f = 56		m24 = 13, pk = 122, d11 = -67,7
Красный, желтый, зеленый		Голубой, красный, синий
Вариант 3	Вариант 4
a = 0,78, v = 389, c = 90		w = 165, g = 11345, n = 89,7654
l2 = 749, k34 = 13,89, delta = 2		rtr = 7, b = 206, k = 11900
i5 = 12, mtz = -0,005, s = 78000		u7 = 455, s = 788,6548, a = 9
Желтый, зеленый, красный		Голубой, пурпурный, желтый
Вариант 5	Вариант 6
rd = 1,897, a = 678, b = 97		x1 = 168, d = 14,897, j9 = 34786
gamma = 134, i1 = 13, nnt = 280		rd = 78, q2 = -98,7654, v = 1
k2 = 17, m81 = -59, s = 1567,89654		hr = 5678, g = 308, b = 99,8
Желтый, зеленый, голубой		Красный, голубой, желтый
Вариант 7	Вариант 8
v = 112, d = 16,765, y = 567		p6 = 12,78, vn = 18, lc = -125
k2 = 56,876, alfa = 68, wis = -89		w = 563,6, q1 = 189, u = 228,67
d3 = -78, z = 3452, h = 56,89		m24 = 3, pk = 1228, d11 = -78,788
Красный, желтый, зеленый		Голубой, красный, синий
Вариант 9	Вариант 10
a1 = 2,38, v = 489, c = 900		w = 165, g2 = 1034, n = 9,76
l2 = 49, k3 = 13,89, dt = 2		rr = 17, b = 2006, k = 119
i3 = 12, mtz = -2,005, s = 58600		h4 = 455, s = 78,68, a = -9
Желтый, зеленый, красный		Голубой, пурпурный, желтый
Вариант 11	Вариант 12
r = 2,897, a = 678, b = 87		y1 = 168, d2 = 14,897, j9 = 34786
om = 134, i1 = 13, nnt = 295		rp = 78, q2 = -18,7654, w = 1
k2 = 17, m81 = -59, s = 1567,89654		hr = 5678, m = 388, a = 99,8
Желтый, зеленый, голубой		Красный, голубой, желтый
Вариант 13	Вариант 14
s = 12, b = 16,765, q = 567		r = 1,278, v = 78, lc = -8700
n1 = 56,876, alfa = 287, wts = 89		h = 563, j = 189, uts = 178,99
d3 = -0,78, z = 345, f = 56		m24 = 13, pk = 122, d11 = -67,7
Красный, желтый, зеленый		Голубой, красный, синий
Вариант 15	Вариант 16
a = 0,78, v = 389, c = 90		w = 1605, g = 113, f = -89,7654
l2 = 749, k34 = 13,89, delta = 2		rtr = 71, b = 206, k3 = 21900
i5 = 12, mtz = -0,00, s = 78000		u7 = 781, s2 = 788,6, a = 29
Желтый, зеленый, красный		Пурпурный, желтый, голубой
Вариант 17	Вариант 18
r = 1,897, a = 678, b = 97		x1 = 168, d = 14,897, j9 = 34786
g = 134, i1 = 13, nnt = 280		rd = 78, q2 = -98,7654, v = 1
k2 = 17, m81 = -59, s = 1567,89654		hr = 5678, g = 308, b = 99,8
Желтый, зеленый, красный		Желтый, голубой, зеленый

---

Смотрите также файлы

• История развития отечественной социальной психологии.docx

• Мои права и обязанности.docx

• 8 сынып Алгебра бжб 4 тосан. І нса. Тапсырма.docx

• Тренировка личного состава 185пч 22огпс на оппп. Вид занятия практическое Отведенное время 1 (ч) Цель занятия.doc

• Методические указания производственная практика (преддипломная практика).docx