一招最简单的办法:
    for 第一节 to  第1000节
     for 第一节 to 第1000节
       for t=1 to 1000
         计算出方差累加和
         DoEvents
       next
        if 累加和/1000<门限值
           配组数++             (当然,这么做最终配组的电池包括它自己)
        next
     next
    next