Question

VB题目两质数的差为2,称此对质数为质数对,编写判断质数的函数,调用此函数,找出100以内的质数对

Answer 1

Function isprime(Num As Long) As Boolean

If Num < 2 Then isprime = False:Exit Function

Dim i As Long

For i = 2 To Sqr(Num)

If (Num Mod i) = 0 Then

isprime = False

Exit Function

End If

Next i

isprime = True

End Function

Private Sub Command1_Click()

Dim i As Long

i = 3

Do

If isprime(i) And isprime(i + 2) Then Print i,i + 2

i = i + 2

Loop Until i = 99

End Su