Salve il suddetto codice dovrebbe servire per sapere se un numero e primo oppure no
ma quando lo mando in esecuzione,non spunta niete credo che si crei un interazione all'inifinito ho pensato che dovrei agginungere un bottone si MA CHE CODICE INSERIRE E SE NON E QUESTO ALLORA COSA?:master:

Private Sub Primo(N As Long)
Dim L As Long
For L = 2 To Sqr(N)
if N Mod L=0 then
MsgBox "il numero non è primo"
Exit For
End If
Next L
End Sub


A presto Qazaz