关于combobox的问题

Question

现在读到这样一组数字“1,2,3,4,5,6,7,8,9,10”
怎样在combobox中实现
“
1
2
3
4
5
6
7
8
9
10
”
这样的效果，就是是的combobox中的list里输入的一样。

Answer 1

如果要添加的项比较少,可以直接在属性视图上面将其逐个输入到list下拉列表里;
如果稍多,可以这样
    Dim i As Long
    For i = 1 To 10
        Combo1.AddItem i, i - 1
    Next

Answer 2

Private Sub Command1_Click()
    Dim a() As String
    Dim i As Integer
    
    Combo1.Clear
    Combo1.AddItem ""
    a = Split("1,2,3,4,5,6,7,8,9,10", ",")
    
    For i = 0 To UBound(a)
        Combo1.AddItem a(i)
    Next i
    
End Sub

Answer 3

Dim strData As String
Dim strArray() As String
Dim i As LongstrData = “1,2,3,4,5,6,7,8,9,10”
strArray = Split(strData, ",")Combo1.Clear
For i = 0 To Ubound(strArray)
    Combo1.AddItem strArray(i)
Next i