求数列2 1 3 2 5 3 VB