求VB程序代码。困难。课程安排问题。

来源：百度知道 编辑：UC知道 时间：2024/09/27 19:22:02
用计算机安排考试日程，某专业在周一到周六的6天时间内要考x,y,z三门课程，考试顺序为先考x，再考y，再考z.规定一天只能考一门，且z课程只能安排在周五或周六考，编写程,安排考试日程，（即x,y,z三门课程各在哪一天考），要求列出满足条件的所有方案。

我已调试过了，没有问题

Dim weeks(6) As String
For t = 1 To 4 '由于有顺序考试，X Y Z，所以X课程只能在星期一到星期四考
weeks(t) = "x"
For j = t + 1 To 5 ’Y在X后面考，所以只能在星期二到星期五考
weeks(j) = "y"
For k = 5 To 6 ‘Z只能在星期五或星期六考
If k = j Then ’如果Y在星期五考，那么Z只能在星期六考
k = k + 1
weeks(k) = "z"
Print "星期"; t, weeks(t), "星期"; j, weeks(j), "星期"; k, weeks(k)
Print
Exit For
Else
weeks(k) = "z"
Print "星期"; t, weeks(t), "星期"; j, weeks(j), "星期"; k, weeks(k)
Print
End If
Next k
Next j
Next t

留个脚印