vb编程求1 2 3 N