riconoscimento numero primo

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 sul proprio form con pulsante e casella testo

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


per vedere programma ppt attivato primo1vba.ppt

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...