下面的代码，MN如果是具体的字符串就能达到我的预期目的，但如果是数组就不正常，如何解决！？！？！？
目标：在一组数中随机取6个不同的数
<%
MN="06 07 08 09 10 01 02 03 04 05 31 32 33 34 35 12 17 22 27 11 16 21 26"
response.write MN & "<BR>"
k=6
max=23
for i= 1 to k
  do
      Randomize   
      b(i)= Int(Rnd*max)+1
  loop until check3(b(i),i)
 response.write b(i) & "---" & b(i)*2+b(i)-2 & "<BR>"
  bbq=bbq & mid(MN,(b(i)*2)+(b(i)-2),2) & " "
next
Response.Write bbq & "<br>"
function check3(t,n)
   check3=true
   for d=1 to n-1
     if t=b(d) then
      check3=false
     End If
   next
end function
%>

比如把第二行的MN换成以下代码，就显示不正常了！！！真是怪事！！如何解决？

for a=1 to 23
if len(a)=1 then a="0" & a
ok(a)=a
MN=MN & " " & ok(a)
next

先谢谢你的帮忙，你的代码，单独出来是没有问题，但整合到我的程序中就出现下标超界，我再修改后，虽然不出错了，但一个数都随机不出来了！！！真是搞到头大，近两年多没有玩编程，脑子不好使了．．．．

你的代码单独运行也没有问题，但整合到我的程序中还是有问题，取得的数数量次次不同（按代码应该每次都可以选出6个数，但我现在就是有时2个，有时3个，有时4个.....)

https://bbs.bccn.net/thread-215538-1-1.html

已解决，谢谢楼上几位．