vb编写函数fun,求大于等于n的最小十个素数之和