帮改一段很短的代码，RMB报酬，有意的加Q。

帮改一段很短的代码，RMB报酬，有意的加Q：941200
加的时候请写上验证信息，谢谢。 --------------------编程问答-------------------- 友情帮顶一下 --------------------编程问答-------------------- 加不上！QQ：1171959815 --------------------编程问答-------------------- 先说说改什么功能

补充：VB ,  网络编程