Question

即求高手,VB编写如下程序，注意互相调用函数计算值 非常感谢，谢谢l 可以给 你我的全部积分，谢谢了！

已知：T(i,j,0)=1530,m=100,n=100, p=100
i= 0 to m, j=0 to n, K= 0 to P-1
编写以下程序：
T(0,0,k+1) = T(0,0,0) + 2( T(1,0,k) + T(0,1,K) - 2T(0,0,K) )

T(0,n,k+1) = T(0,n,k) + 2 ( T(0,n-1,k) + T(1,n,K) - 2T(0,n,K) )

T(m,0,k+1) = T(m,0,0) + 2 (T(m,1,k)+T (m-1,0,K) - 2T(m,0,K) )

T(0,j,k+1) = T(0,j,k) + 2 ( T(0,j+1,k) + T(0,j-1,K) - 2T(0,j,K) ) （j=1,2,3,....,n-1）

T(i,0,k+1) = T(i,0,k) + 2 ( T(i,1,k) + T(i+1,0,K) + T(i-1,0,k) + 2T(0,0,K) )
(i=1,2,3,...,m-1)

T(i,j,k+1)=T(i,j,k) + 2 ( 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) )
(i=1,2,3,...,m-1; j=1,2,3,.....,n-1)

T(m,n,k+1)= T(m,n,k) + 2 ( T(m,n-1,k) + T(m-1,n,k) +2 T(m,n,k) )

T(m,j,k+1)= T(m,j,k) + 2 ( T(m,j+1,k) + T(m,j-1,k) + 2 T(m-1,j,k) -4 T(m,j,k) )
(j=1,2,3,...,n-1)

T(i,n,k+1)=T(i,n,k) + 2 ( 2 T(i,n-1,k) + T(i+1,n,k) + T(i-1,n,k) - 4 T(m,j,k) )
(i=1,2,3,...,m-1;)

请计算上述结果，并且分别创建Txt文件依次 输出结果，
例如 1.txt 输出T(0,0,k) 的结果
2.txt输出T(0,n,k)的结果
。。。。。。。。
结果显示格式为：
以1.txt的格式为例如下
T(0,0,0) 1530
T(0,0,1) xxxx
........... ...........
T(0,0,k) xxxx

Answer 1

用fso