VB题目求数列2 1 3 2