Вычисление и сравнение массива с числом

Доброе всем время суток.
Кто подскажет что Я не так прописал в этом кроде. Условие задачи звучит так:
При заданных А и В подсчитать, сколько кругов с заданными радиусами R1, R2, R3,...,Rn имеют большую площадь чем прямоугольник со сторонами A и В.

Dim X(1 To 10) As Single
Dim n, k As Integer
Dim A, B, V, D, Z As Single
Private Sub Command1_Click()

Z = 0
n = Text2.Text 'количество массивов'


For k = 1 To n Step 1
X(k) = Val(Text1(k).Text)
Next k


For k = 1 To n Step 1
D = 2 * 3.14 * ((X(k)) ^ 2) 'площадь окружностей с радиусом X(k) - массив'
Next k

For k = LBound(X) To UBound(X)
If X(k) > 0 Then Z = Z + X(k)
Next k

If D > V Then
Text7.Text = Z
End
If D < V Then
Text7.Text = ""
End
End Sub
Private Sub Command2_Click()
Dim n, k As Integer

n = Text2.Text

Randomize
For k = 1 To n Step 1
X(k) = Round(Rnd() * 100, 0)
Next k

For k = 1 To n Step 1
Text1(k).Text = X(k)
Next k

End Sub
Private Sub Command3_Click()
Dim n, k As Integer

n = Text2.Text

For k = 1 To n Step 1
Text1(k).Text = ""
Next k

End Sub
Private Sub Command4_Click()
End
End Sub




Private Sub Command5_Click()
A = Text4.Text
B = Text5.Text
V = A * B 'площадь прямоугольника'
Text6.Text = V
End Sub


выдаёт ошибку в этой процедуре:
Private Sub Command1_Click()

Z = 0
n = Text2.Text 'количество массивов'


For k = 1 To n Step 1
X(k) = Val(Text1(k).Text)
Next k


For k = 1 To n Step 1
D = 2 * 3.14 * ((X(k)) ^ 2) 'площадь окружностей с радиусом X(k) - массив'
Next k

For k = LBound(X) To UBound(X)
If X(k) > 0 Then Z = Z + X(k)
Next k

If D > V Then
Text7.Text = Z
End
If D < V Then
Text7.Text = ""
End
End Sub


Ошибка компиляции Block If without end if.

Пооомгите пожалуйста....

В заранее спасибо

по всей видимости нужно так
или так
хотя этот участок кода мне кажеться странным

0

0