VB求用循环实现s=1 3 .... 99的值