绝对素数.txt

一个自然数是素数,且它的数字位置经过任意对换后仍为素数,刚称为绝对素数,例如:13。试找出所有二位绝对素数。

一个自然数是素数,且它的数字位置经过任意对换后仍为素数,刚称为绝对素数,例如:13。试找出所有二位绝对素数。
 
Private Sub Command1_Click()
Dim pt As Boolean, qt As Boolean
For i = 10 To 99
pt = False
s = 0
For j = 2 To i - 1
If i Mod j = 0 Then s = s + 1
Next j
If s = 0 Then pt = True
If pt Then
q = (i Mod 10) * 10 + (i \ 10)
t = 0
For k = 2 To q - 1
qt = False
If q Mod k = 0 Then t = t + 1
Next k
If t = 0 Then qt = True
End If
If (pt And qt) Then Print i; "是绝对素数"
Next i
End Sub