vb计算前15项2 3 2 5 3