输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/15 11:06:06
输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.
Private Sub Command1_Click()
Dim a%,b%,c%,,x1!,x2!
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = b ^ 2 - 4 * a * c
If d >= o Then
x1 = (-b + d ^ 1 / 2) / (2 * a)
x2 = (-b - d ^ 1 / 2) / (2 * a)
MsgBox "x1=" & x1
Else
MsgBox "No Root!"
End If
End Sub
到底错在哪里,
Private Sub Command1_Click()
Dim a%,b%,c%,,x1!,x2!
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = b ^ 2 - 4 * a * c
If d >= o Then
x1 = (-b + d ^ 1 / 2) / (2 * a)
x2 = (-b - d ^ 1 / 2) / (2 * a)
MsgBox "x1=" & x1
Else
MsgBox "No Root!"
End If
End Sub
到底错在哪里,
首先,要限制a0否则,根本就不是一元二次方程,后面的程序也要出错.
其次,if d>=o Then 这里,这个d>=o似乎 不是零0,你写的是英文字母o.
第三,公式法求根的时候,d^1/2改为d^(1/2)
其次,if d>=o Then 这里,这个d>=o似乎 不是零0,你写的是英文字母o.
第三,公式法求根的时候,d^1/2改为d^(1/2)
输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.
VB输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个根x1,x2.求代码及窗体设计
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2
编写函数求一元二次方程ax2 +bx+c=0的解,分别通过文本框输入系数a,b,c,输出解x1,x2.
输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实数根x1,x2,界面自行设计.
vb编程题:输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实根x1,x2,.
C语言 任意输入一元二次方程的系数a,b,c,计算并输出一元二次方程的所有根
已知x1,x2是一元二次方程ax2+bx+c=0的两个根,求证:ax2+bx+c=a(x-x1)(x-x2).
一元二次方程ax2+bx+c=0的两根为x1和x2
有一个定理:若x1、x2是一元二次方程ax2+bx+c=0(a≠0,a、b、c为系数且为常数)的两个根,则x1+x2=−
若x1、x2是一元二次方程ax2+bx+c=0(a≠0,a、b、c为系数且为常数)的两个根,则x1+x2=−
已知一元二次方程ax2+bx+c=0的两个实数根X1,X2满足X1+X2=4,和X1×X2=3,