vb一个数组某一个数最小值函数