Пожалуйста исправьте ошибку, никак не могу выполнить программу. Выходит ошибка "invalid procedure call or argument"

@Федоров Максим · Регистрация: 20.10.2019

Visual Basic

Sub max1()
Dim a, b, x, y As Double
x = Cells(1, 1)
y = Cells(1, 2)
a = (Sqr(x) + y ^ 3 + Abs(x)) / (Abs(x) ^ 3 + y ^ -x + 3.1415926)
b = Atn(Abs(x) + Abs(y) ^ 3) * Sqr(Log(x))
Cells(2, 1) = a
Cells(2, 2) = b
End Sub

~~Остап Бонд~~ · 20.10.2019, 20:02

Федоров Максим, что у вас в ячейке А1?
Есть подозрение, что там пусто или 0. А логарифм нуля существует, напомните неучу.

@Alex77755 · 20.10.2019, 21:03

Пожалуйста исправьте ошибку

Да не гони! нет там ошибки!
и бейсик подсказывает:

invalid procedure call or argument

~~Остап Бонд~~ Заблокирован
	20.10.2019, 20:02	2
	Федоров Максим, что у вас в ячейке А1? Есть подозрение, что там пусто или 0. А логарифм нуля существует, напомните неучу. 0

@Alex77755 11193 / 3566 / 632 Регистрация: 13.02.2009 Сообщений: 10,658
	20.10.2019, 21:03	3
	Пожалуйста исправьте ошибку Да не гони! нет там ошибки! и бейсик подсказывает: invalid procedure call or argument 1 Миниатюры

Опции темы