VB中求素数的公式