Question

VB 程序：用计算机安排考试日程

期末某专业在周一至周六的六天要考a,b,c三门课，考试顺序为先考a,然后考b,最后考c,规定一天只能考一门。且c课只能安排在周五或周六考。
编写程序安排考试日程，要求列出满足条件的所有方案。
不要用数组，，就用循环做。

Answer 1

楼上的那位代码可以再简化的。
Private Sub Command1_Click()
Cls
For i = 1 To 6
For j = 1 To 6
For l = 5 To 6
If i < j And j < l Then Print "a"; i, "b"; j, "c"; l
Next l
Next j
Next i
End Sub

Answer 2

Private Sub Command1_Click()
For i = 1 To 6
For j = 1 To 6
For l = 5 To 6
If i <> j And i <> l And j <> l And i < j And j < l Then Print "a"; i, "b"; j, "c"; l
Next l
Next j
Next i
End Sub