var i=0,sum=eval('0'+new Array(101).join('+(++i)'));

eval('0'+new Array(11).join('+Math.pow(++i,2)')) //計算1-10的平方和
eval('0'+new Array(100/2).join('+(i+=2)')) //計算2+4+6+...100的和

Dim a(101)
Execute(Join(a,"s=s+i:i=i+1:"))
MsgBox s