帮忙做VB题 非常感谢

来源：百度知道 编辑：UC知道 时间：2024/05/28 02:36:42
VB题：用计算机安排考试日程。期末某专业在周一到周六的6天时间内要考X,Y,Z三门课程，考试顺序为先考X，然后考Y，最后考Z，规定一天只能考一门，且Z课程只能安排在周五或周六考。编辑程序安排编写程序安排考试日程（即X,Y,Z 三门课程各在哪一天考），要求列出满足条件的所有方案。 （要完整的代码）

Option Explicit

Private Sub Form_Click()
Dim i%, j%, k%, m%, day(1 To 6) As String, num
For i = 1 To 6
day(i) = "_"
Next i
For i = 1 To 4
For j = i + 1 To 6
For k = 5 To 6
If day(i) = "_" Then day(i) = "x"
If day(j) = "_" And j < k Then
day(j) = "y"
Else
For m = 1 To 6
day(m) = "_"
Next m
Exit For
End If
If day(k) = "_" Then day(k) = "z"
For m = 1 To 6
Print day(m) & ",";
Next m
For m = 1 To 6
day(m) = "_"
Next m
Print
Next k
Next j
Next i
End Sub