N$="":I=0 WHILE I<LEN(X) N$=N$+STR$(X(I))+",":I=I+1 WEND FLG1=INSTR(N$,"1") FLG2=INSTR(N$,"9") 数字が無いときは-1が返ってきます。