Traduire en vba
moumouns
-
Bobinours Messages postés 2903 Statut Membre -
Bobinours Messages postés 2903 Statut Membre -
var
base:=5mod nb
af:=5 div (nb-base)
pour i de 1 a base faire
afficher (af+1)
finpour
tant que i<6 faire
afficher(af)
i= i+1
fin tant que
base:=5mod nb
af:=5 div (nb-base)
pour i de 1 a base faire
afficher (af+1)
finpour
tant que i<6 faire
afficher(af)
i= i+1
fin tant que
4 réponses
-
-
-
base=5 Mod nb
af=5/(nb-base)
for i=1 To base
af=af+1
Response.Write af
Next
while i<6
Response.Write af
i=i+1
Wend
P.S.:
1) C'est du VBscript pas du VBA... meme si cest presque kifkif ;-)
2) voir les PS de http://www.commentcamarche.net/forum/affich.php3?cat=3&ID=220031&page=1 -
Si je puis me permettre, moumouns, tu as des devoirs et c'est à toi de les faire...
