编程:求“50+048+46+……+j”的和大于500后的第一个值,即j的值为多少?
谢谢!
A
dim s as integer
dim i as integer
j=50
do
s=s+50
j=j-2
loop until s>500
msgbox j