主题：测试无反应

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

随机抽取表中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

41个就可以，40就不行。

谢谢老师！

谢谢老师