急问一个vb的问题 希望大家都来帮忙啊

来源：百度知道 编辑：UC知道 时间：2024/05/13 03:09:09
我想做个简单的积分编排,假设有1-64个选手进行比赛,用了个随即函数循环36次 请看代码Dim a, b As Integer
Dim i As Integer
For i = 0 To 35
a = Int((64 * Rnd) + 1)
c = Int((64 * Rnd) + 1)
Print a; "-"; c
Next i
但是我现在想解决2个问题:1是a和c在循环过程中不能重复出现 2,就是a和c分过一组的话以后不能在在一组 有没有高手帮我下啊,把代码给出来哦
64个选手要一直参加9轮比赛 不淘汰 赢的在和赢的 输的和输的

Private Sub Command1_Click()
Dim b(64), c(64)
Dim i, j As Integer
randomize
For i = 1 To 64
b(i) = Int((64 * Rnd) + 1)
If c(b(i)) Then i = i - 1 Else c(b(i)) = 1
Next i
For i = 1 To 64 Step 2
Debug.Print b(i); "-"; b(i + 1)
Next
End Sub