vb编程 找出100-900之间的无暇素数。所谓无暇素数是指本身为素数，且其

Question

vb编程 找出100-900之间的无暇素数。所谓无暇素数是指本身为素数，且其逆序数也是素数的数。例如：113是一个素数，311也是一个素数，113就是无暇素数。

Answer 1

Private Sub Command2_Click()
    For i = 100 To 999
        If IsPrime(i) And IsPrime(GetF(i)) Then Print i
    Next i
End Sub

Private Function IsPrime(ByVal n As Integer) As Boolean
        Dim pb As Integer
        pb = n - 1
        IsPrime = True
        For i = 2 To pb
            If n Mod i = 0 Then
                IsPrime = False
                Exit For
            End If
        Next i
End Function

Private Function GetF(ByVal n As Integer) As Integer
    GetF = 100 * (n Mod 10) + 10 * ((n Mod 100) \ 10) + (n \ 100)
End Function

追问

运行显示next without for

运行显示next without for

追答

我看你抄的代码 怎么抄的

我这里是可以的
把你的代码截图出来

追问

加下qq

追答

我的叁衣肆零贰壹壹肆六