* VFP写程序 统计3-200之间的素数个数及所有素数之和
SuShuHe=0 &&素数和
SuShuGe=0 &&素数个
for sushu=3 to 200
SuShuFt=.t.
for aa=2 to SuShu-1
if mod(SuShu,aa)=0
SuShuFt=.f.
exit
endif
endfor
if SuShuFt
SuShu
SuShuGe=SuShuGe+1
SuShuHe=SuShuHe+SuShu
endif
endfor
'个数',SuShuGe
'合计',SuShuHeSuShuFt是什么？SuShuFt是否素数