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 = ""
