Вывод значения из промежуточной итерации для дальнейшего использования в цикле - VB

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

Добрый день! В цикле Do ... Loop Until мне необходимо определить номер итерации, в которой выполняется определенное условие, а затем использовать это значение (номер итерации) в последующих итерациях. ЗЫ Сам не программист, пишу в бэйсике прогу для диплома

Решение задачи: «Вывод значения из промежуточной итерации для дальнейшего использования в цикле»

textual
                            Листинг программы 
                        

                            y=0
...
Do
...
If s > 0 Then 
   sopt = sopt - 1 
   mopt = mopt + 1 
   If sopt < 0 Then 
      mark=1
      R=y 'отправить это значение в какое-то хранилище данных, в котором бы не происходили изменения с последующими циклами
      sopt = 0 
      mopt = navo 
      iopt = 0 
   End If 
End If
 
y=y+1
 
If mark=1 Then 
   mopt = mopt - (y-R) 
   iopt = iopt + (y -R)
End If
 
Loop Until...
                        

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

9 голосов , оценка 4.333 из 5

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