primo

riconoscimento numero primo:creazione oggetti,modifica,copia incolla codice

per attivare ppt

esercitazione didattica elementare con visual basic:
scopo del programma:riconoscere se un numero
inserito da tastiera è numero primo:
il numero introdotto nella casella di testo
denominata interox viene passato alla procedura
primo che esegue la verifica sul numero e 
comunica attraverso una finestrella MsgBox
il risultato

dalla immagine si vede che deve essere creato
un pulsante e una casella di testo;
dal codice si vede che il pulsante non viene
modificato nel nome ;invece la casella di testo
(textbox1) viene rinominata (usando proprietà)
come interox.
Creato il form con pulsante e casella,inserire
il codice copiato:attivare con Esegui-Esegui UserForm.


codice da copiare e incollare

Private Sub CommandButton1_Click()
Dim y As Long
y = interox
primo (y)
End Sub

Private Sub primo(numero As Long)
Dim x As Long
For x = 2 To Sqr(numero)
If numero Mod x = 0 Then
MsgBox "il numero non è primo"
 Else
 MsgBox "il numero è primo"
 Exit For
 End If
 Next x
 End Sub