Dim Sum As IntegerDim i As Integer = 0Do While i < 100 i = i + 1 If i Mod 2 = 0 Then Continue Do End If Sum = Sum + iLoopOutput.Show(Sum)