Trouver les diviseurs communs à un entier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 187 fois - Téléchargée 68 fois

Contenu du snippet

C'est un petit prog pour trouver les diviseurs
communs à un entier.
Placer une zone de texte appelée txtNbrEntré,limitée à 8 caractères
une liste appelée lstDiviseurs et un bouton appelé cmdCalculer
Il est limité à 99999999 pour l'instant.
VOilà
Si il y a quoique ce soit,tranbert@ifrance.com

Source / Exemple :


Option Explicit
Dim vNbrEntré As Long
Dim vNbrDiviseur As Long
Dim vNbrReste As Long
Dim i As Long

Private Sub txtNbrEntré_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 Then
  KeyAscii = 0
  Beep
End If
End Sub

Private Sub cmdCalculer_Click()
vNbrDiviseur = 1                ' Fixe le diviseur de départ
vNbrEntré = txtNbrEntré
i = 1

If vNbrEntré = 0 Then
  MsgBox ("Tapez un entier entre 2 et 99999999")
    Exit Sub
End If

Do Until i = vNbrEntré
vNbrReste = vNbrEntré Mod vNbrDiviseur
If vNbrReste = 0 Then
  lstDiviseurs.AddItem (vNbrDiviseur)
End If
i = i + 1
vNbrDiviseur = vNbrDiviseur + 1
Loop

Conclusion :


La boucle calcule le reste d'une division en partant de 1,si le reste est égal à 0 elle ajoute le diviseur à la liste,à chaque division elle ajoute 1 à un indice,et lorsque l'indice atteint le nombre dont on veut trouver les diviseurs,la boucle s'arrête.

A voir également

Ajouter un commentaire

Commentaires

-
Bof, on a fait mieux.

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.