iyi gunler aşağıda ikinci dereceden denklemin reel koklerini bulan bir program var ancak bunu "i"leri yani karmaşık kokleri de yazabilcek duruma cevirmem gerekiyor.yani bunu bir şekilde visual a tanıtmam gerekir ama yapamadım yardımcı olabilirseniz sevinirim..

'ikinci derece cebirsel denklemin koklerinin bulunması
Private Sub Form_Load()
a = InputBox("a")
b = InputBox("b")
c = InputBox("c")
d = b ^ 2 - 4 * a * c
If d < 0 Then
Show
Print "denklemin gercek koku yok"
ElseIf d > 0 Then
Show
Print (-b - d ^ 0.5) / (2 * a), (-b + d ^ 0.5) / (2 * a)
Else
Show
Print (-b / (2 * a))
End If
End Sub
__________________