运动会上的蛇形分组

大周　发表于：2014-02-28 12:33:06 　

复制

大家好，我想问一个关于分组的问题，请大家帮帮忙。是运动会编排的问题。收到参赛运动员的报名表，可采用蛇行分组方法进行，如女子100米共24 人，有8条跑道，进行蛇行排列。

道次一二三四五六七八

第一组 1 6 7 12 13 18 19 24

第二组 2 5 8 11 14 17 20 23

第三组 3 4 9 10 15 16 21 22

蛇行排列中如有同单位的运动员在同一组，可上下调动

Top

在水一方发表于：2014-02-28 23:21:58

Private Sub Command_Click()
For i = 1 To 24
j = (i - 1) Mod 3
k = (i - 1) \ 3
If k Mod 2 = 1 Then
x = i & " 号在第 " & k + 1 & " 组第 " & 3 - j & " 排"
Else
x = i & " 号在第 " & k + 1 & " 组第 " & j + 1 & " 排"
End If
y = y & Chr(13) + Chr(10) & x
Next i
MsgBox (y)
End Sub

Top

大周发表于：2014-03-03 08:38:43

谢谢，我看看

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

运动会上的蛇形分组