'liste Dim numeros numeros = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) 'resultats Dim pair(), index_pair Dim impair(), index_impair index_pair = -1 index_impair = -1 Dim i For i = LBound(numeros) To UBound(numeros) If (numeros(i) And 1) = 0 Then index_pair = index_pair + 1 ReDim Preserve pair(index_pair) pair(index_pair) = numeros(i) wscript.echo "pair: " & numeros(i) Else index_impair = index_impair + 1 ReDim Preserve impair(index_impair) impair(index_impair) = numeros(i) wscript.echo "impair: " & numeros(i) End If Next
dim numeros numeros= array(1,2,3,4,5,6,7,8,9) dim impaire() dim pair() dim i for i=0 to ubound(numeros) + 1 if (i Mod 2) = 0 then redim preserve impaire(i) impaire(i)=i wscript.echo "pair: " & impaire(i) else redim preserve pair(i) pair(i)=i wscript.echo "impair: " & pair(i) end if next i
dim impair impair=array(1,3,5,7,9) for i=0 to UBound(impair) impair=i+10 Wscript.Echo " "&impair Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionsi par exemple on veux ajouter une valeur a chacune des variables
je ne c pas si c correcte ou non c pour ça(...)
dim impair impair=array(1,3,5,7,9) for i=0 to UBound(impair) impair(i)=impair(i)+10 Wscript.Echo " "&impair(i) Next