自己写的代码,应该跟你们学校要求的差不多:(VB) 首先搞三个text框,分别输入系数a,b,c;再一个command按钮 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) delta = b ^ 2 - 4 * a * c If delta >= 0 Then X1 = (-b + Sqr(delta)) / 2 * a X2 = (-b - Sqr(delta)) / 2 * a Print X1,X2 Else MsgBox "方程无实数根!",0,"错误" End If End Su