Как переделать конструкцию на цикл While?

Question

[Amalat]

Можно ли переделать нижеприведённую конструкцию из цикла For в цикл While?

Public Sub example1()
Dim N As Integer
Dim i As Integer
Dim Sum As Long
N = InputBox("Введите целое число")
Sum = 0
For i = 2 To N Step 2
 Sum = Sum + i
Next i
MsgBox "Сумма= " + Str(Sum)
End Sub

Comments

[Александр]

Вас какой ответ интересует?