直接使用MID函数即可，代码如下： Dim zj_bl as string dim bl(2) as string zj_bl="060960" bl(0)=Mid(zj_bl,1,2)'取前俩位06 bl(1)=Mid(zj_bl,3,2)'取中间俩位09 bl(2)=Mid(zj_bl,5,2)'取最后俩位60 当然取前俩位也可用Left函数,则： bl(0)=Left(zj_bl,2) 当然取后俩位也可用Right函数，则： bl(2)=Right(zj_bl,2) 取中间俩位09只能用MID函数
答：用VB就不能向C那样用递归了。所以只能用自己写的一个函数循环调用了。 你从3开始，一次+1取得一个数M,n(i)是已经取得的素数数组， 然后用一循环，做(M m...详情>>
