Folgende kleine Funktion überprüft,
ob die angegebene Zahl eine Primzahl ist:
Function IstPrimZahl(Zahl As Integer)
Dim i As Integer
IstPrimZahl = True
For i = 2 To Int(Sqr(Zahl))
If (Zahl Mod i = 0) Then
IstPrimZahl = False
Exit For
End If
Next i
End Function
Vielen Dank an Heino,
der meine bisherige Routine durch diese ersetzt hat.
|