本人是VB初学者,老师报置了这么一道作业,不太会做,希望大虾们能帮帮忙`````小弟感激不尽啊`````
要求如下:
1.使用Label,TextBox,Frame,CommandButton控件
2.可以输入一元二次方程的三个系数A,B,C
3.单击计算按钮后,求解并显示结果:X1,X2
4.要求有容错能力,即不管A,B,C输入什么,程序都能正常运行.(即当b^2-4*a*c<0也可求根;a=0时也要考虑)

Dim X As Long
Dim x1 As Long
Dim x2 As Long
Dim a As Long
Dim b As Long

Dim c As Long
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a = 0 Then
x1 = (-c) / b
Text4.Text = x1
Text5.Text = x1
Exit Sub
End If

If b ^ 2 - 4 * a * c < 0 Then
MsgBox "没有根"
Exit Sub
End If


x1 = (-(b) + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
x2 = (-(b) - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
Text4.Text = x1
Text5.Text = x2

当b^2-4*a*c<0时也要求根啊,不是没根啊```即要求复根```即X=实根+虚根i,X=实根-虚根i````
能改一下吗??
谢谢````

不能改，因为我关于数学我已经全部忘光了。

我也是啊```郁闷```有哪位既是VB高手又是数学高手的出来帮帮忙吗???
谢谢了````

作业期限迫在眉睫啊````

那你就把算须根的方法给我好了

D=B^2-4AC
虚根1=-B/(2*A)+sqr(-D)/(2*A)i
虚根2=-B/(2*A)-sqr(-D)/(2*A)i

伱們的好難啊~我才剛學到FOR..to..step這裡...
你們知道怎麽做九九乘法表嗎?我的代碼之可以出現到6,出現不了9...請你們幫幫忙

print "這是一個九九乘法表:"
print
print
for i =1 to 9 step 1
for j =1 to i step 1
print j:"*":i:"=":trim(i*i)
next i
print
print
next
可以告訴我哪裏要修改嗎?

你说的我不知道，不过我想，你的讨论If a = 0 Then
x1 = (-c) / b是没有必要的。两种情况：〈0和〉=0就行啊