VB高手帮个忙

来源：百度知道 编辑：UC知道 时间：2024/06/08 22:31:12
麻烦哪位高手做一个求0-300之间所有质数的程序
我等这么久了~~~就每个人帮帮忙？？
真程序很难吗？？

这个很简单啊，大概是因为你的悬赏分没人看

Private Sub Form_Click()
Dim i As Integer
For i = 1 To 300
If isprime(i) Then Print i
Next
End Sub

Function isprime(n As Integer) As Boolean
isprime = True '赋初值
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then '如果能除尽
isprime = False '证明是素数
Exit For
End If
Next i
End Function

Dim a(300)

For i = 2 To 100
For j = i To 100 / i
a(i * j) = 1
Next
Next
For i = 2 To 100
If a(i) = 0 Then
Print i
End If
Next