中科新闻网厚田沙漠是人工的吗:我想用VB做一个求某个范围内素数的程序，咋搞？
来源：百度文库 编辑：中科新闻网 时间：2024/05/08 08:38:09
我想用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
以100内素数为例..
for i= 2 to 100
for j= 2 to j
mod(j,i)<>0
?i
exit
endfor
endfor
好久没编了~快忘了~大概试这样的~我没调试~你试试...
你先给个素数的定义