vb求一维数组最值函数