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

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

Private Sub Command1_Click()
  Dim Inversion As Integer
  For i = 100 To 900
    Inversion = (i Mod 10) * 100 + (i  10 Mod 10) * 10 + i  100
    If IsPrimeNumber(i) And IsPrimeNumber(Inversion) Then
      k = k + 1
      Print i;
      If k Mod 10 = 0 Then Print
    End If
  Next i
  Print
End Sub

Public Function IsPrimeNumber(ByVal n As Integer) As Boolean
  IsPrimeNumber = True
  For i = 2 To Sqr(n)
    If n Mod i = 0 Then
      IsPrimeNumber = False
      Exit Function
    End If
  Next i
End Function

我感觉这题目对新手来说是很难的，代码如下，运行效果见上图。
逐行手敲，亲测可用。

Private Sub Command1_Click()
Dim a, b, c, d As Integer

b = 2
  For a = 100 To 900
      c = 0
      d = 0
     For b = 2 To a - 1
       If a Mod b = 0 Then
              c = 1
       End If
     Next b
    
    
    If c = 0 Then
    y = a  100 + ((a  10) Mod 10) * 10 + (a Mod 10) * 100
    
    For b = 2 To y - 1
       If y Mod b = 0 Then
              d = 1
       End If
     Next b
      If d = 0 Then
      Print "无暇素数为：" & a & "  倒序数为：" & y
      End If
    End If
  Next a
End Sub