主题：测试无反应

老师们好，请问我测试如下代码为何会无反应呢：

 

随机抽取表中40条[选项]为false 的记录并把它设为true，当表中只剩下40条[选项]为false 的记录时，此时执行程序会稳死那，只能强迫

关闭重程序了。

 

Dim lst As new List(of Integer)
        Dim y2 As Integer=0
        Dim dr As DataRow
        Dim b As Integer
        Dim drs As List (Of DataRow) = DataTables("表APA").Select("[选择] = false and [类型]='A'")
        b=drs.Count    
        Do
            Dim idx As Integer = rand.Next(0,b-1)
            dr = drs(idx)
            n1=dr("序号")
            If lst.Contains(n1)=False Then
                dr("选择")=True
                lst.add(n1)
                y2=y2+1
            End If
        Loop While y2<40

抽取越接近总体，就不能用这种方法。

 

你有洗牌的方式吧

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=68314&skin=0

 

再者，有可能你的drs.count根本就不够40个，导致一直循环。

41个就可以，40就不行。

 

谢谢老师！

哦

 

  Dim idx As Integer = rand.Next(0,b-1)

 

改成

 

  Dim idx As Integer = rand.Next(0,b)

 

谢谢老师