level 1
说的明确些，第二个出现什么内容？
如果是把选择的项目添加到第二个：
private sub combo1_Click()
combo2.additem combo1.list(combo2.listindex) '这里也可以用Combo1.text
end sub
如果不能重复，需要添加代码遍历 Combo2，这需要具体数据提供判断依据
2017年12月23日 11点12分
level 11
这些应该用数据库存储
第一张表，学院列表
第二（一）张表，第一个学院的系列表
第二（二）张表，第二个学院的系列表
……
第三（一）第一学院第一系的专业列表
第三（二）第一学院第二系的专业列表
……
……
然后就会发现，你的问题已经不是问题了……
2017年12月25日 03点12分
6
第一张表，学院列表
第二（一）张表，第一个学院的系列表
第二（二）张表，第二个学院的系列表
……
第三（一）第一学院第一系的专业列表
第三（二）第一学院第二系的专业列表
……
……
然后就会发现，你的问题已经不是问题了……