VB程序题：输入一元二次方程 ax2+bx+c=0 的系数 a,b,c,计算并输出一元二次方程的两个根x1,x2。界面如下图所示。 VB源码 龚沛曾

VB程序题：输入一元二次方程 ax²+bx+c=0 的系数 a,b,c,计算并输出一元二次方程的两个根x₁, x₂。界面如下图所示。 VB源码 龚沛曾

提示：
求根时要对a,b,c三个系数分别考虑多种情况的处理，即：无实根、重根或两个实根。

解题：
先在窗体上画3个标签，它们的Caption属性设置为："a  b  c" ，"x1="，"x2="。
再画5个文本框，2个按钮。

代码如下：
Private Sub Command1_Click()
    Dim a!, b!, c!, x1!, x2!, de!
    a = Text1
    b = Text2
    c = Text3
    de = b * b - 4 * a * c
    t = 2 * a
    If de = 0 Then
        Text4 = Format(-b / t, "0.00")
        Text5 = Format(-b / t, "0.00")
    ElseIf de > 0 Then
        Text4 = Format((-b + Sqr(de)) / t, "0.00")
        Text5 = Format((-b - Sqr(de)) / t, "0.00")
    Else
        Text4 = Format(-b / t, "0.00") & "+" & Format(Sqr(Abs(de)) / t, "0.00") & "i"
        Text5 = Format(-b / t, "0.00") & "-" & Format(Sqr(Abs(de)) / t, "0.00") & "i"
    End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

运行程序效果图如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/68.html