如何列出所有的字符串
简单点说吧，我想给出字符串的位数，如3位，然后列出所有3位的字符串。
字符串由字母和数字组成。
我写了一段，只是两位字符的，后面的没写，因为我想应该用递归的方式自我调用，但我不知道具体该如何实施……
谢谢各位大侠啦！
'变量s（）存放字符串,第一字符；i,字符个数；j,k
'ascII表中数字为48～57,字母为97～122
dim st
redim s(6)
for i=1 to 6
s(i)=chr(48)
st=st+s(i)
next
while i>=1
st=left(st,i)
for j=48 to 122
if j=58 then j=97
str=st&chr(j)
char(str) '调用未位字符
next
i=i-1
wend
'==============================================
'程序名：char(s:string)
'作 用：取从0到z未位字符表
'
'==============================================
sub char(s)
dim j,k
Response.Write("<tr>")
for j=48 to 122
if j=58 then j=97
str=chr(j)
Response.Write("<td>" & s & str & "</td>")
k=k+1
if k/5=int(k/5) then Response.Write("</tr><tr>")
next
Response.Write("</tr>")
end sub
问题点数：20、回复次数：7Top
1 楼killshower（晓龙）回复于 2006-03-04 21:50:07 得分 0
自己顶Top
2 楼boyd1985（波伊德乐园->http://www.boyd.cn）回复于 2006-03-04 22:19:43 得分 0
我先帮你顶，回头再来写一下程序Top
3 楼killshower（晓龙）回复于 2006-03-05 02:56:44 得分 0
我用递归的方法写了个程序，但总不能一次退出递归
大侠们如果有什么好办法
快告诉小弟，谢啦Top
4 楼dh20156（风之石）回复于 2006-03-05 09:49:44 得分 0
还有点没明白你的意思。Top
5 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2006-03-05 11:46:48 得分 0
还有点没明白你的意思。Top
6 楼killshower（晓龙）回复于 2006-03-05 18:57:49 得分 0
汗～～～～～～～
我现在就问问如何退出递归
我用exit sub的方法程序是一层一层的退出
即仅返回程序的调用层，这样就产生一大些无用的字符串
如何能一次退出？？Top
7 楼killshower（晓龙）回复于 2006-03-06 18:03:26 得分 0
没人理？？Top
