求一道VB题的代码,利用公式M×M−M＋41（M为自然数）生成有20个素数组成的数列（M取值1～20）,再从得到的20个素数中找出其逆序数也是素数的那些数.例如,113的逆序数为311,它们都是素数,这

Question

求一道VB题的代码,
利用公式M×M−M＋41（M为自然数）生成有20个素数组成的数列（M取值1～20）,再从得到的20个素数中找出其逆序数也是素数的那些数.例如,113的逆序数为311,它们都是素数,这样的素数也称为无暇素数.

Answer 1

Private Sub Form_Load()
Dim tmp As String
Dim a(1 To 20) As Long,m As Integer
For m = 1 To 20
a(m) = m * m - m + 41
If IsPrime(StrReverse(a(m))) = True Then
tmp = tmp & a(m) & vbCrLf
End If
Next
MsgBox tmp
End Sub
Function IsPrime(ByVal n As Long) As Boolean
Dim i As Long
For i = 2 To Int(n / 2)
If n Mod i = 0 Then IsPrime = False:Exit Function
Next
IsPrime = True
End Function