Divisores

n=n+1 (se incrementa el número a probar)
if a/n=int(a/n) then vale=false (Si es divisible paramos)
wend
if n=a then n=1 (Caso en el que a es primo)
menordiv=n
End function
F UNCIÓN MDI
Argumento: Un número entero positivo
Valor: Devuelve el mayor divisor impar de dicho número.
Código en Basic
Public Function mdi(n) 'mayor divisor impar
Dim s
s = n
While s/2=int(s/2): s = s / 2: Wend ‘va eliminando el factor 2 para que quede impar
mdi = s
End Function
130