求帮我看下这个算法的问题？？
有八个球的重量，其中有一个比其他的小，另外的数字相同，，，现在随机从中抽取六个在天平每边放三个做比较，若想等，则余下的2个中必有一个是轻的。再称一次就可以了我写了一半就不对了，不太明白
Dim q(8), p(8), u(8) As Integer
Dim t%, i%, j%, k1%, k2%
Private Sub Command1_Click()
For i = 1 To 8
q(i) = InputBox("输入第" & i & "个球")
Next i
For i = 1 To 6
Randomize
j = Int(Rnd * (8 - 1 + 1) + 1)
u(j) = q(j)
p(i) = q(j)
Form1.Print q(j)
Next i
k1 = p(1) + p(2) + p(3)
k2 = p(4) + p(5) + p(6)
If k1 = k2 Then
For i = 1 To 8
q(i) = q(i) - u(i)
Next i
End If
End Sub
