Aplikasi Penghitung Akar Kuadrat Sebelum Evaluasi

Dim A, B, C, D, X1, X2 As Single

Private Sub CmdHitung_Click()
A = Val(TextA.Text)
B = Val(TextB.Text)
C = Val(TextC.Text)
D = B * B - 4 * A * C
X1 = (-B + D ^ 0.5) / (2 * A)
X2 = (-B - D ^ 0.5) / (2 * A)
TextX1.Text = X1
TextX2.Text = X2
End Sub

Private Sub CmdSelesai_Click()
Unload Me
End Sub