如何让代码简单一点?（机房)

在我进行到第一次机房上机系统的时候，因为代码量很多，comboBox控件也很多，所以能不能在不改变功能的同时，减少代码量呢？

问题

因为机房上机系统的组合查询本身逻辑就比较复杂，而且comboBox控件较多，如果每个控件都用”AddItem”属性来添加默认值，不仅工作量大，还会让我们在开发的时候被感头疼，那么能不能用简单的方法来解决这个问题呢？

设想

因为字段名的三个comboBox中的下拉框的内容都是相同的，那么我们能不能利用控件数组来解决这个问题呢？

解法

首先、将我们要添加到comboBox一个数组中，然后利用循环，将其赋值！

代码

注意：这里我利用的操作员工作记录来举例

Dim Field(6) As String '定义字段名数组，这里comboBox需要6个默认值，所以我定义6个长度的数组
    Dim i%, j% '设置循环变量
    '给数组添加初始值

    Field(0) = "教师"  ’大家注意，每一个数组的第一个代号是“0”
    Field(1) = "注册日期"
    Field(2) = "注册时间"
    Field(3) = "注销日期"
    Field(4) = "注销时间"
    Field(5) = "机器名"
    '利用双层for循环给字段名添加默认值
    For j = 0 To 2 ’给每一个控件赋值
        For i = 0 To 5 ‘确定一个控件，赋值
            comboField(j).AddItem Field(i)
        Next i
    Next j

总结：当我有了想法， 但是并没有想起数组，所以非常感谢祥铭师傅的指点，成功的站在了巨人的肩膀上！但是一开始想用一行语句给数组赋值，但是最后并没有完成，如果您有方法，非常欢迎你的呢指点！
结束语：感谢你的阅读！