如何用vb求出一个范围内的素数，越详细越好

For i = Sform To Sto
j = 2
Do Until (i Mod j) = 0 Or j > i / 2
j = j + 1
Loop
If j > i / 2 Then
xcount = xcount + 1
ReDim Preserve x(1 To xcount) As Long
x(xcount) = i
End If
Next i
主要是这块起作用；判断该数除以从2到小于这个数的所有数；如果有能被整除的；退出循环，不用再判断，得出这个数一定不是素数；如果都不能被整除，则这个数就是素数~这就是原理~