230问答网 > 求VB大神：两个相差为2的素数对事孪生素数，单击按钮，在文本产生100以内的孪生素数

求VB大神：两个相差为2的素数对事孪生素数，单击按钮，在文本产生100以内的孪生素数

回答发我2602757184@q

2024-12-17 05:41:05

推荐回答（2个）

回答1：

Private Function isprime(n As Integer) As Boolean
Dim i As Integer
isprime = True
For i = 2 To Sqr(n)
  If n Mod i = 0 Then
    isprime = False
    Exit For
  End If
Next i
End Function
 
Private Sub Command1_Click()
Dim i As Integer
Text1 = ""
For i = 2 To 100
  If isprime(i) And isprime(i + 2) Then
    Text1 = Text1 & i & "," & i + 2 & vbCrLf
  End If
Next
End Sub

回答2：

已发，请采纳