Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim d As Single, x1 As Single, x2 As Single a = InputBox("請輸入一元二次方程的系數(shù)a") b = InputBox("請輸入一元二次方程的系數(shù)b") c = InputBox("請輸入一元二次方程的系數(shù)c") If a = 0 Then a = InputBox("因為a≠0,你輸入的a＝0,請重新輸入系數(shù)a") End If d = b * b - 4 * a * c If d >= 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) Print "系數(shù)為"; a; b; c; "的一元二次方程的根分別為"; x1 Print "系數(shù)為"; a; b; c; "的一元二次方程的根分別為"; x2 Else Print "此方程在實數(shù)范圍內(nèi)無解" End If End Sub