vb中fix函数