关于类似于字典的递归问题

private sub form_load（)
dim i as integer, j as integer, k as integer

for i = 48 to 122
    for j = 48 to 122
        for k = 48 to 122
            if （i > 57 and i < 97) or （j > 57 and j < 97) or （k > 57 and k < 97) then
            else
                debug.print chr（i) & chr（j) & chr（k)
            end if
            
        next k
    next j
next i

end sub

option explicit
private sub command1_click（)
  dim n as byte, max, i, k, strtmp（) as byte, t as byte, j as integer
  on error resume next
  n = val（inputbox（"输入字符串长度n:"))
  if n = 0 then exit sub
  redim strtmp（n * 2 - 1)
  max = cdec（36) ^ n
  cls
  print max
  for i = 0 to max - 1
    k = i
    for j = n - 1 to 0 step -1
      t = k mod 36
      if t <= 9 then
        strtmp（j * 2) = 48 + t
      else
        strtmp（j * 2) = 55 + t
      end if
      k = k \ 36
    next
    list1.additem strtmp
  next
end sub