求素数的vb语言程序