ごめん、数値を入れる部分をはしょっていた。 'DIM A[52] の後に追加、0～51 を入れる FOR I=0 TO LEN(A)-1 A[I]=I NEXT