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
请问 哪错了?
人气:194 ℃ 时间:2020-03-31 21:06:29
解答
一、你没有考虑a=0 的情况
二、n= 和m= 这两句,你要把 2*a 用() 括起来做分母 或者你把 * 号,换成除号 / 就不用括起来了!
还有楼上说的,分子也要括起来!哈哈
推荐
猜你喜欢
- 观察下列各式:12+1=1×2,22+2=2×3,32+3=3×4,…,请你将猜测到的规律用含自然数n(n≥1 )的等式表示出来为_.
- 计算:1)1998又1999分之1998除以1998=?
- x+y分之x-y除以(x-y)的平方怎么算
- 《巨人和孩子》中的小男孩去了哪里
- 坐标平面内有四个点A(0,2),B(-1,0),C(1,-1),D(3,1),顺次连接A,B,C,D组成四边形ABCD,求四边形ABCD的面积
- 已知函数f(x)=x4-4x3+ax2-1在区间[0,1]上单调递增,在区间[1,2]上单调递减. (1)求a的值; (2)记g(x)=bx2-1,若方程f(x)=g(x)的解集恰有3个元素,求b的取值范围.
- 在扩号里填上适当的带分数.2小时20分=( )时 90分=( )时 119平方分米=( )平方米 3元5角=
- ()使人类能够探索宇宙的奥秘,遨游变幻莫测的太空?