Ошибка "Loop without Do", хотя в коде они есть - VB

Формулировка задачи:

Найти первый отрицательный член последовательности cos(ctg(n)) для n изменяющегося следующим образом: n = 1, 2, 3, ... .

                    Листинг программы
                
 
                        
                          
                    
Sub Tim()
Dim n As Integer
Dim Y As Integer
n = 1
Do
    Y = Cos(1 / Tan(n))
    If Y < 0 Then
    Debug.Print "n="; n, "Y="; Y: GoTo M
    Else
    n = n + 1
Loop While Y >= 0
M:     End If
End Sub

Помогите исправить код, пишет ошибку "Loop without Do". Заранее спасибо!)

Решение задачи: «Ошибка "Loop without Do", хотя в коде они есть»

textual
                            Листинг программы 
                        
While Y >= 0

Оцени полезность:

7 голосов , оценка 3.714 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы