Exercices

Fermé
2301 - 17 juin 2010 à 10:39
baladur13 Messages postés 44245 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 25 mars 2023 - 17 juin 2010 à 10:40
Bonjour,

je suis débutante en VBA ,j'ai un ensemble des exercices en VAB mais j'arrive pas à tester car j'ai un problémé coté logiciel.........
j'ai posté mon sujet plusieurs fois mais j'ai récu des réponses sans résultat claire et détaillés
:(
voici mon 1 ere exercice fonction :



Option Explicit
Dim NOmbre as long
Dim Te as Long
Private Function YYY (By RefNombre as long) As Boolean
If Nombre Mod 2 0 and Nombre <> 2 then goto Non
If right (str(Nombre)="0" or right (str(Nombre)="5") and Nombre <>5
Then goto non :
For Te =3 to sqr(Nombre) step 2
If Nombre Mod Te=0 then goto non
Next Te
YYY= true
Exit Function
Non:
YYY=flase
End function

qu'elele sont le résultat de cette fonction pour les valeur 2,5,13,16,23,25,,30

aide moi STp
merci d'avance




1 réponse

baladur13 Messages postés 44245 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 25 mars 2023 13 396
17 juin 2010 à 10:40
Bonjour
Pas la peine de multiplier les demandes...
Merci de prendre connaissance de cette information concernant vos demandes de devoirs.
0