на VBA составить функции (решить систему уравнений)

[barabulka]

Добрый день! Посмотрите пожалуйста функции для vba.
Заранее огромное спасибо

[вложение удалено администратором]

[Администратор]

Я сделал вторую систему уравнений. Первую сделайте по аналогии. Если будут вопросы, то задайте вопрос.

Макрос

Sub Макрос()

    ' Создание в оперативной памяти компьютера поименованной области - переменной "x".
    ' Double означает, что в переменной могут быть чисал (текст не может быть).
        ' Числа могут быть целые и дробные.
    Dim x As Double
    Dim u As Double
    Dim var1 As Double, var2 As Double
   
   
    '1. С помощью инструмента "InputBox" юзер записывает в переменную "x" число.
    x = InputBox("Введите x:")
   
    '2. Расчёт системы уравнений.
    ' If ... Then ... End If используется для выбора действия.
    If x <= -1 Then
        u = (4 + 5 * Abs(x)) / ((1 + 3 * x + x ^ 2) ^ 1 / 3)
    ElseIf (x > -1) And (x < 0) Then
        ' Чтобы не запутаться в вычислениях, разобъём на части.
        var1 = 5 * (Log(1 + x ^ 2) / Log(10))
        var2 = (6 + Cos(x) ^ 4) / (3 * (2 + x))
        u = var1 + var2
    ElseIf x >= 0 Then
        u = (1 + 3 * x) ^ 3 / 5
    End If
   
    '3. Отображение результата на мониторе.
    MsgBox "u = " & u
   
End Sub

[свернуть]