vb最小值函数