vb s=0 n=1 do while n<=10 s=n/5 n=n+2 if s<>0 then y=1+s else:y=1-2*s loop print y

s=0 n=1 do while n<=10 当N小于等于10时执行循环体 s=n/5 S等于N除5 n=n+2 给N加上2 if s0 then y=1+s else:y=1-2*s 如果S不等于0，Y等于1+S，否则，Y＝1-2*S loop 'DO 和LOOP之间的代码为循环体，返回到DO检查 循环条件 print y 打印Y的值