我想用VB做一个求某个范围内素数的程序，咋搞？

Private Sub ss(ByRef x() As Long, ByRef xcount As Long, ByVal Sform As Long, ByVal Sto As Long)
Dim i As Long
Dim j As Long
xcount = 0
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
End Sub
'调用示例
Private Sub Command1_Click()
Dim x() As Long
Dim xcount As Long
ss x(), xcount, 2, 100
For i = 1 To xcount
Print x(i)
Next i
End Sub
一个自然数只有1和它本身可以整除它，这样的自然数是素数。最下的素数是2。
两个我都试了 好象都不好使 也许是我出错了
你先给个素数的定义
以100内素数为例..
for i= 2 to 100
for j= 2 to j
mod(j,i)<>0
?i
exit
endfor
endfor
好久没编了~快忘了~大概试这样的~我没调试~你试试...