¥t¤@­Ó½è¼Æ¤]¬O¬Û¦Pªº­n¨D¡A
§Ú§Ë«Ü¤[³£§Ë¤£·|¡A
¯à¤£¯à½Ð¦U¦ì¤j¤jÀ°§Ú³o­Ó¦£¡A
±Ð§Ú¤@¤U¡A
©Î¬OÀ°§Ú¼gµ{¦¡½X¤]¥i¥H¡A
ÁÂÁÂ

VBA ªº¤èªk¡A¦]­n±N¼Æ¦r³]©w¦¨ Long¡A©Ò¥H¤@©w­n¿é¤J¥¿¾ã¼Æ
¥i¥H¦b¥H¤U¦a§}´ú¸Õ¼Æ¦r¬O§_½è¼Æ
http://primes.utm.edu/curios/includes/file.php?file=primetest.html

Sub CheckPrime()
Dim TestNumber As Long
TestNumber = Application.InputBox(prompt:="½Ð¿é¤J¤j©ó 1 ªº¾ã¼Æ", Default:=9999991, Type:=1)
If TestNumber = 1 Then
   CheckPrime
Else
   If TestNumber = 2 Or TestNumber = 3 Then
       MsgBox TestNumber & " ¬O½è¼Æ"
       ElseIf IsPrime(TestNumber) Then
           MsgBox TestNumber & " ¬O½è¼Æ"
       Else
           MsgBox TestNumber & " ¤£¬O½è¼Æ"
   End If
End If
End Sub

Function IsPrime(TestNumber As Long) As Boolean
Dim Count As Long
Dim Half As Long
If (TestNumber Mod 2) = 0 Then
         Exit Function
 End If
 Half = Sqr(TestNumber)           '¨S¦³¤p¼Æ¦ì
 For Count = 3 To Half Step 2
     If (TestNumber Mod Count) = 0 Then
         Exit Function
     End If
 Next
 IsPrime = True
End Function

  If (TestNumber Mod 2) = 0 Then
          Exit Function
  End If
  Half = Sqr(TestNumber)           '¨S¦³¤p¼Æ¦ì
  For Count = 3 To Half Step 2
      If (TestNumber Mod Count) = 0 Then
          Exit Function
      End If
  Next
  IsPrime = True
End Function
¥i¤j¤j´£°ª对¤j数§P别ªº³t«×¡C
¦Ó¥B
If TestNumber <= 1 Then CheckPrime
¥Îªk¦³问题¡A¦p输¤J1¡A会­«·s¥X现输¤J®Ø­n¨D­«输¡A这¬O对ªº¡A­«·s输¤J¦Xªkªº数¦Z¥i进¦æ§P别¥X现结ªG®Ø¡AµM¦ZVBA°h¥X栈将¥ý«e输¤Jªº1继续©¹¤U执¦æ¡A¤S¥X现结ªG®Ø¦}§P别为质数,这´N错¤F¡C