189 8069 5689
declare
创新互联主要从事成都网站制作、成都做网站、外贸营销网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务围场,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
i int:=0;
j int:=0;
begin
while i=100 loop
j:=j+i;
i:=i+2;
end loop;
Dbms_Output.Put_Line(j);
end;
mod（x,y）函数的意义是 求x除以y的余数，例如mod（5，2）=1，5除以2余1，mod（2,2）=0, 2除以2等于1余数是0，所以答案是0，这个程序块就是利用这样的求余的原理来循环判断1-100之间的偶数，凡是能被2除尽的就是偶数。
代码中FOR循环100次，i从100开始反向循环，99,98··以此类推到1截止退出循环。
if mod(i,2)=0 --
mod(i,2)=0的意思是i除以2无余数，如果无余数，则说明i是偶数（只有偶数除以2才能除尽）。
then s:=s+i; --
那么变量s加上这个偶数i变成新的s，进入到下一个循环判断，若非偶数直接进入下个循环，若为偶数s的值累加，直到循环结束，100以内所有的偶数累加成为最终的变量S。
这个用 Excel 就可以实现了，
1。先在一个单元格输 2，
2。然后下面那个输 4，
3。接着选中这两个单元格，把鼠标放到右下角，变成黑色加号后，往后拖，一直到 98 为止，
4。最后，把这些单元格自动求和，即可。