请教！求100以内的孪生素数？

[chianbird]

我刚学VB，就碰到这个题目。在c中很好做，可是到vb中就是弄不对，现来请教各位了，请多多帮忙！

[crystal_heart]

up

[ucme]

什么叫孪生素数啊？不明白，能说清楚点吗？

[Arcan]

全部代码

Private Function IsPrimeNumber(N As Long) As Boolean
Dim Ed As Integer
IsPrimeNumber = True
Ed = Sqr(N)
For i = 2 To Ed
If (N Mod i) = 0 Then
IsPrimeNumber = False
Exit For
End If
Next i
End Function



Private Sub Command1_Click()
Dim i As Long
For i = 3 To 99 Step 2
If IsPrimeNumber(i) And IsPrimeNumber(i + 2) Then List1.AddItem Str(i) + Str(i + 2)
Next i
End Sub

[tgc99]

抄袭一下楼上。。

Private Sub Command1_Click()
Dim i As Long
For i = 3 To 99 Step 2
If IsPrimeNumber(i) And IsPrimeNumber(i + 2) Then List1.AddItem Str(i) + Str(i + 2)
Next i
End Sub

Private Function IsPrimeNumber(N As Long) As Boolean
Dim Ed As Integer
IsPrimeNumber = True
Ed = Sqr(N)
For i = 2 To Ed
If (N Mod i) = 0 Then
IsPrimeNumber = False
Exit For
End If
Next i
End Function