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

题目

VB题目两质数的差为2,称此对质数为质数对,编写判断质数的函数,调用此函数,找出100以内的质数对
两质数的差为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