Параметры, передающиеся по значению и по ссылке

 

Параметры, передающиеся по значению, – это параметры, значения которых передаются в подпрограмму и не передаются из нее обратно. Перед такими параметрами ставится оператор ByVal. Параметры, передающиеся по ссылке, – это параметры, значения которых вычисляются в подпрограмме и передаются из нее в другие подпрограммы. Перед такими параметрами ставится оператор ByRef.

Рассмотрим несколько примеров использования подпрограммы-процедуры.

 

Пример 1

Сформировать три матрицы A(K, K), B(L, L), C(M,M) на разных листах Excel.

Размерность у каждой матрицы своя.

 

Матрицы должны иметь вид

 

		...		N
			...
...				...
			...
		...		N

 

Программный код

 

Option Explicit

Dim i As Integer, j As Integer ‘ описание глобальных параметров

Sub PR28()

Dim a(1 To 10, 1 To 10) As Integer

Dim b(1 To 10, 1 To 10) As Integer

Dim c(1 To 10, 1 To 10) As Integer

Dim K As Integer, L As Integer, M As Integer

K = Val(InputBox("Введи K"))

L = Val(InputBox("Введи L"))

M = Val(InputBox("Введи M"))

F K, a ‘ вызов подпрограммы F для массива a

F L, b ‘ вызов подпрограммы F для массива b

F M, c ‘ вызов подпрограммы F для массива c

Worksheets("Лист1").Select ‘ переходим на Лист1

W K, a ‘ вызов подпрограммы W для массива a

Worksheets("Лист2").Select ‘ переходим на Лист2

W L, b ‘ вызов подпрограммы W для массива b

Worksheets("Лист3").Select ‘ переходим на Лист3

W M, c ‘ вызов подпрограммы W для массива c

End Sub

Private Sub F(ByVal n As Integer, ByRef x() As Integer)

For i = 1 To n ‘ формирование матрицы

For j = 1 To n

x(i, j) = 0

If i = j Then x(i, j) = i

If i + j = n + 1 Then x(i, j) = n + 1 – i

Next j

Next i

End Sub

Private Sub W(ByVal n As Integer, ByRef x() As Integer)

Range(Cells(1, 1), Cells(10, 10)).Select

Selection.Clear

Cells(1, 1).Select

For i = 1 To n ‘ вывод матрицы

For j = 1 To n

Cells(i, j) = x(i, j)

Next j

Next i

End Sub

 

 

Пример 2

Прочитать три матрицы с разных листов Excel. В каждой матрице вычислить максимальный элемент, а затем найти сумму этих максимумов.

 

Программный код

 

Option Explicit

Dim i As Integer, j As Integer ‘ описание глобальных параметров

Sub PR29()

Dim a(1 To 10, 1 To 10) As Integer

Dim b(1 To 10, 1 To 10) As Integer

Dim c(1 To 10, 1 To 10) As Integer

Dim K As Integer

Dim L As Integer

Dim M As Integer

Dim MaxA As Integer

Dim MaxB As Integer

Dim MaxC As Integer

Dim S As Integer

K = Val(InputBox("Введи K"))

L = Val(InputBox("Введи L"))

M = Val(InputBox("Введи M"))

Worksheets("Лист1").Select ‘ переходим на Лист1

Wwod K, a ‘ вызов подпрограммы Wwod для матрицы a

Worksheets("Лист2").Select ‘ переходим на Лист2

Wwod L, b ‘ вызов подпрограммы Wwod для матрицы b

Worksheets("Лист3").Select ‘ переходим на Лист3

Wwod M, c ‘ вызов подпрограммы Wwod для матрицы c

Max K, a, MaxA ‘ вызов подпрограммы Max для матрицы a

Max L, b, MaxB ‘ вызов подпрограммы Max для матрицы b

Max M, c, MaxC ‘ вызов подпрограммы Max для матрицы c

S = MaxA + MaxB + MaxC

MsgBox ("MaxA=" & MaxA)

MsgBox ("MaxB=" & MaxB)

MsgBox ("MaxC=" & MaxC)

MsgBox ("S=" & S)

End Sub

Private Sub Wwod(ByVal n As Integer, ByRef x() As Integer)

For i = 1 To n ‘ ввод матрицы

For j = 1 To n

x(i, j) = Cells(i, j)

Next j

Next i

End Sub

