学步园

 dim startTime,endTime,sum,a,b
startTime=now()
MsgBox "开始运算",64,"提示"
a=1000
   b=9999
for i=0 to 10000000
  
   sum=a*b*i
next
endTime=now()

  MsgBox "运算结束，你花费了"&(endTime-startTime)&"秒钟",64,"提示"