关于我们 共44页[1 2 3 4 5 6 7 >»<... 最后一页]

求解一元二次方程的程序

  要求从键盘上输入ax²+bx+c=0的三个系数的值，输出方程的两个解x1,x2，运行
时的效果如下图所示。

制作应用程序界面

适当调整窗体Form1的大小，然后在上面建立七个标签框控件Lable1—Lable7，三个文本框控件Text1—Text3，两个命令按钮Command1和Command2，按图调整各控件在窗体中的位置。 

   设置控件属性

a)         Label1的Caption属性为：请输入a值

b)        Label2的Caption属性为：请输入b值

c)        Label3的Caption属性为：请输入c值

d)        Label4的Caption属性为：x1=

e)         Label5的Caption属性为：x2=

f)         Text1、Text2、Text3的Text属性为：空

g)        Command1的Caption属性为：求解

h)        Command2的Caption属性为：结束 

   编写程序代码

a)         双击Command1控件，输入以下代码：

  Private Sub Command1_Click()
        a = Text1.Text
        b = Text2.Text
        c = Text3.Text
        d = b * b - 4 * a * c '计算根式判别式
        p = -b / (2 * a)
        If d >= 0 Then  '在实数范围内有解
           If d > 0 Then  '有2个不同的实数解
               r = Sqr(d) / (2 * a)
               X1 = p + r
               X2 = p - r
           Else
               X1 = p  '有2个相同的实数解
               X2 = p
            End If
            Label6.Caption = X1 '输出结果
            Label7.Caption = X2
         Else
            Label6.Caption = "方程无实根"
            Label7.Caption = "方程无实根"
         End If
         End Sub

Private Sub Command2_Click()
     End  '退出
     End Sub

程序说明：

用Text1、Text2、Text3的Text属性输入三个系数a、b和c的值
用Label4和Label5的Caption属性输出求解结果X1和X2的值