如何用VFP编程“100到1000的素数”

clear
for i=100 to 1000
for j=2 to int(sqrt(i))
if i%j=0
exit
endif
endfor
if j>=int(sqrt(i))
?i,"是素数"
else
?i,"不是素数"
endif
endfor

Dim i, j As Integer
Dim a As Single
For i = 100 To 1000
For j = 1 To j - 1
If i Mod j = 0 Then
a = a & i
End If
Next
Next
MessageBox.Show(a)

Dim i, j As Integer
Dim a As Single
For i = 100 To 1000
For j = 2 To i - 1
If (i Mod j ) = 0 Then GoTo NotNextM
Else
sum = sum + i
Next i
End If
print sum

NotNextM:
Next m
End sub

当心中奖受骗！“知5道0提5示”是骗子！

liuhao8640 编的是“VB”程序！

VFP 的程序如下：
set talk off
clear

k=0
for i=100 to 1000
flag=.t. && 假设n是素数
for j=2 to (sqrt(i))
if mod(i,j)=0
flag=.f.
endif
endf

if flag