Delphi вики
Advertisement

http://office-guru.ru/excel/cikly-v-vba-463.html

Цикл For

For i = 1 To 10
  Total = Total + iArray(i)
Next i


For d = 0 To 10 Step 0.1
  dTotal = dTotal + d
Next d


For i = 10 To 1 Step -1
  iArray(i) = i
Next i


Цикл Do While

Advertisement