一道vf程序题，关于循环嵌套的，会的大神帮解答一下

这是一个求质数和的代码 ，代码 没有问题，

计算出来5以内的质数和为10

FOR I=2 TO 5，取得各数，通过第二个FOR循环体来判断是否质数。

FOR J=2 TO 4，计算有没有能被I整除的数（ if i%j=0），不包括1和I本身，如果有，不累加I至S（exit），如果没有，累加I至S（if j>=i）。

代码进行如下修改，更易理解。

clea 

s=0

for i=2 to 5 

    for j=2 to i

        if j>=i

            s=s+i

        endif

        if i%j=0

            exit

        endif

    endfor

endfor

?' s=',s

a=3

do while a<=200

do case

case a/2=int(a/2)

a=a+1

loop

case a/3=int(a/3)

if a/3=1

??str(a,3)+","

endif

a=a+1

loop

case a/5=int(a/5)

if a/5=1

??str(a,3)+","

endif

a=a+1

loop

case a/7=int(a/7)

if a/7=1

??str(a,3)+","

endif

a=a+1

loop

otherwise

?? str(a,3)+","

a=a+1

enddo

如果是仅仅4位数字,是可以简化的.

input "请输入4位数字:" to nshuzi

if vartype(nshuzi)='N'

cshuzi=allt(str(nshuzi))

if len(cshuzi)=4

cxulie='零壹贰叁肆伍陆柒捌玖'

cdaxie=''

cc1=substr(cshuzi,1,1)

cc11=substr(cxulie,2*val(cc1)+1,2)

cc2=substr(cshuzi,2,1)

cc22=substr(cxulie,2*val(cc2)+1,2)

cc3=substr(cshuzi,3,1)

cc33=substr(cxulie,2*val(cc3)+1,2)

cc4=substr(cshuzi,4,1)

cc44=substr(cxulie,2*val(cc4)+1,2)

cdaxie=cc11+'仟'+cc22+iif(cc22='零','','佰')+cc33+iif(cc33='零','','拾')++cc44+'圆整'

endif

endif

?cdaxie

---