vb求素数程序