vb求100以内的素数并输出