将200个人的信息保存数组中 抽中某个号就将这个数组元素内容清空 下次抽取时 如果抽到空的 就继续 直到非空。依次循环
方法很多的，我先提供一个思路；
1，定义一个数组d(200)，存放数字 1--200。
K = 200
2，执行一次抽号；
2.1 产生 【1，K】之间的随机数n，抽到的号为d(n)。
2.2 把下标n后边的元素存放的数据前移一个位置。
For i = n+1 To K
d(i-1) = d(i)
Next i
K = K - 1
3，If K > 0 Then
可以进行下一次抽号，即：执行2，
Else
抽号完毕
End If
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024