请问：在VB２００８中这个怎么写

Question

Dim arr1 As Variant
Dim i As Integer
arr1 = Array("aaaa","acba","ghada")
For i = 1 To 10
Me.Controls("ComboBox" & i).List = arr1
Next i

Answer 1

        Dim arr1 As Object() = {"aaa", "bbb", "ccc"}
        For i As Integer = 0 To 10
            CType(Me.Controls("ComboBox" & i), ComboBox).Items.AddRange(arr1)
        Next

楼主看看能不能用

Answer 2

非常感谢！

Answer 3

非常感谢Bunliney的帮助，谢谢！

Answer 4

不用客气～