vb输入一个任意正整数,判断其是否为素数