稳态导热VB码

代码说明：

二维稳态导热的VB代码计算，采用有限差分，自己更改边界条件，进行各类边界条件的计算，分网大小自己进行更改 Private sub command() Dim i as integer ,j as integer ,k integer,n as integer Dim a as variant a=array(0.92,0.6,0.58,0.41,0.1,0.1,0.1) b=array(0.7,0.58,0.43,0.35,0.228,0.28) d=array(0.345,0.005,0.065,0.115,0.23,0.23)