Bonjour,
en regardant la proposition pour savoir si un nombre est premier, je me rappelle d'une formule qui concerne les nombres premiers qui utilise les factorielles "!" en notation mathématique.http://fr.wikipedia.org/wiki/Formule...mbres_premiers
apparemment il n'y a rien en vb qui permette de calculer les factorielles.
Il n'y a rien de plus simple (plus d'info ici), mais pour ceux qui n'y entendent rien en mathématique je propose une fonction Factorielle:
Ainsi, lors d'un calcul, il suffira de faire :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Function Factorielle(n As Integer) As Double On Error GoTo Erreur Factorielle = 1 For i = 1 To n Factorielle = Factorielle * i Next Exit Function Erreur: MsgBox "Dépassement de capacité, veuillez saisir un nombre compris entre 1 et 170" Exit Function End Function
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 'exemple : 2 + 5! res = 2 + Factorielle(5)
Voilà, c'est tout simple, mais j'espère que ça servira à quelqu'un.
A bientôt.
J'attends vos éventuelles remarques.
Partager