[此贴子已经被作者于2017-5-1 16:23编辑过]
Dim i As Integer For i = 1 To 20 ComboBox1.AddItem i Next i ComboBox1.ListRows = 20