Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
Dim m As Integer,x1 As Integer,x2 As Integer
a = Text1.Text
b = Text2.Text
c = Text3.Text
m = b ^ 2 - 4 * a * c
If a = 0 Then
Print wrong
Else
Select Case m
Case Is > 0
x1 = (-b + Sqr(m) / (2 * a))
x2 = (-b - Sqr(m) / (2 * a))
Print "不相等的兩根 x1=" & x1 & ",x2=" & x2
Case 0
x1 = x2 = (-b / (2 * a))
Print "相等的兩根 x1=x2 =" & x1
Case Is < 0
Print "No Real"
End Select
End If
End Sub