Dim youren%(64), i%, m%
Private Sub Command1_Click()
Dim j%, k%
j = Int(Rnd() * i) + 1
If i Mod 8 = 0 Then Print
For k = 1 To m: j = j - youren(k)
If j = 0 Then Print "(" & ((k - 1) Mod 8) + 1 & "," & 1 + Int((k - 1) / 8) & ")";: youren(k) = 0: i = i - 1: Exit For
Next k
End Sub
Private Sub Form_Load()
m = 56
For i = 1 To m: youren(i) = 1: Next i: i = i - 1 ‘＝1表示没人、＝＝0表示已经有人坐了
Randomize
End Sub
打印逗号前后两数换一下?，看手相的机器