????????????????????????
谁说存不进去   你看结果了吗？
        Dim c(3, 4) As Integer
        Dim i, ii As Integer
        c(1, 1) = 2
        For i = 0 To 3
            For ii = 0 To 2
                ComboBox1.Items.Add(c(ii, i))
            Next ii
        Next i



结果：

０
０
０
０
２
０
０
０

谢谢，问题已解决。