【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：Ex3_3.frm绩等信息，祝愿广大网友取得需要的信息，参考学习。

    VERSION 5.00
    Begin VB.Form Ex3_3 
       Caption         =   "Form1"
       ClientHeight    =   2730
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   3885
       LinkTopic       =   "Form1"
       ScaleHeight     =   2730
       ScaleWidth      =   3885
       StartUpPosition =   3  '窗口缺省
       Begin VB.CommandButton Command1 
          Caption         =   "计算"
          Height          =   375
          Left            =   2400
          TabIndex        =   11
          Top             =   960
          Width           =   855
       End
       Begin VB.TextBox Text5 
          Height          =   390
          Left            =   2400
          TabIndex        =   10
          Top             =   2040
          Width           =   1335
       End
       Begin VB.TextBox Text4 
          Height          =   375
          Left            =   600
          TabIndex        =   8
          Top             =   2040
          Width           =   1335
       End
       Begin VB.TextBox Text3 
          Height          =   375
          Left            =   960
          TabIndex        =   6
          Top             =   1440
          Width           =   1095
       End
       Begin VB.TextBox Text2 
          Height          =   375
          Left            =   960
          TabIndex        =   4
          Top             =   960
          Width           =   1095
       End
       Begin VB.TextBox Text1 
          Height          =   390
          Left            =   960
          TabIndex        =   1
          Top             =   480
          Width           =   1095
       End
       Begin VB.Label Label6 
          Caption         =   "x2="
          Height          =   255
          Left            =   2040
          TabIndex        =   9
          Top             =   2160
          Width           =   255
       End
       Begin VB.Label Label5 
          Caption         =   "x1="
          Height          =   255
          Left            =   240
          TabIndex        =   7
          Top             =   2160
          Width           =   255
       End
       Begin VB.Label Label4 
          Caption         =   "c="
          Height          =   255
          Left            =   600
          TabIndex        =   5
          Top             =   1560
          Width           =   255
       End
       Begin VB.Label Label3 
          Caption         =   "b="
          Height          =   255
          Left            =   600
          TabIndex        =   3
          Top             =   1080
          Width           =   255
       End
       Begin VB.Label Label2 
          Caption         =   "请输入a、b、c的值"
          Height          =   255
          Left            =   600
          TabIndex        =   2
          Top             =   120
          Width           =   1815
       End
       Begin VB.Label Label1 
          Caption         =   "a="
          Height          =   255
          Left            =   600
          TabIndex        =   0
          Top             =   600
          Width           =   255
       End
    End
    Attribute VB_Name = "Ex3_3"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Command1_Click()
        Dim a, b, c, Disc, x1, x2, RPart, IPart As Single
        a = Val(Text1.Text) '取数据a
        b = Val(Text2.Text) '取数据b
        c = Val(Text3.Text) '取数据c
        If Abs(a) <= 0.000001 Then '当a=0时
            Text4.Text = "不是二次方程"
            Text5.Text = "不是二次方程"
        Else
            Disc = b * b - 4 * a * c
            RPart = -b / (2 * a)
            If Abs(Disc) <= 0.000001 Then '当Disc=0时
                Text4.Text = RPart
                Text5.Text = RPart
            ElseIf Disc > 0.000001 Then '当Disc>0时
                x1 = (-b + Sqr(Disc)) / (2 * a)
                x2 = (-b - Sqr(Disc)) / (2 * a)
                Text4.Text = x1
                Text5.Text = x2
            Else '当Disc<0时
                IPart = Sqr(-1 * Disc) / (2 * a)
                Text4.Text = RPart & "+" & IPart & "i"
                Text5.Text = RPart & "-" & IPart & "i"
            End If
        End If
    End Sub