工夫はそれぞれ v=any'一桁数値が条件 ans=instr("1892746503",str$(v))