vb中高斯赛德尔迭代循环，循环语句是什么

Question

例子 
先假设一个初始温度场，6个节点温度都假设为0
即刚开始 a（i）=0
b(i)=a(i)     'b(i)用来记录存放初始温度作比较
wucha=1
do while wucha>0.001            '知道误差满足收敛要求才退出循环
for i=1 to 6
 a（i）=(a(i+1)+a(i-1))/2.05    'a(i)用前后两个点温度不断地计算迭代
 a(5)=a(4)
wucha=0
wucha=wucha+（abs（a(i)-b(i)））/7 
loop
print a(i)
问题只程序只能算1到6一次循环 而不能将新的a（i）替代进去，不能判断收敛，怎么才能判断收敛条件（就是误差小于0）循环才结束呢，？

Answer 1

http://download.csdn.net/detail/veron_04/3058640