主题：[求助]数学逻辑问题

1、把兵乓球打乱顺序；

2、如果平均放，就总数/5，然后把兵乓球依次放入；

3、如果要一个多、一个少，同样总数/5，然后随机一个抽屉多、随机一个抽屉少，然后放入兵乓球

 直接打乱然后取数就行啊

Dim cnt As Integer = Tables("表A").Rows.Count
Dim ids(cnt - 1) As Integer
For i As Integer = 0 To cnt -1
    ids(i) = i
Next
For i As Integer = 1 To cnt  '洗牌次数
    Dim id1 As Integer = rand.Next(0,cnt)
    Dim id2 As Integer = rand.Next(0,cnt)
    Dim vid As Integer = ids(id1)
    ids(id1) = ids(id2)
    ids(id2) = vid
Next

For i As Integer = 0 To cnt -1
    output.show(Tables("表A").rows(ids(i))("第一列"))
Next