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/05/29 22:59:04
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解二次函数代码问题!代码如下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程序斐波那契数列代码