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

零ss六 1年前他留下的回答 已收到1个回答

林小榆 网友

该名网友总共回答了21个问题，此问答他的回答如下：采纳率：81%

解一元二次方程的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

1年前他留下的回答

10 [db:内容2]

　　以上就是小编为大家介绍的如何用VB求一元二次方程的虚数解（一定是虚数解）. 的全部内容，如果大家还对相关的内容感兴趣，请持续关注上海建站网！