vb中prime函数