A$=CHR$(0)*5 OK A$[1]=CHR$(1) OK FOR I=0 TO LEN(A$)-1:?ASC(A$[I]):NEXT I 0　←次はこれを削除 1 0 0 0 OK