绝对素数

绝对素数是指本身是素数，其逆序数也是素数的数。例如：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

Next m

End Sub

Private Sub Command2_Click()

list1.Clear

End Sub

Private Function nx(n As Long) As Long

Dim p As Integer, s As String

Do

p = n Mod 10

s = s & p

n = n / 10

Loop Until n <= 0

nx = Val(s)

End Function