clear
i=100
s=0
do while i<=200
m=1
for k=2 to i-1
if mod(i,k)=0
m=0
endi
endf
if m=1
s=s+1
endif
i=i+1
enddo
dime a(s)
j=100
b=1
do while j<=200
m=1
for k=2 to j-1
if mod(j,k)=0
m=0
endi
endf
if m=1
a(b)=j
b=b+1
endif
j=j+1
enddo
b=1
do while b<=s
for k=1 to 10
??a(b)
b=b+1
if b>s
exit
endif
endfor
?
endd
用VF运行过,成功通过,没有错误····
i=100
do while(i<200)
i=2
do while (j if i/i=int(i/j)
exit
endif
enddo
if i/j<>int(i/j)
?i ,
endif
enddo