vb解二次函数代码问题!代码如下Private Sub Command1_Click()Dim a As Single,b As Single,c As SingleDim n As Single,m As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If b ^ 2 - 4 * a * c < 0 ThenLabel3.Caption = "无解"Els

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/20 10:35:09
vb解二次函数代码问题!代码如下Private Sub Command1_Click()Dim a As Single,b As Single,c As SingleDim n As Single,m As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If b ^ 2 - 4 * a * c < 0 ThenLabel3.Caption =
xSAOA+vkKiԘăIGlYtҴxlEj-mADbƠE#Z!gӓZ6M677oexG5~Þ^Yo|nKr<)~Cjζ3En@ZҦs2"z Μ 쳘$&2m<*GUP‡2h܇fA;(L@C4s5>"ق987x +/)A$pn X"C|s$>!_jd\̢a~C^&PSP-,%/|3!<2.G(-tf`jvd,(햯jlR~K?WDqA4Vɏ1m= |>[C3 yFu߰VbīUH )*q-Vb2oׁW^w2;^啕~tpuX`IOPnbuLݪh"X}X__{ ~Z,%NO:

vb解二次函数代码问题!代码如下Private Sub Command1_Click()Dim a As Single,b As Single,c As SingleDim n As Single,m As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If b ^ 2 - 4 * a * c < 0 ThenLabel3.Caption = "无解"Els
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
请问 哪错了?

vb解二次函数代码问题!代码如下Private Sub Command1_Click()Dim a As Single,b As Single,c As SingleDim n As Single,m As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If b ^ 2 - 4 * a * c < 0 ThenLabel3.Caption = "无解"Els
一、你没有考虑a＝0 的情况
二、n= 和m＝ 这两句,你要把 2*a 用() 括起来做分母 或者你把 * 号,换成除号 / 就不用括起来了!
还有楼上说的,分子也要括起来!哈哈

【VB 】求通过三个坐标点解二次函数的代码如题 vb解二次函数代码问题!代码如下Private Sub Command1_Click()Dim a As Single,b As Single,c As SingleDim n As Single,m As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If b ^ 2 - 4 * a * c < 0 ThenLabel3.Caption = 无解Els vb一元二次函数y=-x*x 的图像还有函数代码 代码 英语翻译代码如下: 设计个vb 计算三角形面积,格式如下、、、、、求代码= =不是面积公式、、、、、、、、 VB随机产生3位数的代码 VB代码意思List1.RemoveItem List1.ListIndex VB代码问题“ Text1.Text=**&cht(13)&chr(10)****是什么意思? VB的三角正余弦正切函数的制作代码谁知道? 用高斯赛德尔迭代公式求方程组解得问题我变了一段代码,是用高斯赛德尔迭代公式求方程组解.调试的时候,显示没有语法错误,但输入数据后,不能得出结果.代码如下：#include#include#includeint mai R语言求欧氏距离代码如下：%~% C语言解不等式的一个编程问题,只要代码 求C语言代码：分支限界法解背包问题 怎样求素数(文字说明)不要用代码 语言语言叙述 另附vb代码 并详解 VB程序斐波那契数列代码 求VB编程代码:判断一个数是否是素数? VB程序斐波那契数列代码