vb-VB字符串的自由組合的問題

VB字符串的自由組合的問題

123**456，組合出12301456 12302456 ...，其中星號個數是不確定的，所以沒辦法循環，請問具體怎麼寫呢？

最佳回答：

 用遞歸好了
sub foo(string s)
if instr(s, "*") = -1 then msgbox s:exit sub
for i = 0 to 9
foo((mid(s, 1, instr(s, "*")) & i & mid(s, instr(s, "*") + 1))
next
end sub