INC NUM '数えるだけ DIM RECORD[N] 'N個の記録を用意し INC RECORD[I] 'I番目に数える