Подскажите,как записать комплексное число в visual basic, что бы в Excel результат выдал тоже комплексным числом?Т.е есть решение кубического уравнения,а в решении комплексные корни,их нужно просто записать в visual basic так ,что бы в Excel выдал ответ тоже комплексным числом.Можно такое провернуть?

Function p(a, b, c)
дана функция 3x^3+2x+1=0

p = (3 * a * c - b ^ 2) / (3 * a ^ 2)
End Function

Function q(a, b, c, d)
q = (2 * b ^ 2 - 9 * a * b * c + 27 * a ^ 2 * d) / (27 * a ^ 3)
End Function

Function x(p, q, b, a)
x = (-q / 2 + (q ^ 2 / 4 + p ^ 3 / 27) ^ 0.5) ^ (1 / 3) - (q / 2 + (q ^ 2 / 4 + p ^ 3 / 27) ^ 0.5) ^ (1 / 3) - b / 3 * a
End Function

Function y(q, p, b, a, j)
y = -1 / 2 * ((-q / 2 + (q ^ 2 / 4 + p ^ 3 / 27) ^ 0.5) ^ (1 / 3) + (-q / 2 - (q ^ 2 / 4 + p ^ 3 / 27) ^ 0.5) ^ (1 / 3)) - b / 3 * a + j(3 ^ (1 / 3) / 2) * ((-q / 2 + (q ^ 2 / 4 + p ^ 3 / 27) ^ 0.5) ^ (1 / 3) + (-q / 2 - (q ^ 2 / 4 + p ^ 3 / 27) ^ 0.5) ^ (1 / 3))
End Function


после некоторых исчислений получилось то что выше,х-первый корень,не комплексный
у и z-второй и третий,они похожи и комплексные

смотреть в таком порядке 7,4,6,5
объясните пожалуйста на понятном языке,я в этом совсем не бум-бум

Бенедикт, спасибо большое за объяснение,если не трудно напиши пример как это записывается:

Function y(q, p, b, a)
y = -1 / 2 * ((-q / 2 + (q ^ 2 / 4 + p ^ 3 / 27) ^ 0.5) ^ (1 / 3) + (-q / 2 - (q ^ 2 / 4 + p ^ 3 / 27) ^ 0.5) ^ (1 / 3)) - b / 3 * a + j(3 ^ (1 / 3) / 2) * ((-q / 2 + (q ^ 2 / 4 + p ^ 3 / 27) ^ 0.5) ^ (1 / 3) + (-q / 2 - (q ^ 2 / 4 + p ^ 3 / 27) ^ 0.5) ^ (1 / 3))

ещё раз спасибо!