Recherche des multiples d'un nombre

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

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.