主题：[求助]排课间隔问题思路求解

问题描述：一周上5天课，星期一至星期五。A学科每周3节课，将3节课排到星期一至星期五，达到较为均匀（不能出现连续三天上完了，其它时间就没该课）

 说一个偷懒的方法，类似洗牌的，随机洗乱，然后看看是否合理，然后微调，不行就再洗一次。

 

 

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

还有其他思路吗？

 没有。