用微软的VB6.0语言做一个解方程的东西

假如一元二次方程为a*x^2+b*x+c=0
private sub command1_click()
dim a,b,c,chk,chk1
a=inputbox("input a")
b=inputbox("input b")
c=inputbox("input c")
chk=b^2-4*a*c
chk1=sqr(chk)
select case chk
case chk>0
print "X1=";(-1*b+chk1)/2*a
print "X2=";(-1*b-chk1)/2*a
case chk=0
print "X1=X2=";-1*b/2*a
case chk<0
print "X1=";(-1*b&"+i"&chk1)/2*a
print "X2=";(-1*b&"-i"&chk1)/2*a
end select
这样就解了方程

留个邮箱，有空给你做个