已解决，自己写了个程序算是抛砖引玉：
forvalue i=1(3) 84{
  local j=`i'+1
  local k=`i'+2
  gen b`i' =a`i'+a`j'+a`k'
}
如果新生成的变量b需要按下标从小到大排列的话，继续执行下面的程序
forvalue i=1(1) 28{
  local h=`i'*3-2
  rename b`h' b`i'
}