Автор Тема: Помогите завершить программу в VBA (2)  (Прочитано 121 раз)

Оффлайн Посетитель 07.11.2022

  • Посетитель форума
  • Сообщений: 2
Нужно вывести ответ в массиве

Sub Task2()
'
' Task2 Макрос
' Объявление переменных
Dim a As Single
Dim p As Single
Dim y As Single
Dim x As Single
Dim x0 As Single
Dim xn As Single
Dim dx As Single
' Вычет выражений
a = InputBox("Введите a")
p = InputBox("Введите p")

x0 = InputBox("Введите x0")
xn = InputBox("Введите xn")
dx = InputBox("Введите dx")

' Начальное значение переменной x
x = x0
While x <= xn
' Определение значений
If x = 1.4 Then
y = a * x ^ 3 + 7 * Sqr(x)
MsgBox ("При х= " + Str(x) + "  Значение y=  " + Str(y))
Else
If x < 1.4 Then
y = p * x ^ 2 - 7 / x ^ 2
MsgBox ("При х= " + Str(x) + "  Значение y=  " + Str(y))
Else
y = Log(x + 7 * Sqr(Abs(x + a)) / Log(10))
MsgBox ("При х= " + Str(x) + "  Значение y=  " + Str(y))
End If
End If
x = x + dx
Wend


End Sub