如何用VB求一元二次方程的虚数解（一定是虚数解）.

来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/27 02:49:56
如何用VB求一元二次方程的虚数解（一定是虚数解）.如何用VB求一元二次方程的虚数解（一定是虚数解）.如何用VB求一元二次方程的虚数解（一定是虚数解）.解一元二次方程的Vb程序：在窗体上画一个命令按钮,

如何用VB求一元二次方程的虚数解（一定是虚数解）.
如何用VB求一元二次方程的虚数解（一定是虚数解）.

如何用VB求一元二次方程的虚数解（一定是虚数解）.
解一元二次方程的Vb程序：
在窗体上画一个命令按钮,输入下列代码,运行后可在窗体打印结果.
Private Sub Command1_Click()
dim a as double,b as double ,c as double,x as string
a=inputbox("请输入系数a:")
b=inputbox("请输入系数b:")
c=inputbox("请输入系数c:")
x=QuarEquation(a,b,c)
print x
end sub
printe function QuarEquation(byval a as double,byval b as double,byval c as double) as string
dim a as double,b as double ,c as double,P as double
dim xr as double ,xi as double ,x as string,xp as double
dim x1 as string,x2 as string,hh as string
hh=chr(13)+chr(10)
xr=-b/2
p=b^2-4*a*c
select case p
case is >0
xp=sqr(P)/2
x1=xr+xp
x2=xr-xp
x="x1=" & x1 & ";" & hh "x2=" & x2
QuarEquation=x
case is = 0
x="x1=x2=" &xr
QuarEquation=x
case is

如何用VB求一元二次方程的虚数解（一定是虚数解）. 一元二次方程求根公式式如何用VB程序编辑 怎么求无实数解一元二次方程的虚数解 求一元二次方程的虚数解（可列举） 举例说明如何用估算的方法解一元二次方程 举例说明如何用估算的方法解一元二次方程 如何用配方法解一元二次方程? 如何用科学计算器解一元二次方程 如何用计算器解一元二次方程我用的是Casio（卡西欧）的计算器,据说计算器是可以解一元二次方程的, 如何用casio的fx-82es来求一元二次方程的根 VB 解一元二次方程程序设计写成INPUT那种的 初三数学如何用因式分解法解一元二次方程 如何用卡西欧fx-350ms计算器解一元二次方程 如何用公式法解一元二次方程kuai! 如何用十字相乘法解一元二次方程 已知虚数Z1,Z2是实系数一元二次方程的两个根,且Z1^2=Z2,求ZI,Z2 如何用配方法接一元二次方程 实系数一元二次方程的解,当判别式小于0时,那个虚数的求根公式是怎么推出的?