求助，请大佬帮忙写出下面两题的VB代码

[千山暮雪夜将离]

在线等！很急！谢谢！

[vansoft]

for i=2000 to 3000 n1=val(left(cstr(i),1)) n2=val(mid(cstr(i),2,1)) n3=val(mid(cstr(i),3,1)) n4=val(right(cstr(i),1) if n1+n2=n3+n4 then debug.print i next msgbox "QQ=5507350"

[千山暮雪夜将离]

引用 1 楼 vansoft的回复:

for i=2000 to 3000 n1=val(left(cstr(i),1)) n2=val(mid(cstr(i),2,1)) n3=val(mid(cstr(i),3,1)) n4=val(right(cstr(i),1) if n1+n2=n3+n4 then debug.print i next msgbox "QQ=5507350"

最后的msgbox是为了做什么呢？