大家帮忙VB小作业啊

来源：百度知道 编辑：UC知道 时间：2024/05/26 15:39:24
活动主题:设计一个VB应用程序,计算一元二次方程的实数根.
学习要求:计算一元二次方程实数根的过程中,学习if语句的简单应用.要求该应用程序如图所示的界面.
图片链接:http://hi.baidu.com/%D6%DC%B9%AB%D7%D3/album/item/4a5bd0f9380c265d252df21b.html

给个联系方式我把工程发给你。

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Label4.Caption = Text1.Text + "x^2+" + Text2.Text + "x+" + Text3.Text + "=y"
If b ^ 2 < 4 * a * c Then
MsgBox ("此方程式在数范围内无解")
Else
Label5.Caption = "x1=" + Str((Sqr(b ^ 2 - 4 * a * c) - b) / 2 / a)
Label6.Caption = "x2=" + Str((-Sqr(b ^ 2 - 4 * a * c) - b) / 2 / a)
End If

End Sub

'cmdOK:开始计算
'text1:系数a
'text2:系数b
'text3:系数c
'text4:X1
'text5:X2

Private Sub cmdOK_Click()
Dim a,b,c,d As Double
a=text1.text
b=text2.text
c=text3.text
d=b*b-4*a*c
if d<0 then
msgbox "该方程没有实数根!"
else
text4.text=(4*a*c+sqr(d))/(2*a)
text5.text=(4*a*c-sqr(d))/(2*a)
end if
End Sub

太简单了,,,

我不知道啊！现在在学习了！

你的x1 x2