Использование программ-функций в программах

Private Sub main()
y = 6 * summa(2, 3)
End Sub
 
Private Function summa(int1, int2) As Integer
summa = int1 + int2
End Function

Public Sub pr()
Dim x1, x2, s1, s2, y As Single
Dim n1, n2 As Integer
x1 = Cells(8, 2).Value   ` присваивание переменной Х1 значения из ячейки В8
x2 = Cells(8, 3).Value   ` присваивание переменной Х2 значения из ячейки С8
n1 = Cells(9, 2).Value   ` присваивание переменной n1 значения из ячейки В9
n2 = Cells(9, 3).Value   ` присваивание переменной n2 значения из ячейки С9
  ` проверка корректности переменных
If IsNumeric(x1) = False Or IsNumeric(x2) = False Then
MsgBox "oшибка1"
Exit Sub
End If
 ` обращение к процедуре -функции вычисления суммы s с фактическими               `параметрами х1 и n1
s1 = s(x1, n1 )
If s1 + x2 = 0 Then     ` проверка знаменателя на 0
MsgBox "oшибка2"
Exit Sub
End If
 ` обращение  к процедуре-функции  вычисления суммы s с фактическими `параметрами х2 и n2
s2 = s(x2, n2)     
y = s2 / (s1 + x2)             `вычисление искомой функции У
Cells(10, 1).Value = y      ` запись результата У в ячейку А10
End Sub
` процедура  вычисления суммы s с формальными параметрами знач, кол
Public Function s(знач, кол)
сум = 0
For i = 1 To кол
сум = сум + знач
Next I
s=сум
End Function

Public Sub pr()
Dim x1, x2, x3, s1, s2, chislitel, znamenatel, y
Dim n1, n2
x1 = Cells(8, 2).Value ' присваивание переменной Х1 значения из ячейки В8
x2 = Cells(8, 3).Value ' присваивание переменной Х2 значения из ячейки С8
x3 = Cells(8, 4).Value ' присваивание переменной Х3 значения из ячейки D8
 
n1 = Cells(9, 2).Value ' присваивание переменной n1 значения из ячейки В9
n2 = Cells(9, 3).Value ' присваивание переменной n2 значения из ячейки С9
 
'проверка корректности переменных
If Not (IsNumeric(x1) And IsNumeric(x2) And IsNumeric(x3)) Then
MsgBox "в иксах есть не число!"
Exit Sub
End If
If Not (IsNumeric(n1) And IsNumeric(n2)) Then
MsgBox "в переменных n есть не число!"
Exit Sub
End If
 
If x2 < 0 Then
MsgBox "корень квадратный из отрицательного числа! Измените x2"
Exit Sub
End If
 
 
'обращение к процедуре -функции вычисления суммы s с фактическими параметрами х1 и n1
s1 = s(x1, n1)
If s1 < 0 Then
MsgBox "корень квадратный из отрицательного числа! Измените x1"
Exit Sub
End If
chislitel = Sqr(s1)
 
s2 = s(x3, n2)
If s2 < 0 Then
MsgBox "корень квадратный из отрицательного числа! Измените x3"
Exit Sub
End If
znamenatel = Sqr(x2) * Sqr(s2)
 
 
If znamenatel = 0 Then 'проверка знаменателя на 0
MsgBox "Деление на 0!"
Exit Sub
End If
 
y = chislitel / znamenatel 'вычисление искомой функции У
Cells(10, 1).Value = y 'запись результата У в ячейку А10
End Sub
 
'процедура вычисления суммы s с формальными параметрами знач, кол
Public Function s(знач, кол)
сум = 0
For i = 1 To кол
сум = сум + знач
Next i
s = сум
End Function

Public Sub pr()
Dim x1, x2, x3, s1, s2, chislitel, znamenatel, y
Dim n1, n2
x1 = Cells(8, 2).Value ' присваивание переменной Х1 значения из ячейки В8
x2 = Cells(8, 3).Value ' присваивание переменной Х2 значения из ячейки С8
x3 = Cells(8, 4).Value ' присваивание переменной Х3 значения из ячейки D8
 
n1 = Cells(9, 2).Value ' присваивание переменной n1 значения из ячейки В9
n2 = Cells(9, 3).Value ' присваивание переменной n2 значения из ячейки С9
 
'проверка корректности переменных
If Not (IsNumeric(x1) And IsNumeric(x2) And IsNumeric(x3)) Then
MsgBox "в иксах есть не число!"
Exit Sub
End If
If Not (IsNumeric(n1) And IsNumeric(n2)) Then
MsgBox "в переменных n есть не число!"
Exit Sub
End If
 
If x2 < 0 Then
MsgBox "корень квадратный из отрицательного числа! Измените x2"
Exit Sub
End If
 
 
'обращение к процедуре -функции вычисления суммы s с фактическими параметрами х1 и n1
s1 = s(x1, n1)
If s1 < 0 Then
MsgBox "корень квадратный из отрицательного числа! Измените x1"
Exit Sub
End If
chislitel = Sqr(s1)
 
s2 = s(x3, n2)
If s2 < 0 Then
MsgBox "корень квадратный из отрицательного числа! Измените x3"
Exit Sub
End If
znamenatel = Sqr(x2) * Sqr(s2)
 
 
If znamenatel = 0 Then 'проверка знаменателя на 0
MsgBox "Деление на 0!"
Exit Sub
End If
 
y = chislitel / znamenatel 'вычисление искомой функции У
Cells(10, 1).Value = y 'запись результата У в ячейку А10
End Sub
'процедура вычисления суммы s с формальными параметрами знач, кол
Public Function s(знач, кол)
сум = 0
For i = 1 To кол
сум = сум + знач
Next i
s = сум
End Function