可以是x,x+2
也可以是x-2,x

QB程序
Declare Function mypri!(x!)
Cls
For i = 3 To 998
  If mypri(i) = 1 And mypri(i+2) = 1 Then ?i;i + 2,
Next i
End

Function mypri!(x!)
  For j = 2 To Int(Sqr(x))
    If x Mod j = 0 Then mypri = 0: Exit Function
  Next j
  mypri = 1
End Function