定义

绝对素数是指本身是素数，其逆序数也是素数的数。例如：10321与12301是绝对素数。

参考程序

VB参考程序

Private Function prime(n As Long) As Integer

Dim k As Integer

prime = False

For k = 2 To Sqr(n)

If n Mod k = 0 Then Exit Function

Next k

prime = True

End Function

Private Sub Command1_Click()

Dim m As Long, n As Long

For m = 10001 To 99999 Step 2

n = nx(m)

If prime(m) And prime(n) And m <> n Then

list1.AddItem "(" & m & "," & n & ")"

End If