Private Sub Form_Load()
a = Val(T1)
b = Val(T2)
c = Val(T3)
X1 = Val(L1)
X2 = Val(L2)
d = Val(L3)
d = (b ^ 2) - (4 * a * c)
If d >= 0 Then
X1 = (-b + d) / 2 * a
X2 = (-b - d) / 2 * a
End If
If d = 0 Then
X1 = X2
End If
If d < 0 Then
X1 = "Нет решения"
X2 = "Нет решения"
End If
End Sub