Помогите11 НА бейсике проблема

Помогите11 НА бейсике проблема
программа работает но постоянно выдает ответы 0;0 и х=0. Посмотрите пожалуйста что нетак
Sub Main()
Dim a0, b0, e, k, x As Integer
Dim xsr(100) As Single
Dim L(100) As Single
Dim y(100) As Single
Dim a(100) As Single
Dim b(100) As Single
Dim z(100) As Single
Dim f1, f2, f3 As Single
a0 = Val(InputBox("Введите а0"))
b0 = Val(InputBox("Введите b0"))
e = Val(InputBox("Введите e"))
k = 0
xsr(k) = (a(k) + b(k)) / 2
L(k * 2) = Math.Abs(b(k) - a(k))
f1 = 2 * xsr(k) * xsr(k) - 12 * xsr(k)
y(k) = a(k) + L(2 * (k)) / 4
z(k) = b(k) - L(2 * (k)) / 4
30: f2 = 2 * y(k) * y(k) - 12 * y(k)
f3 = 2 * z(k) * z(k) - 12 * z(k)
If f2 < f1 Then
b(k + 1) = xsr(k)
a(k + 1) = a(k)
xsr(k + 1) = y(k) : GoTo 10
Else
If f3 < f1 Then
a(k + 1) = xsr(k)
b(k + 1) = b(k)
xsr(k + 1) = z(k) : GoTo 10
Else
a(k + 1) = y(k)
b(k + 1) = z(k)
xsr(k + 1) = xsr(k)
End If
10: L((k + 1) * 2) = Math.Abs(b(k + 1) - a(k + 1))
If L((k + 1) * 2) < = e Then
MsgBox(a(k + 1) & " " & b(k + 1))
x = xsr(k + 1)
MsgBox("x=" & x)
Else
k = k + 1 : GoTo 30
End If
End If
End Sub

End Module

  • Собственно, программа делает ровно то, что написал.. .
    Подсказка: a0 это не a[0]