求高手VB编辑下面公式

求高手编辑下面公式
T(i,j,k+1)=T(i,j,k)+R * (T(i+1,j,k)+T(i-1,j,k)+T(i,j+1,k)+T(i,j-1,k)-4T(i,j,k))
其中,i,j,k是变化的
      i=0 to 10
           j=0 to 10
          k=0 to 10
   T(0,0,0)=15
  不调用Execl，不调用的情况下用Txt输出结果
结果表示为
T(0,0,0) 15
T(0,0,1)  ..
T(0,0,2)  ..
T(0,0,3)) ..
............

追问：忘了加上了，这几个数均为15，R为6

答案：条件不够吧？
当求T(0,0,1)时，后面要用到：T(0,0,0)+R * (T(1,0,0)+T(-1,0,0)+T(0,1,0)+T(0,-1,0)-4T(0,0,0))
下标还有负数，而且5个数，4个不知道。
这是求多元方程么？

其他：如何用VB控制word，并且向word里自动的写入公式，求高手帮忙，多谢！可以追加1、先引用microsoft word 11.0 object library 2、代码，下面是一个例子， 

上一个：用vb求，斐波那契数列的前二项是1，1，以后每一项都是前面两项之和。求此数列的第35项数是多少？
下一个：用VB语言6.0设计一个简单的选课系统（要源代码的）