F.unction Prime ( a As Integer ) AS Boolean
D.im k As Interger,isprime AS Boolean
If a<2 Then
isprime=False
E.lse
isprime=True
k=2
D.o While k<a/2 And isprime
If a Mod k=0 Then
isprime=False
E.LSE
k=k+1
E.nd IF
LOOP
E.nd If
prime=isprime
E.nd Function
在测试时发现有 1 个非素数也被判断为素数,这个错判的数是——