Программа На Языке Vba

[kira95]

Написать фрагмент программы на VBA для нахождения произведения чисел с шагом 2 на интервале от -10 до 10 используя For-Next, Do-Loop While с предпосылкой и Do-Loop Until с послесловием

 

[FelixMacintosh]

dim f& 'Объявление переменной F с типом Long (можно и так: dim f as Long )

for f = -10 to 10 step 2 'Инициализация цикла с шагом добавления =2
'Тело цикла здесь можно разместить ваши инструкции
next

'@@@@@@@@@@@@@@@@@@@

f= - 10: do 'Присвоение f и инициализация цикла
if f >= 10 then exit do 'Условие выхода
f=f + 2
loop

'@@@@@@@@@ П о с л е с л о в и е ) @@@@@@@@@@

f= - 10: do 'Присвоение f и инициализация цикла
f=f + 2
loop until f >= 10 'Условие выхода

'@@@@@@@@@@@@@@@@@@@

f= - 10: do while f< 10 'продолжать цикл пока f<10
f=f+2
loop 'Закрывающий оператор

'@@@@@@@@@@@@@@@@@@@

'Можно ещё и так:
f= - 10: while f< 10 'продолжать цикл пока f<10
f=f+2
wend 'Закрывающий оператор