Dim Sum As IntegerDim i As Integer = 1Do While i <= 100 Sum = Sum + i i = i + 1 If i > 50 Then Exit Do End IfLoopOutput.Show(Sum)