Private Sub Command1_Click() Sum = 0 i = 101 Do Sum = Sum + i i = i + 2 Loop Until i > 500 Print "Sum="; SumEnd Sub
