VB利用一维数组生成两个等差数列A=3,10