Помогите завершить программу в VBA

Автор Посетитель, 07 ноября 2022, 18:29

Посетитель

Нужно вывести ответ в массиве.

Макрос
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
[свернуть]

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

А в методичке есть пример: вывести ответ в массиве? Если есть сделайте фото и выложите на форуме, я посмотрю, что это такое.