工艺如下：

第一个3秒后温度TB=18。此时应输入功率
W0＝724-1.035T=724-1.035*18=705KW
dS＝18-0=18
此时PID后应输入功率
W0＝705-0.8T=705-0.8*(18+18/20+10*18)=546KW
546KW*3/120=14度


第2个3秒后温度TB=18+14＝32。此时应输入功率
W0＝724-1.035T=724-1.035*32=690KW
dS＝14-18=-4
此时PID后应输入功率
W0＝690-0.8T=690-0.8*(14+14/20-10*4)=710KW
710KW*3/120=18度


第3个3秒后温度TB=32+18＝50。此时应输入功率
W0＝724-1.035T=724-1.035*50=672KW
dS＝18-14=4
此时PID后应输入功率
W0＝672-0.8T=672-0.8*(18+18/20+10*4)=624KW
624KW*3/120=16度


第4个3秒后温度TB=66。此时应输入功率
W0＝724-1.035T=724-1.035*66=656KW
dS＝16-18=-2
此时PID后应输入功率
W0＝656-0.8T=656-0.8*(16+16/20-10*2)=659KW
659KW*3/120=16.5度


第5个3秒后温度TB=82.5。此时应输入功率
W0＝724-1.035T=724-1.035*82.5=638.6KW
dS＝16.5-16=0.5
此时PID后应输入功率
W0＝638.6-0.8T=638.6-0.8*(16.5+16.5/20+10*0.5)=620KW
620KW*3/120=15.5度

第6个3秒后温度TB=98。此时应输入功率
W0＝724-1.035T=724-1.035*98=623KW
dS＝15.5-16.5=-0.5
此时PID后应输入功率
W0＝623-0.8T=623-0.8*(15.5+15.5/20-10*0.5)=614KW
614KW*3/120=15.3度


第7个3秒后温度TB=113.3。此时应输入功率
W0＝724-1.035T=724-1.035*113.3=607KW
dS＝15.3-15.5=-0.2
此时PID后应输入功率
W0＝607-0.8T=607-0.8*(15.3+15.3/20-10*0.2)=593KW
593KW*3/120=14.8度


第8个3秒后温度TB=128.1。此时应输入功率
W0＝724-1.035T=724-1.035*128.1=591KW
dS＝14.8-15.3=-0.5
此时PID后应输入功率
W0＝591-0.8T=591-0.8*(14.8+14.8/20-10*0.5)=583KW
583KW*3/120=14.5度

重复以上步骤，无限长时间以后，TB＝？
我希望得到每一个3秒时长时，TB的值，TB为工件的温度。请求达人给编个VB程序，深表谢意。若去旺点跟帖，独立提供完整程序的每个热心人（雷同的不奖），都给100旺币的奖励。