Private Sub Cal_btn_Click()
A = Val(A_txt.Text)
B = Val(B_txt.Text)
C = Val(C_txt.Text)
X1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
X2 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
X1_txt.Text = X1
X2_txt.Text = X2
End Sub
Private Sub Lim_btn_Click()
A_txt.Text = ""
B_txt.Text = ""
C_txt.Text = ""
X1_txt.Text = ""
X2_txt.Text = ""
End Sub
