今天剛剛釋出這篇文章，也是為了徵求各位大佬，下面的這個是我做的一個vb小程式，它可以執行二元一次方程的演算法

Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If Not IsNumeric("a,b,c") Then
          MsgBox "你輸入的不是純數字"
          Else
          Text1.Text = ""
          Text2.Text = ""
          Text3.Text = ""
          Text1.Text = ""
          End If
dt = b ^ 2 - 4 * a * c
Select Case dt
     Case Is >= 0
     a1 = -b + Sqr(dt) / 2 * a
     a2 = -b - Sqr(dt) / 2 * a
     Label1.Caption = "x1為：" & a1 & "取整為：" & Val(Fix(a1)) & Chr(13) & Chr(10) & "x2為:" & a2 & "取整為：" & Val(Fix(a2))
     Case Else
     Label1.Caption = "這個方程在實數範圍內無解"
     End Select
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command1.Caption = "二元一次方程為"
Label1.Caption = ""
End Sub