方法1
Dim cb(2) As ComboBox
cb(0) = Me.ComboBox1
cb(1) = Me.ComboBox2
cb(2) = Me.ComboBox3
For i As Integer = 0 To cb.Length - 1
With cb(i)
.Items.Add("a")
.Items.Add("b")
.Items.Add("c")
.Items.Add("d")
.Items.Add("e")
.Items.Add("f")
End With
Next
方法2
For i As Integer = 1 To 3
Dim c As Control() = Me.Controls.Find($"ComboBox{i}", True)
Dim cb As ComboBox = c(0)
With cb
.Items.Add("a")
.Items.Add("b")
.Items.Add("c")
.Items.Add("d")
.Items.Add("e")
.Items.Add("f")
End With
Next