求高手VB编辑下面公式

求高手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)) ..
.

条件不够吧?
当求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个不知道.
这是求多元方程么?
再问： 忘了加上了，这几个数均为15，R为6
再答： 当求T(10,10,0)时，后面要用到：T(10,10,10)+R * (T(11,10,0)+T(9,10,0)+T(10,11,0)+T(10,9,0)-4T(10,10,0)) 下标都会超过10，所以i，j都只能到9 Option Explicit Private Sub Command1_Click() 'Text1设置多行为multiline=true,ScrollBars = 3 Text1 = "" Dim i%, j%, k% Dim T(-1 To 10, -1 To 10, 0 To 10) As Double, R% Const ceshi As Double = 2.29 Dim M% R = 15 T(0, 0, 0) = 15: T(1, 0, 0) = 15: T(-1, 0, 0) = 15: T(0, 1, 0) = 15: T(0, -1, 0) = 15 For i = 0 To 10 For j = 0 To 10 For k = 0 To 10 If T(i, j, k) 15 Then T(i, j, k) = ceshi '测试哪些需要用到的数没有赋值,巨多 Next k Next j Next i Text1 = "T(0,0,0)=" & T(0, 0, 0) For i = 0 To 9 '如果到10，公式里面的下标会超过10 For j = 0 To 9 For k = 0 To 9 If T(i + 1, j, k) = ceshi Then '测试哪些需要用到的数没有赋值,巨多 T(i + 1, j, k) = 15 Debug.Print "T(" & i + 1 & "," & j & "," & k & ")", M = M + 1 End If If T(i - 1, j, k) = ceshi Then T(i - 1, j, k) = 15 Debug.Print "T(" & i - 1 & "," & j & "," & k & ")", M = M + 1 End If If T(i, j + 1, k) = ceshi Then T(i, j + 1, k) = 15 Debug.Print "T(" & i & "," & j + 1 & "," & k & ")", M = M + 1 End If If T(i, j - 1, k) = ceshi Then T(i, j - 1, k) = 15 Debug.Print "T(" & i & "," & j - 1 & "," & k & ")", M = M + 1 End If 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) - 4 * T(i, j, k)) Text1 = Text1 & vbCrLf & "T(" & i & "," & j & "," & k + 1 & ")=" & T(i, j, k + 1) Next k Debug.Print Next j Next i 'i>5时有点卡了 MsgBox M & "个需要用到的数没有赋值" End Sub