题目
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
请问 哪错了?
代码如下
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
请问 哪错了?
提问时间:2021-12-13
答案
一、你没有考虑a=0 的情况
二、n= 和m= 这两句,你要把 2*a 用() 括起来做分母 或者你把 * 号,换成除号 / 就不用括起来了!
还有楼上说的,分子也要括起来!哈哈
二、n= 和m= 这两句,你要把 2*a 用() 括起来做分母 或者你把 * 号,换成除号 / 就不用括起来了!
还有楼上说的,分子也要括起来!哈哈
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1分析一下语句结构
- 2我要写个作文叫过年趣事 过年用英语怎么说?
- 3关系词和连接词有什么区别?怎么用
- 4若函数f(x)的定义域为[0,1],值域为[1,2],则f(x+2)的定义域和值域分别是( ) A.[0,1],[1,2] B.[2,3],[3,4] C.[-2,-1],[1,2] D.[-1,2
- 5Experience with CATT?
- 6天上的星星 贾平凹 描写繁星满天的句子;描写月明星稀的句子;读了《天上星星》一课后的体会.
- 7制作切片时,怎样避免气泡?
- 8(8×10³)÷(5×10²)=?
- 9人生得意须尽欢,可是,有个成语叫乐极生悲
- 10把3个棱长为3分米的正方体拼在一起,构成一个长方体,这个长方体的表面积是多少平方