Преобразование Do While Looping для следующего цикла

Question

Мне нужна помощь в преобразовании этого кода с Do Loop While и Do While Loop в конец: For...Next looping. Я использую Visual Basic 2010 Express в качестве программы для запуска этих кодов и был бы очень признателен, если бы кто-нибудь мог мне помочь. Ниже приведен код, который необходимо преобразовать в тип For ... Next looping. Еще раз спасибо всем, кто может помочь.

Private Sub btnDo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDo.Click 
    Dim intNum, intSum As IntegerDo 
    intSum += intNum ‘accumulator/running total 
    intNum += 2  ‘update intNum 
    Loop While (intNum <= 50) 
     Me.lblDoAnswer.Text = intSum.ToString 
End Sub 

Private Sub btnDoWhile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles btnDoWhile.Click Dim intNum, intSum As Integer  
    Do While (intNum <= 50) 
     intSum += intNum ‘accumulator/running total 
     intNum += 2  ‘update intNum 
    Loop 
    Me.lblDoWhileAnswer.Text = intSum.ToString 
End Sub 

Answer 1

Попробуйте это:

For intNum As Integer = 0 To 50 Step 2 
    intSum += intNum ‘accumulator/running total 
Next 

Примечание: Step 2 является эквивалентом intNum += 2 синтаксиса вы имели в цикле Do.