总卡在最后的取数上，不知道哪里出错了．

大家帮我看看，出错的地方已经在程序中说明！！！其它地方反复调试没有错．


其实我想实现的效果就是，有两大组数
第一组
  E1="01 02 03 04 05"
  E2="06 07 08 09 10"
  E3="11 12 13 14 15"
  E4="16 17 18 19 20"
  E5="21 22 23 24 25"
  E6="26 27 28 29 30"
  E7="31 32 33 34 35"
第二组
  F1="01 06 11 16 21 26 31"
  F2="02 07 12 17 22 27 32"
  F3="03 08 13 18 23 28 33"
  F4="04 09 14 19 24 29 34"
  F5="05 10 15 20 25 30 35"
在第一组中随机抽三组数（不重复)，在第二组中随机抽两组数（不重复)，把抽出来的数，再组成一个大组数，接着把新组数中重复的数去掉一个，只保留一个！！
最后在处理后的这组数中再随机抽6个数(不重复)并显示出来！！！

我现在就卡在最后一步！！！靠！！！就出不了我想要的效果，可代码反复研究调试，没有错呀！！！
相信大家能给出比我更简单的算法！！！

If ss(aaa) <> "tttttttt" and ss(aaa)<>""  Then

这样应该就可以了

分割完的数组有为空的时候，你看看ss(0)是不是空格啊....

成了死循环．麻烦你下载我的代码看看在那段里改改．我都有详细说明！！！
（注意改名！否则把你的index.asp 复盖了就不好意思）

我在改，呵呵
别急啊，原因已经找到了...

谢谢，不着急，明天能攻克，我就很满意了，见鬼的数组！！！

我也是有写过上w行代码的程序的经历，没想到竟在这阴沟里翻船．验

[[it] 本帖最后由 sass 于 2008-5-22 00:02 编辑 [/it]]

ss=split(trim(mn),"  ")
    Dim lsNums()
    redim lsNums(6)
 


  
    Randomize
k=0
    Do While kk < 6
        aaa = Int(Rnd *  UBound(ss)) + 1
         If ss(aaa) <> "tttttttt"  Then
            kk = kk + 1            
            lsNums(kk) =ss(aaa)
             ss(aaa) = "tttttttt"
            response.Write("<br>"&lsNums(kk)&"<br>")
  
         End If   
    
    Loop

看上面的代码应该是没有问题了吧....
我这里测试没有问题

你最后得到的数组b的维数是46，而不是23，每个数字之间有1个空格，被计算为数组元素了
表面上看是23....
用先去除mn两端的空格，然后再用两个空格进行分割，得到真正需要的数组....

kk=0
写错了，开始以为有冲突，就把名字都改了，现在问题找到了...

谢谢，终于解决！！！我可以继续编下去，相信下面就不会有难点了！！！！