Visual Basic 6 ile ikinci dereceden denklem çözmek

ax^2+b*x+c = 0 biçiminde düzenlenmiş ikinci dereceden bir denklemin çözümü için a, b ve c değerlerini girerek çözen bir program.

Form üzerine 5 adet text kutusu ve bir adet Command buton yerleştiriniz. Aşağıdaki kodu kod penceresinden girerek programı çalıştırabilirsiniz.

Private Sub Command1_Click() Dim a, b, c As Single Dim delta As Single a = Val(Text1) b = Val(Text2) c = Val(Text3) delta = Sqr(Abs(b ^ 2 - 4 * a * c)) Text4 = (-1 * b + delta) / (2 * a) Text5 = (-1 * b - delta) / (2 * a) End Sub