[اسلام عمر 1]

1. Dim A as Integer = 2 , Sum as Integer
2. Do While A<=10
3. Sum = Sum + A
4. A = A+ 2
5. Loop
6. Msgbox( sum )