私はポコきちさんの方法でできてるとおもいますよー^^ RNDで7が1回もでなくても、Iは0から9まで変化するので、A[7]も1度はSWAPされますよね(≧∇≦)b SWAP A[0],A[3] SWAP A[1],A[4] ←A[4]の交換1回目(RNDが4) SWAP A[2],A[5] SWAP A[3],A[2] SWAP A[4],A[1] ←A[4]の交換2回目(Iが4) SWAP A[5],A[4] ←A[4]の交換3回目(RNDが4) SWAP A[6],A[9] SWAP A[7],A[8] ←A[7]の交換1回目(Iが7) SWAP A[8],A[6] SWAP A[9],A[0] ちなみに、あまさとさんの方法はとてもスマートです(*´▽`*) FOR I=0 TO LEN(A)-1:B[I]=RNDF():NEXT:SORT B,A ←Bの順でAも入れ替わる