vb sqr函数