/01/072017
/12/042016
/11/262016
/11/242016
|
Private Sub Command1_Click() Dim a As Double, b As Double, c As Double, d As Double, x1 As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = b * b - 4 * a * c If d >= 0 Then If d > 0 Then Label6.Caption = "该方程有两个不同的实数根" x1 = (-b + Sqr(d)) / (2 * a) X2 = (-b - Sqr(d)) / (2 * a) Else Label6.Caption = "该方程有两... |

















