'------------------------------------- '重複順列の列挙 ' Tiny Basic for Windows Ver. 1.095 以上用 ' 00 Result = Trim$(Str$(Tmp Mod N)) & Result Tmp = Tmp \ N End While Dec2N = Result End Function '-------------------------------------