Помогите на бейсике пожалуйста

Помогите на бейсике пожалуйста
С модулем че то ошибку подает, заранее спасибо
Module Module1

Sub Main()
Dim a0 As Single
Dim b0 As Single
Dim k As Single
Dim l As Single
Dim y0 As Single
Dim z0 As Single
Dim f(z0) As Single
Dim yk As Single
Dim zk As Single
Dim ak As Single
Dim bk As Single
Dim a(k + 1) As Single
Dim b(k + 1) As Single
Dim y(k + 1) As Single
Dim z(k + 1) As Single
Dim D As Single
Dim Abs As Single
a0 = Val(InputBox("Введите а0"))
b0 = Val(InputBox("Введите b0"))
l = Val(InputBox("Введите l"))
k = 0
y0 = a0 + 0.382 * (b0 - a0)
z0 = a0 + b0 - y0
f(zk) = 2 * zk * zk - 12 * zk
f(yk) = 2 * yk * yk - 12 * yk
If f(yk) > f(zk) Then
a(k + 1) = yk
b(k + 1) = bk
y(k + 1) = zk
z(k + 1) = ak + 1 + bk + 1 - zk
Else
a(k + 1) = ak
b(k + 1) = zk
y(k + 1) = a(k + 1) + b(k + 1) - yk
z(k + 1) = yk
End If
If D = Math(Abs(a(k + 1) - b(k + 1))) < = l Then
MsgBox("Процесс поиска завершается x принадлежит интервалу [" & a(k + 1), b(k + 1))
Else
k = k + 1
End If
End Sub

End Module

  • Dim a(k + 1) As Single КАК ТАК?? ? что за фантомные переменные?

    If D = Math(Abs(a(k + 1) - b(k + 1))) < = l Then
    MsgBox("Процесс поиска завершается x принадлежит интервалу [" & a(k + 1), b(k + 1))
    Else
    k = k + 1 // ну вот выполнилось это условие, и что? ? выход! КАК ТАК?
    End If

    если чье то копируете, то целиком надо брать а не коряво!