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

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 Sub