您所在位置：主题：[哆嗦贴] 新组合（利用字符串）
moz
[专家分：37620] 发布于 2005-11-07 17:41:00
闲着没事，我又弄了一个比较简便的组合函数
可以很方便的和之前做的排列函数结合使用
只是存在一个缺点，就是不能有相同重复的字符
利用的字符串，当然，只要你有需要，
你可以很方便的延伸出去的。
例：6个字符中取4个字符的组合
a$="123456"
b$=right$(a$,4）
do
print b$;
loop until nextzh$(a$,b$)=""
end
---------------------------------------------函数体,简单的让人有点担心。
function nextzh$(a$,b$)
for i=1 to len(b$)
if instr(1,a$,mid$(b$,i,1))>i then
mid$(b$,1,i)=mid$(a$,instr(1,a$,mid$(b$,i,1))-i,i)
nextzh$=b$
exit function
endif
next
end function
可以很方便的和之前做的排列函数结合使用
只是存在一个缺点，就是不能有相同重复的字符
利用的字符串，当然，只要你有需要，
你可以很方便的延伸出去的。
例：6个字符中取4个字符的组合
a$="123456"
b$=right$(a$,4）
do
print b$;
loop until nextzh$(a$,b$)=""
end
---------------------------------------------函数体,简单的让人有点担心。
function nextzh$(a$,b$)
for i=1 to len(b$)
if instr(1,a$,mid$(b$,i,1))>i then
mid$(b$,1,i)=mid$(a$,instr(1,a$,mid$(b$,i,1))-i,i)
nextzh$=b$
exit function
endif
next
end function
