Recherche des multiples d'un nombre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 611 fois - Téléchargée 57 fois

Commenter

Contenu du snippet

C'est un code très facile.
Il suffit d'avoir un bouton(command1), une boite de texte(text1) et une liste(List1).

Source / Exemple : 


Private Sub Command1_Click()
On Error GoTo E:
If Text1.Text = Empty Then 'Vérifie si il y a un texte
MsgBox "Erreur"
Exit Sub
End If
If Text1.Text < 0 Then 'Vérifie si le nombre est positif
MsgBox "RECHERCHE DES MULTIPLES N'ACCEPTE PAS LES NOMBRES NEGATIFS!"
Exit Sub
End If

C:
If Text1.Text = Int(Text1.Text) Then 'Vérifie si le nombre entier
If List1.List(0) = Empty Then 'Vérifie si la liste est vide
y = Text1.Text
For n = 1 To y
If y / n = Int(y / n) Then 'Si y / n = Nombre entier alors
List1.AddItem n
End If
Next n
Else
List1.RemoveItem (0) 'Vide la liste
GoTo C:
End If
Else
MsgBox "Erreur"
End If
Exit Sub
E:
MsgBox "ERREUR"

End Sub

Conclusion :


On peut après évoluer le programme en créant un bouton qui recherche les
nombres premiers.

A voir également

Ajouter un commentaire

Commentaires

Signaler

un code cherchant les nombres premiers et/ou multiples existait déjà.
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.