谁帮忙写个二元一次方程的VB程序啊

迭代法是用于求方程或方程组近似根的一种常用的算法设计方法。设方程为f(x)=0，用某种数学方法导出等价的形式x=g(x)，然后按以下步骤执行：
（1） 选一个方程的近似根，赋给变量x0；
（2） 将x0的值保存于变量x1，然后计算g(x1)，并将结果存于变量x0；
（3） 当x0与x1的差的绝对值还小于指定的精度要求时，重复步骤（2）的计算。
若方程有根，并且用上述方法计算出来的近似根序列收敛，则按上述方法求得的x0就认为是方程的根。

一下是VB.NET代码

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Dim A, B, C As Double '系数
Dim x1, x2 As Double '方程的两个解
Dim info As String '输出结果

A = CDbl(txt1.Text)
B = CDbl(txt2.Text)
C = CDbl(txt3.Text)

'根据b*b-4ac判断方程的解

If ((B * B - 4 * A * C) = 0) Then
info = "x1=x2=" & res(A, B, C) '方程只有1解
ElseIf ((B * B - 4 * A * C) > 0) Then
x1 = res(A, B, C) '方程有两个解
x2 = -(B / A + x1)
inf