Private Sub Max(ByVal n As Integer, ByRef x() As Integer, ByRef max1 As Integer)

max1 = –32000

For i = 1 To n

For j = 1 To n

If x(i, j) > max1 Then max1 = x(i, j)

Next j

Next i

End Sub

 

Пример 3

С помощью счетчика случайных чисел заполнить две матрицы на разных листах Excel и в каждой матрице упорядочить по возрастанию элементы каждой строки. Полученные матрицы вывести на те же листы Excel.

 

Программный код

 

Option Explicit

Dim i As Integer, j As Integer ‘ описание глобальных параметров

Sub PR30()

Dim x(1 To 10, 1 To 10) As Integer

Dim y(1 To 10, 1 To 10) As Integer

Dim K As Integer, L As Integer

K = Val(InputBox("Введи K"))

L = Val(InputBox("Введи L"))

Worksheets("Лист1").Select

Matr K, x

Worksheets("Лист2").Select

Matr L, y

End Sub

Private Sub Matr(ByVal n As Integer, ByRef a() As Integer)

Dim M, R As Integer

Range(Cells(1, 1), Cells(10, 10)).Select

Selection.Clear

Cells(1, 1).Select

‘ заполнение матрицы

For i = 1 To n

For j = 1 To n

Cells(i, j) = Int(Rnd * 100 – 50)

a(i, j) = Cells(i, j)

Next j

Next i

‘ сортировка

For i = 1 To n

For M = 1 To n – 1

For j = 1 To n – M

If a(i, j) > a(i, j + 1) Then

R = a(i, j)

a(i, j) = a(i, j + 1)

a(i, j + 1) = R

End If

Next j

Next M

Next i

‘ вывод на лист Excel новой матрицы

Cells(i, 2) = "полученная матрица"

For i = 1 To n

For j = 1 To n

Cells(i + 1 + n, j) = a(i, j)

Next j

Next i

End Sub

 

Подпрограмма-функция

 

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

 

Синтаксис:

[Public | Private] [Static] Function Имя [(Список аргументов)] As Тип

Тело подпрограммы

Имя = Выражение

End Function

Подпрограмма-функция вызывается в выражении по своему имени, за которым следует список аргументов в скобках:

 

Переменная = Имя подпрограммы-функции(Список аргументов)

 

Пример 1

Даны действительные числа s, t. Получить значение выражения

 

,

 

где

 

Программный код

 

Option Explicit

Sub PR31()

Dim s As Double

Dim t As Double

Dim f As Double

s = Val(InputBox("Введи s"))

t = Val(InputBox("Введи t"))

f = Q(1.2, s) + Q(t, s) – Q(2 * s – 1, s * t)

MsgBox("f=" & f)

End Sub

Private Function Q(ByVal a As Double, ByVal b As Double) As Double

Q = (a^2 + b^2) / (a^2 + 2 * a * b + 3 * b^2 + 4)

End Function

 

Пример 2

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

 

Программный код

 

Option Explicit

Dim i As Integer ‘ Описание глобальных параметров

Sub PR32()

Dim x(1 To 100) As Double

Dim y(1 To 100) As Double

Dim N As Integer

Dim M As Integer

Dim Sz1 As Double

Dim Sz2 As Double

N = Val(InputBox("Введите количество сотрудников 1-го отдела"))

M = Val(InputBox("Введите количество сотрудников 2-го отдела"))

Sz1 = Sz(N, x, 2)

Sz2 = Sz(M, y, 4)

MsgBox("Средняя зарплата сотрудников 1-го отдела =" & Sz1)

MsgBox("Средняя зарплата сотрудников 2-го отдела =" & Sz2)

If Sz1 > Sz2 Then MsgBox("В 1-м отделе средняя зарплата больше")

If Sz2 > Sz1 Then MsgBox("Во 2-м отделе средняя зарплата больше")

If Sz1 = Sz2 Then MsgBox("Средняя зарплата в отделах одинакова")

End Sub

Private Function Sz(ByVal k As Integer, ByRef a() As Double, ByVal k1 As Integer) As Double

Dim s As Double ‘ описание промежуточной переменной

s = 0

For i = 1 To k ‘ считывание данных и заполнение массива

A(i) = Cells(k1, i)

s = s + a(i) ‘ вычисление общей суммы

Next i

Sz = s / k ‘ вычисление средней зарплаты

End Function