vb解二次函数代码问题!

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/12 07:47:20

vb解二次函数代码问题!
代码如下
Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single
Dim n As Single,m As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If b ^ 2 - 4 * a * c < 0 Then
Label3.Caption = "无解"
Else
n = -b + (b ^ 2 - 4 * a * c) ^ (1 / 2) / 2 * a
m = -b - (b ^ 2 - 4 * a * c) ^ (1 / 2) / 2 * a
Label3.Caption = "" + CStr(n) + " " + CStr(m) + ""
End If
End Sub
请问哪错了?

一、你没有考虑a＝0 的情况
二、n= 和m＝这两句,你要把 2*a 用() 括起来做分母或者你把 * 号,换成除号 / 就不用括起来了!
还有楼上说的,分子也要括起来!哈哈

vb解二次函数代码问题! 【VB 】求通过三个坐标点解二次函数的代码 vb程序设计问题,求代码 vb一元二次函数y=-x*x 的图像还有函数代码 vb 随机函数Ran问题二次函数有关问题二次函数相关问题二次函数性质问题导数..二次函数问题. 二次函数问题二次函数问题 vb中IIf（）函数的问题