VB:一元二次方程算法中求根公式如何做复数处理?

网友回答

MsgBox 请输入完整的数值,然后点击“开始计算”!
Text1.SetFocus
Text1.Text =
Text2.Text = '清空用户名和密码等待重新输入
Text3.Text =
Text4.Text =
Text5.Text =
Label15.Caption = End IfIf m >= 0 Then
X1 = (-b + Sqr(m)) / (2 * a) '自定义一元二次方程求根函数
X2 = (-b - Sqr(m)) / (2 * a)
Text4.Text = X1
Text5.Text = X2
Label15.Caption = 方程： & a & X^2 & + & b & X & + & c & = & 0 & (a≠0) '显示方程式子 Text1.Text =
Text2.Text =
Text3.Text =
Label13.Caption = ElseLabel13.Caption = 此方程没有实数解!
Label15.Caption = 方程： & a & X^2 & + & b & X & + & c & = & 0 & (a≠0) '显示方程式子
Text1.Text =
'清空输入框Text2.Text =
Text3.Text =