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

Question

[Amalat]

Можно ли заменить цикл For на While, а If на Select Case ?

Public Sub example2()
Dim N As Integer
Dim i As Integer
Dim Sum As Long
Dim Var As Integer
N = InputBox("Введите целое число")
Var = InputBox("Вариант расчета (0-все, 1-чет., 2-неч.)")
If Var = 0 Then 'подсчет всех чисел
 Sum = 0
 For i = 1 To N
 Sum = Sum + i
 Next i
 MsgBox "Сумма= " + Str(Sum)
ElseIf Var = 1 Then 'подсчет четных чисел
 Sum = 0
 For i = 2 To N Step 2
 Sum = Sum + i
 Next i
 MsgBox " Сумма = " + Str(Sum)
ElseIf Var = 2 Then 'подсчет нечетных чисел
 Sum = 0
 For i = 1 To N Step 2
 Sum = Sum + i
 Next i
 MsgBox " Сумма = " + Str(Sum)
Else
 MsgBox "Неправильный вариант расчета "
End If
End Sub

Answer 1

[Sergey В.]

Судя по коду и вопросу, Вы просто не хотите учиться. Может найти другой ВУЗ?