题目
如何用VB求一元二次方程的虚数解(一定是虚数解).
提问时间:2020-10-28
答案
解一元二次方程的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
在窗体上画一个命令按钮,输入下列代码,运行后可在窗体打印结果.
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
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1blue about this what jacket连词成句
- 2小学常识——空气、水(判断题)
- 3已知关于x的一元二次方程x^2+4x+k^2-2k-3=0的一个根为0,求k的值和方程的另一个根
- 4珍珠泉赞中作者从哪些方面写了珍珠泉
- 5一个环形铁片,外圆半径是0.65米,内圆半径是0.35米,去这个铁片的面积是多少平方米?
- 6其母引刀裂其织“引”是什么意思?
- 7when did you see Carl,Tom?i saw him while i
- 8设函数-x^2+7x-12>0的解集为A.(1)求集合A (2)设p:x属于A,q:x>a.且q是p的...
- 9测量水的温度应选择多少度的温度计?
- 10有关于I am one of the kind的英语一分钟演讲稿吗?
热门考点
- 1连锁商店购物环境的构成要素由哪些组成?
- 2已知c>0.设p:函数y=c^x在R上是减函数;q:不等式x+|x-2c|>1的解集为R,如果这两个命题中有且仅有一个为真命题,求示数c取值范围
- 3数学高手们
- 4对于一切实数x,都有不等式ax2-2x+1≥0恒成立,则a的取值范围是
- 5用一条长60米的篱笆,靠一面墙围成一个长方形的鸡圈.问鸡圈的最大是多少平方米
- 6在一个周长是40厘米的正方形画一个最大的圆,他的周长是( )
- 712安士等于多少毫升
- 8从9点到10点分针和时针成一条直线到第一次重合要几分钟
- 9黄河入海口为什么没有形成大的城市,一般河流交汇和河流入海口都会形成大的城市
- 10How much is your sweater?(同义句)( )( )( )( ) your sweater?