大家好，我是小跳，我来为大家解答以上问题。二元一次方程组练习题，二元一次方程组计算器很多人还不知道，现在让我们一起来看看吧！

Private Sub Command1_Click() Dim a, b, c As Double a = Text1.Text b = Text2.Text c = Text3.Text If b * b - 4 * a * c < 0 Then MsgBox "No answer" Else Text4.Text = (-b + Sqr(b * b - 4 * a * c)) / 2 Text5.Text = (-b - Sqr(b * b - 4 * a * c)) / 2 End If End Sub

Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" End Sub

也发到你邮箱了

本文到此讲解完毕了，希望对大家有帮助。