Question

Создать программу вычисления функции S для 5 пар чисел x и y. VBA

Answer 1

Sub MyTest()
    Dim a As Variant, i As Integer
    a = Range("A1:B5")
    For i = 1 To 5
        Cells(i, 3) = S(a(i, 1), a(i, 2))
    Next i
End Sub

Function S(ByVal x As Double, ByVal y As Double) As Double
    Dim i As Integer
    If x < y Then
        S = 0
        For i = 1 To 20
            S = S + x ^ i * y ^ (i + 1)
        Next i
    ElseIf x > y Then S = (x * y) ^ 2
    Else: S = x * x + y * y
    End If
End Function
x - по колонке A1:A5, y - по колонке B1:B5, результат в C1:C5