请问这个程序怎么编？

有如下式子：
    （A-z）^T * Q * （A-z）< x
     其中，A为6行1列向量，为已知值。Q为6*6，^T表示转置。
     z同样为（6,1）。但是z中每一个元素取值都是从-5--5。共11位。
     请问这样的循环该怎么编写，粗略计算了一下，需要运行几亿次。
     想了好几天都没有一个比较合适 优化的循环。
 
      中间的矩阵相乘用call表示即可 

      谢谢！

补充：VB ,  基础类